7 lines
197 B
Text
7 lines
197 B
Text
Dim As Integer d1 = 2147483648, d2 = 2147483646
|
|
Dim As Integer b(1 To ...) = {-d1, -d1+1, -2, -1, 0, 1, 2, d1-2, d1-1}
|
|
For i As Integer = 1 To Ubound(b)
|
|
Print b(i); " -> "; -b(i)
|
|
Next i
|
|
|
|
Sleep
|