vb加法运算

来源：百度知道 编辑：UC知道 时间：2024/06/18 07:56:11
程序运行时点击出题命令按钮，用随机函数在加数和被加数框之间随机出10到50之间的两位数做加法运算．在第三个文本框中输入答案，然后点击”判断”命令按钮，如果答案正确，在标签中输出”答对了”，如果答案错误，在标签中输出”答错了”．编写程序代码．
跪求程序．谢谢

三个Textbox,Text1、Text2、Text3横向依次排列
三个Label,Label1放在Text1与Text2之间，Lable1的Caption值为“+”，Label2放在Text2与Text3之间，Label2的Caption值为“+”，Lable3任意位置
两个Commandbutton，Command1和Command2
以下是全部代码

Private Sub Command1_Click()
Text1.Text = Fix(Rnd * 41) + 10
Text2.Text = Fix(Rnd * 41) + 10
End Sub

Private Sub Command2_Click()
Dim a As Integer
a = Val(Text1.Text) + Val(Text2.Text)
If Val(Text3.Text) = a Then
Label3.Caption = "答对了"
Else
Label3.Caption = "答错了"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "出题"
Command2.Caption = "判断"
End Sub

你出200分吧。虽然简单，但也要写四个函数呢。加上主函数，有五个。