这是有关VB程序代码,其目的是制作加法测试器,但是此程序运行不起来。请...

发布网友 发布时间：2024-10-24 07:26

我来回答

共3个回答

热心网友 时间：2024-10-25 13:40

你再在窗体上加两个Command按钮，然后复制以下代码去运行研究吧，你就会明白了：
Private Sub Form_Load()
Command1.Caption = "随机出题"
Command2.Caption = "判断答案"
End Sub

Private Sub Command1_Click()
Text1.Text = Int(Rnd() * 10)
Text2.Text = Int(Rnd() * 10) + Text1.Text
Text3.Text = ""
End Sub

Private Sub Command2_Click()
If Val(Text3.Text) = Val(Text1.Text) + Val(Text2.Text) Then
MsgBox "答对了"
Else
MsgBox "答错了"
End If
End Sub

热心网友 时间：2024-10-25 13:44

由于加法怎么也算不对，所以拿上来请各位高手看看错误在哪里谢谢各位！！！ 首先不能用NOW来定义，它是内置函数名。改为NOW1。我的代码如下： Dim X

热心网友 时间：2024-10-25 13:41

选择的事件不对，不能放在这里事件中
另外，MsgBox "答对了"后面另起一行加else

Private Sub Text3_Change()
If Val(Text3.Text) = Val(Text1.Text) + Val(Text2.Text) Then
Me.Caption= "答对了"
else
Text3.Text = ""
Text1.Text = Int(Rnd() * 10)
Text2.Text = Int(Rnd() * 10) + Text1.Text
Me.Caption= "答错了"
End If
End Sub