Как использовать генератор случайных чисел - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.714 из 5
Похожие ответы