Calcola il valore massimo che può essere memorizzato in un intero , includendo le seguenti linee nel vostro programma di Visual Basic :
Dim maxInteger As Integer
maxInteger = 2 ^ ( Len ( maxInteger ) * 8-1) -1
2
Verifica se il valore a lungo si desidera convertire a crisi interi nel range di valori di un numero intero può contenere , come in questo codice di esempio :
Dim sampleLong As Long
' calcolare il valore della sampleLong
( ( sampleLong > maxInteger ) O ( sampleLong < - maxInteger - 1 ) ) Poi
handleOutOfBounds
End If
Sostituire l'invocazione di subroutine " handleOutOfBounds " dal modo in cui il programma gestisce il caso del valore a lungo non essendo convertibile in un . integer
3
convertire il valore a lungo in un intero , come in questo codice di esempio :
Dim sampleInteger As Integer
sampleInteger = CInt ( sampleLong ) per
Dopo aver eseguito l'invocazione alla funzione built-in " CInt ( ) " , sampleInteger conterrà lo stesso valore di sampleLong .
Programmazione © www.354353.com