vb口算题代码

设计要求： 实现功能为自动出两位数（【10，99】之间）的加法题，当输入正确答案后，显示消息框“恭喜你，答对了！”；如果输入错误则显示消息框“错误！重新输入。”(当然，消息框内容也可以大家自己设计)

Private Sub Command1_Click()
If Text3.Text = Val(Text1.Text) + Val(Text2.Text) Then
MsgBox "恭喜，回答正确！"
Else
MsgBox "回答错误"
End If
End Sub

Private Sub Form_Load()
Randomize
Text1.Text = Int(Rnd * 89 + 10)
Text2.Text = Int(Rnd * 89 + 10)
End Sub

可以加我的QQ:9986666@qq.tm 答案：110

有问题可以一直交流一下

代码如下 Private Sub Command2_Click() Randomize Text1.Text = Int(Rnd * 90 + 10) Text2.Text = Int(Rnd * 90 + 10) Text3.SetFocus Text3.Text = "" End Sub Private Sub Command3_Click() If Text3.Text = Val(Text1.Text) + Val(Text2.Text) Then MsgBox "恭喜你，答对了！", 64, "正确" End If If Text3.Text <> Val(Text1.Text) + Val(Text2.Text) Then X = MsgBox("在仔细想想！", 69, "错误") If X = 4 Then Text3.SetFocus Text3.Text = "" If X = 2 Then End End If End If End If End Sub