Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Vypočítajte maximálnu hodnotu , ktorá môže byť uložený do Integer , zahrnutím nasledujúce riadky vo vašom programe Visual Basic :
Dim maxInteger As Integer
maxInteger = 2 ^ ( Ľan ( maxInteger ) * 8-1 ) -1
2
Skontrolujte , či Long hodnotu , ktorú chcete previesť na Integer zapadá do rozsahu hodnôt Integer môže obsahovať , rovnako ako v tento ukážkový kód :
Dim sampleLong As Long
" Vypočítať hodnotu sampleLong
( ( sampleLong > maxInteger ) alebo ( sampleLong < - maxInteger - 1 ) ) Potom
handleOutOfBounds
End If
Vymeňte vyvolanie do podprogramu " handleOutOfBounds " Mimochodom , v ktorom váš program spracováva prípad Long hodnoty nie sú prevoditeľné do integer
3
previesť Long hodnotu do integer , ako v tomto ukážkovom kóde : .
Dim sampleInteger As integer
sampleInteger = CInt ( sampleLong )
Po vykonaní vyvolaní na vstavanú funkciu " CInt ( ) " , sampleInteger bude obsahovať rovnakú hodnotu ako sampleLong .