Как использовать генератор случайных чисел - VB
Формулировка задачи:
Придумали с другом игру, ну в общем нужна программа, чтобы выпадали случайные цифры, от 1 до 6, типо кубиков... всего чисел должно быть три ( в смысле кубиков), помогите пожалуйста...
Решение задачи: «Как использовать генератор случайных чисел»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Picture2.Picture = Picture1(Digit).Picture Picture3.Picture = Picture1(Digit).Picture Picture4.Picture = Picture1(Digit).Picture End Sub Function Digit() As Integer Digit = Int(Rnd * 6) + 1 End Function Private Sub Form_Load() Randomize End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д