vb100以内加减法判断正误程序

VB：设计一个100以内加减法运算的计算程序~

Private Sub Command1_Click()Text1 = Int(Rnd() * 99 + 1)Text2 = Int(Rnd() * 99 + 1)Text3 = ""End Sub
Private Sub Command2_Click()If Val(Text3) = Val(Text1) + Val(Text2) ThenLabel1.Caption = "恭喜你回答正确。"ElseLabel1.Caption = "X 正确答案为：" & Val(Text1) + Val(Text2)End If
End Sub ‘===============加法运算，减法类似

Dim N1, N2, Ztol, tm
Private Sub Command1_Click()
Randomize
da = ""
tm = tm + 1
N1 = Int(Rnd() * 100)
N2 = Int(Rnd() * 100)
ti.Caption = N1 & "+" & N2 & "="
End Sub
Private Sub Command2_Click()
pd
End Sub
Sub pd()
If N1 + N2 = Val(da) Then
MsgBox ("对了")
'再录点音，如恭喜你答对了
Ztol = Ztol + 25
Else
MsgBox ("错误")
'再录点音，如再加油
Ztol = Ztol + 0
End If
c1 = "得分：" & Ztol
ts.Caption = "已做了" & tm & "道"
End Sub
Private Sub da_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then pd
End Sub

这程序我做过 很简单的
其实我觉得不要自己输入算式，用范围随机数，还可以限定出题的范围。最后用if语句判断你输入的答案和电脑的答案比较就知道对错了，然后用msgbox显示正确或错误就行了

---

vb100以内加减法判断正误程序视频