Реферат: Программирование логической игры на visual basic

TM = Time 'Получить время в переменную

TTMS = Len(TM) 'Определить длину строки с значением времени

TTM = Mid$(TM, 7, 2) 'Выделить из строки количество секунд

For i = 0 To TTM

Form1.Caption = Int((20 * Rnd) + 1)

Next i

'--------------------------------------------------

' Заполним массив field(8, 5)

For i = 0 To 7

For j = 0 To 4

field(i, j) = Int((20 * Rnd) + 1)

Next j

Next i

End Sub

Теперь можно записать тестовую процедуру Private Sub Fdraw() для того, чтобы посмотреть, как заполняется массив field(8, 6)

Процедура будет выглядеть следующим образом:

Private Sub Fdraw()

Label7.Caption = field(0, 0)

Label8.Caption = field(1, 0)

Label9.Caption = field(2, 0)

Label10.Caption = field(3, 0)

Label11.Caption = field(4, 0)

Label12.Caption = field(5, 0)

Label13.Caption = field(6, 0)

Label14.Caption = field(7, 0)

Label15.Caption = field(0, 1)

Label16.Caption = field(1, 1)

Label17.Caption = field(2, 1)

Label18.Caption = field(3, 1)