Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Помогите пожалуйста с реализацией программы

82K
30 ноября 2014 года
ALEXBBB
9 / / 14.11.2014
Ребят, помогите пожалуйста, очень срочно!!! Ножно написать программку на VBA Excel, а я не могу понять как это сделать.
Нужна программа (типо игры в казино) там 3 случайных числа в ряд, и кнопка должна быть с боку, чтобы прога сгенерировала эти числа и в низу промежуток например от 1 до 10. И если эти 3 числа попадают в этот промежуток то пользователь выйграл если нет то проиграл. (промежуток может быть задан с разу)
275
01 декабря 2014 года
pashulka
985 / / 19.09.2004
Не указано самого главного - диапазона генерации трёх чисел, ибо, если это от -1000000 до 1000000, то Вы в шоколаде, если же от 1 до 10, то казино можно и не открывать, всё равно всегда будет выигрывать посетитель :)
82K
01 декабря 2014 года
ALEXBBB
9 / / 14.11.2014
[quote=pashulka;7670]Не указано самого главного - диапазона генерации трёх чисел, ибо, если это от -1000000 до 1000000, то Вы в шоколаде, если же от 1 до 10, то казино можно и не открывать, всё равно всегда будет выигрывать посетитель :)[/quote
Там может быть любой диапазон чисел на ваше усмотрение))
275
01 декабря 2014 года
pashulka
985 / / 19.09.2004
Если Вам реально плевать на диапазон генер.чисел, хотя, повторюсь, это важно, то решить поставленную задачу можно, например, так :

Код:
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
P.S. При ответе цитировать предыдущее сообщение - не нужно.
82K
01 декабря 2014 года
ALEXBBB
9 / / 14.11.2014
Спасибо за помощь))

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог