求一个最适合的表达式!
偶制作了一个整数的加法表达式,如下:
Private Sub Command1_Click()
Text1.Text = Val(Int(Rnd * 100))
Text2.Text = Val(Int(Rnd * 100))
Text3.Text = Val(InputBox("请输入计算的结果:"))
End Sub
Private Sub Command2_Click()
If Text3.Text = Val(Text1.Text) + Val(Text2.Text) Then
Label3.Caption = "you are right"
Else
Label3.Caption = "you are wrong"
End If
End Sub
Private Sub Command3_Click()
End
End Sub
该程序的窗体主要由3个textbox、1个label、3个Command(分别是:开始、核对、退出),由于这个程序只能核对自己填上答案是否正确,而不能直接点击“核对”让程序自己计算出来.请哪位仁兄想个法子,能得直接点击“核对”就能让程序自己计算出加法的结果来.
多谢!
Private Sub Command1_Click()
Text1.Text = Val(Int(Rnd * 100))
Text2.Text = Val(Int(Rnd * 100))
Text3.Text = Val(InputBox("请输入计算的结果:"))
End Sub
Private Sub Command2_Click()
If Text3.Text = Val(Text1.Text) + Val(Text2.Text) Then
Label3.Caption = "you are right"
Else
Label3.Caption = "you are wrong"
End If
End Sub
Private Sub Command3_Click()
End
End Sub
该程序的窗体主要由3个textbox、1个label、3个Command(分别是:开始、核对、退出),由于这个程序只能核对自己填上答案是否正确,而不能直接点击“核对”让程序自己计算出来.请哪位仁兄想个法子,能得直接点击“核对”就能让程序自己计算出加法的结果来.
多谢!