Не работает счетчик - VB
Формулировка задачи:
Суть такая, написал программу которая проверяет знания таблицы умножения.
Задается время 60 сек , вводится ответ и если правильно, то счетчик правильный ответов увеличивается на 1.
Время тикает до 0. Все работает хорошо.
Но я хочу ввести и счетчик неправильных ответов, а вот он не работает.При вводе любого числа он срабатывает на +1, если число двузначное, то дает +2 причем не важно верное число введено или нет.
вот код:
Решение задачи: «Не работает счетчик»
textual
Листинг программы
Private Sub Command2_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If c = a * b Then Label3.Caption = Label3.Caption + 1 Else Label5.Caption = Label5.Caption + 1 End If Randomize Text1.Text = CInt(Int((10 * Rnd()) + 1)) Text2.Text = CInt(Int((10 * Rnd()) + 1)) Text3.Text = "" Text3.SetFocus End Sub Private Sub Command1_Click() Timer1.Enabled = True Randomize Text1.Text = CInt(Int((10 * Rnd()) + 1)) Text2.Text = CInt(Int((10 * Rnd()) + 1)) Command1.Visible = False Command2.Visible = True End Sub Private Sub Form_Load() Command1.Visible = True Command2.Visible = False End Sub Private Sub Text3_Keypress(KeyAscii As Integer) Select Case KeyAscii Case 48 To 57, 8 Case Else KeyAscii = 0 End Select End Sub Private Sub Timer1_Timer() ' счетчик времени 60 сек Label2.Caption = Label2.Caption - 1 If Label2.Caption = 0 Then MsgBox "The End!" Timer1.Enabled = False Label2.Caption = 60 Command1.Visible = True Command2.Visible = False Text1.Text = "" Text2.Text = "" Text3.Text = "" Label3.Caption = "0" Label5.Caption = "0" End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д