31 lines
937 B
Plaintext
31 lines
937 B
Plaintext
Const iMax = 32767, UiMax = 65535
|
|
Const lMax = 2147483647, UlMax = 4294967295
|
|
Const iQBMax = 9223372036854775807, UiQBMax = 1844674407309551615
|
|
|
|
|
|
Dim iNum As _Integer64, iCount As _Integer64
|
|
Dim sChoice As String, sUnsigned As String, sQuit As String
|
|
Do While sChoice <> "I" And sChoice <> "L" And sChoice <> "6"
|
|
Input "Please choice among (I)nteger, (L)ong and Integer(6)4 ", sChoice
|
|
sChoice = UCase$(sChoice)
|
|
Loop
|
|
Do While sUnsigned <> "u" And sUnsigned <> "n"
|
|
Input "Please choice (U)nsigned or (N)ormal? ", sUnsigned
|
|
sUnsigned = LCase$(sUnsigned)
|
|
Loop
|
|
|
|
If sChoice = "I" Then
|
|
If sUnsigned = "n" Then iNum = iMax Else iNum = UiMax
|
|
ElseIf sChoice = "L" Then
|
|
If sUnsigned = "n" Then iNum = lMax Else iNum = UlMax
|
|
ElseIf sChoice = "6" Then
|
|
If sUnsigned = "n" Then iNum = iQBMax Else iNum = UiQBMax
|
|
End If
|
|
|
|
|
|
For iCount = 0 To iNum Step 1
|
|
Print iCount; " Press spacebar to exit "
|
|
sQuit = InKey$
|
|
Next
|
|
End
|