18 lines
330 B
Text
18 lines
330 B
Text
|
; Creating and filling array
|
||
|
|
Dim Value(10, 5)
|
||
|
|
For a = 0 To 10
|
||
|
|
For b = 0 To 5
|
||
|
|
Value(a, b) = Random(19) + 1
|
||
|
|
Next
|
||
|
|
Next
|
||
|
|
; iterating trough array
|
||
|
|
For a = 0 To 10
|
||
|
|
For b = 0 To 5
|
||
|
|
Debug Value(a, b)
|
||
|
|
If Value(a, b) = 20
|
||
|
|
; 2 indicates, that there are two nested lopps to break out
|
||
|
|
Break 2
|
||
|
|
EndIf
|
||
|
|
Next
|
||
|
|
Next
|