不会做加法运算器的判题按钮，求教一下。 - 编程论坛

#2

啊良2014-06-22 18:47

做好啦,你玩吧

只有本站会员才能查看附件，请登录

=会,我在看你那个

#3

啊良2014-06-23 09:00

请参考如下完整代码:
Private Sub Command1_Click()
Randomize
a = Int(Rnd * 100)
Text1.Text = a
b = Int(Rnd * 100)
Text2.Text = b
Text3.Text = ""
Text3.SetFocus '琐定光标
End Sub

Private Sub Command2_Click()
If (a + b) = Text3.Text Then
If (a + b) <> Text3.Text Then
Else
MsgBox "恭喜你，答对了！"
End If
Else
MsgBox "答案错误！"
End If
End Sub

Private Sub Command3_Click()
If Text3.Text = (a + b) Then GoTo 10
If Text3.Text <> (a + b) Then GoTo 16
Exit Sub
10:
MsgBox "恭喜你，答对了！"
Exit Sub ' 结束以上程序
16:
MsgBox "答案错误！"
End Sub

只有本站会员才能查看附件，请登录

#4

yangfrancis2014-06-24 14:29

...
randomize
text1.text=str(int(rnd()*100))
randomize
text2.text=str(int(rnd()*100))

Private Sub cmdOK_Click()'用户点下判断答案正误的键
if val(text3.text)=val(text1.text)+val(text2.text) then
msgbox "回答正确"
else
msgbox "回答错误"
end if
end sub

#5

啊良2014-08-21 17:34

少儿学习,源程序:

只有本站会员才能查看附件，请登录