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