求VB高手设计一个算术运算自测程序！

来源：百度知道 编辑：UC知道 时间：2024/09/20 22:55:23
有三个文本框（text1+text2=text3)和三个命令按钮（出题，判断，退出），要求：单击出题按钮，在text1和text2两个文本框中随机生成1～10之间的整数；用户在text3中输入text1和text2中生成的两个随机数之和，单击判断按钮，判断用户输入的值是否正确，如果正确弹出消息框（利用Msgbox）显示文字“恭喜你，答对了！”如果不正确，显示文字“答案不对，再想想，加油哦！”；单击退出按钮，结束程序运行。

朋友,以下代码,现为你专人.制作,呵呵............
你试试效果.......................看合不合适........
如果有什么需要改进的地方,请回百度消息,或在这里留言.

'需要控件:command1,command2,command3,text1,text2,text3
Private Sub Command1_Click()
Randomize
Text1 = Int(Rnd() * 10)
Text2 = Int(Rnd() * 10)
If Text1 = 0 Then Text1 = 1
If Text2 = 0 Then Text2 = 1

End Sub

Private Sub Command2_Click()
If Val(Text1) + Val(Text2) = Text3 Then
MsgBox "恭喜你,答对了!", vbInformation
End If
If Val(Text1) + Val(Text2) <> Text3 Then
MsgBox "答案不对,再想想,加油哦!", vbCritical
End If
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "出题"
Command2.Caption = "判断"
Command3.Caption = "退出"
Text1.Text = "": Text2.Text = "": Text3.Text = ""

End Sub

'需要：form(frmMain)、l