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
Помогите пожалуйста с реализацией программы
Ребят, помогите пожалуйста, очень срочно!!! Ножно написать программку на VBA Excel, а я не могу понять как это сделать.
Нужна программа (типо игры в казино) там 3 случайных числа в ряд, и кнопка должна быть с боку, чтобы прога сгенерировала эти числа и в низу промежуток например от 1 до 10. И если эти 3 числа попадают в этот промежуток то пользователь выйграл если нет то проиграл. (промежуток может быть задан с разу)
Нужна программа (типо игры в казино) там 3 случайных числа в ряд, и кнопка должна быть с боку, чтобы прога сгенерировала эти числа и в низу промежуток например от 1 до 10. И если эти 3 числа попадают в этот промежуток то пользователь выйграл если нет то проиграл. (промежуток может быть задан с разу)
Не указано самого главного - диапазона генерации трёх чисел, ибо, если это от -1000000 до 1000000, то Вы в шоколаде, если же от 1 до 10, то казино можно и не открывать, всё равно всегда будет выигрывать посетитель :)
[quote=pashulka;7670]Не указано самого главного - диапазона генерации трёх чисел, ибо, если это от -1000000 до 1000000, то Вы в шоколаде, если же от 1 до 10, то казино можно и не открывать, всё равно всегда будет выигрывать посетитель :)[/quote
Там может быть любой диапазон чисел на ваше усмотрение))
Там может быть любой диапазон чисел на ваше усмотрение))
Если Вам реально плевать на диапазон генер.чисел, хотя, повторюсь, это важно, то решить поставленную задачу можно, например, так :
P.S. При ответе цитировать предыдущее сообщение - не нужно.
Код:
Спасибо за помощь))