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
Помогите пожалуйста со статистикой
Visual Basicvisual basic 2012 visual basic 6.0 visual basic application visual basic VBA Макрос VBasic 6
Ребят помогите пожалуйста с реализацией идеи))) фишка вот в чём- данная программа генерирует три случайных числа в дапазоне от 1 до 30, пользователь должен в уме посчитать и быстро ответить да или нет, если сумма действительно попадает в заданный промежуток то пользователь выйграл, если нет то проиграл. так вот нужно придумать статистику побед и поражений, чтобы программа считала сумму сгенерированных чисел и учитывала ответ пользователя, программа в статистике должна учитывать сумму сгенерированных чисел и ответ пользователя "да" или "нет" и исходя из этих данных выводить результат например так ( 14 7 8- сумма чисел равна 29, входит в промежуток, вы ответили- да- вы выйграли!) там для наглядности на рисунке 2 показано как обозначаются кнопки в коде. Помогите плиз, кто сможет)))
рис 1
рис 2
Код:
рис 1
рис 2