Private Sub Test() 'Типа кнопка
Randomize 'Timer
Dim iCount As Integer, iArr(2) As Integer
Dim boolVict As Boolean: boolVict = True
For iCount = 0 To 2 'LBound(iArr) To UBound(iArr)
iArr(iCount) = Int(Rnd * 15) '+1
boolVict = boolVict And (iArr(iCount) >= 1 And (iArr(iCount) <= 10))
Next
Range("A1:C1").Value = iArr 'Range("A1:C1") = iArr
MsgBox "Вы " & IIf(boolVict, "выиграли", "проиграли")
End Sub
Помогите пожалуйста с реализацией программы
Нужна программа (типо игры в казино) там 3 случайных числа в ряд, и кнопка должна быть с боку, чтобы прога сгенерировала эти числа и в низу промежуток например от 1 до 10. И если эти 3 числа попадают в этот промежуток то пользователь выйграл если нет то проиграл. (промежуток может быть задан с разу)
Не указано самого главного - диапазона генерации трёх чисел, ибо, если это от -1000000 до 1000000, то Вы в шоколаде, если же от 1 до 10, то казино можно и не открывать, всё равно всегда будет выигрывать посетитель :)
Там может быть любой диапазон чисел на ваше усмотрение))
Если Вам реально плевать на диапазон генер.чисел, хотя, повторюсь, это важно, то решить поставленную задачу можно, например, так :
Спасибо за помощь))