Вывод рандомного числа - VB

Узнай цену своей работы

Формулировка задачи:

Вообщем нужна кнопка, которая будет выводить рандомное число от 1 до 12, но с большим шансом выпадения чисел 5 и 6. Помогите, кто чем сможет)))

Решение задачи: «Вывод рандомного числа»

textual
Листинг программы
Private Sub Command1_Click()
Dim r As Byte
r = Int(Rnd * 12 + 1)
If Rnd < 0.5 Then r = Int(Rnd * 2 + 5)
MsgBox r
End Sub

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


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

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

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