26 lines
497 B
Plaintext
26 lines
497 B
Plaintext
Public Sub Main()
|
|
Dim siArray As New Short[5, 5]
|
|
Dim siCount0, siCount1 As Short
|
|
Dim bBreak As Boolean
|
|
|
|
For siCount0 = 0 To 4
|
|
For siCount1 = 0 To 4
|
|
siArray[siCount0, siCount1] = Rand(1, 20)
|
|
siArray[siCount0, siCount1] = Rand(1, 20)
|
|
Next
|
|
Next
|
|
|
|
For siCount0 = 0 To 4
|
|
For siCount1 = 0 To 4
|
|
If siArray[siCount0, siCount1] = 20 Then
|
|
bBreak = True
|
|
Break
|
|
Endif
|
|
Next
|
|
If bBreak Then Break
|
|
Next
|
|
|
|
Print "Row " & Str(siCount0) & " column " & Str(siCount1) & " = 20"
|
|
|
|
End
|