11 lines
205 B
Text
11 lines
205 B
Text
|
Public d As Integer = 1234567
|
||
|
|
Public b As Integer[] = [-d, -d + 1, -2, -1, 0, 1, 2, d - 2, d - 1]
|
||
|
|
|
||
|
|
Public Sub Main()
|
||
|
|
|
||
|
|
For i As Integer = 0 To b.Count - 1
|
||
|
|
Print b[i]; " -> "; -b[i] ' * -1
|
||
|
|
Next
|
||
|
|
|
||
|
|
End
|