18 lines
330 B
Plaintext
18 lines
330 B
Plaintext
; 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
|