100以内加减法问题求高手帮忙

Private Sub Command1_Click()
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
End Sub Private Sub Text1_keypress(keyascil As Integer)
For i = 1 To 5
Label1.Caption = Int(Rnd * 100) + 1
Label3.Caption = Int(Rnd * 100) + 2
If Val(Label1.Caption) + Val(Label3.Caption) = Val(Text1.Text) Then
d = d + 1
Else
c = c + 1
End If
Next i
Label5.Visible = True
Label5.Caption = d And c
End Sub
自己搜百度做的，但是不行，求高手帮忙改正