Вывод рандомного числа - 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