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

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 不会做加法运算器的判题按钮，求教一下。

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 476 人关注过本帖

标题：不会做加法运算器的判题按钮，求教一下。

只看楼主加入收藏

q1473856

等　级：新手上路
帖　子：1
专家分：0
注　册：2014-6-22
结帖率：0

楼主

已结贴√ 问题点数：20 回复次数：4

不会做加法运算器的判题按钮，求教一下。

图片附件: 游客没有浏览图片的权限，请登录或注册

我写的代码是：
Private Sub Command2_Click()
If Val(Text3.Text) = result Then
If Val(Text1.Text) + (Text1.Text) = result Then
MsgBox "恭喜你，答对了！"
Else
MsgBox "答案错误！"
End If
End If
End Sub

搜索更多相关主题的帖子: result　

2014-06-22 16:34

啊良

等　级：论坛游侠
威　望：4
帖　子：29
专家分：105
注　册：2014-5-21

第 2 楼

得分:10

做好啦,你玩吧

自动出数学题2.rar (22.85 KB)

=会,我在看你那个

VB6.0
Q:554268420

2014-06-22 18:47

啊良

等　级：论坛游侠
威　望：4
帖　子：29
专家分：105
注　册：2014-5-21

第 3 楼

得分:0

请参考如下完整代码:
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

加法运算器.rar (5.79 KB)

VB6.0
Q:554268420

2014-06-23 09:00

yangfrancis

等　级：贵宾
威　望：141
帖　子：1510
专家分：7661
注　册：2014-5-19

第 4 楼

得分:10

...
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

2014-06-24 14:29

啊良

等　级：论坛游侠
威　望：4
帖　子：29
专家分：105
注　册：2014-5-21

第 5 楼

得分:0

少儿学习,源程序:

自动出数学题用于教学少儿学习.rar (20.47 KB)

VB6.0
Q:554268420

2014-08-21 17:34

快速回复：不会做加法运算器的判题按钮，求教一下。