Private Sub Command1_Click()
If Val(Text1.Text) >= 85 Then
Text2.Text = Text2.Text + 1
ElseIf Val(Text1.Text) >= 70 Then
Text3.Text = Text3.Text + 1
ElseIf Val(Text1.Text) >= 60 Then
Text4.Text = Text4.Text + 1
Else
Text5.Text = Text5.Text + 1
End If
Text6.Text = Text6.Tex + 1
End Sub
Private Sub Command2_Click()
Text2.Text = 0
Text3.Text = 0
Text4.Text = 0
Text5.Text = 0
Text6.Text = 0
End Sub
Private Sub Form_Load()
Text2.Text = 0
Text3.Text = 0
Text4.Text = 0
Text5.Text = 0
Text6.Text = 0
End Sub