Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

Form1.Caption = Int((20 * Rnd) + 1)  ‘Значения запишем в заголовок формы, чтобы

                                                             ‘посмотреть, что работает

Next i

Заполним массив field(8, 5). Полностью процедура будет:

Private Sub Set_Nominal()

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)

Рекомендуем скачать другие рефераты по теме: математика, защита дипломной работы.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки