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

Ваш аккаунт

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

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

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

Помогите пожалуйста со статистикой

82K
06 декабря 2014 года
ALEXBBB
9 / / 14.11.2014
Ребят помогите пожалуйста с реализацией идеи))) фишка вот в чём- данная программа генерирует три случайных числа в дапазоне от 1 до 30, пользователь должен в уме посчитать и быстро ответить да или нет, если сумма действительно попадает в заданный промежуток то пользователь выйграл, если нет то проиграл. так вот нужно придумать статистику побед и поражений, чтобы программа считала сумму сгенерированных чисел и учитывала ответ пользователя, программа в статистике должна учитывать сумму сгенерированных чисел и ответ пользователя "да" или "нет" и исходя из этих данных выводить результат например так ( 14 7 8- сумма чисел равна 29, входит в промежуток, вы ответили- да- вы выйграли!) там для наглядности на рисунке 2 показано как обозначаются кнопки в коде. Помогите плиз, кто сможет)))
Код:
Private Sub CommandButton1_Click()
Static n
n = n + 1
End Sub

Private Sub CommandButton2_Click()
UserForm2.Hide
UserForm1.Show
End Sub

Private Sub CommandButton3_Click()
Dim A As Integer, B As Integer, C As Integer
A = Int(Rnd * 20) + 1
Label1.Caption = Str(A)

B = Int(Rnd * 20) + 1
Label2.Caption = Str(B)

C = Int(Rnd * 20) + 1
Label3.Caption = Str(C)
End Sub

Private Sub CommandButton4_Click()
UserForm2.Hide
UserForm3.Show
End Sub

Private Sub CommandButton5_Click()
Static с
с = с + 1
End Sub

Private Sub CommandButton6_Click()
UserForm2.Hide
UserForm3.Show

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