VB6中小小的问题,请指点。

PrivateSubCommand1_Click()IfOption1.Value=TrueThenMsgBox"答对了",vbOKOnly,"结果"EndElseMsg... Private Sub Command1_Click()
If Option1.Value = True Then
MsgBox "答对了", vbOKOnly, "结果"
End
Else
MsgBox "答错了", vbOKOnly, "结果"
End If
End Sub
是一个问答题,当单击确定时,显示你的选择对与错。
问题补充:提示Option1.Value 这里有问题,可我把Option1改成option2它又对了,这是怎么回事呢?
还有,我Form中有Option1这个控件。所以才搞不懂。
展开
 我来答
劲捷电子信息
2006-03-31 · TA获得超过1705个赞
知道小有建树答主
回答量:829
采纳率:33%
帮助的人:407万
展开全部
不能用Option1.Value = True啊!!
这句代码有问题!!
Option1.Value没有TRUE这个值!
纵横线智能化
2006-03-31 · TA获得超过1858个赞
知道大有可为答主
回答量:3615
采纳率:0%
帮助的人:1354万
展开全部
刚才没有给你说好
你有点一下option1
那是不是单选,你在选中才有
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友d511c11ab
2006-03-31
知道答主
回答量:6
采纳率:0%
帮助的人:0
展开全部
程序没问题,可能是控件有问题,最简单办法把Option1删掉,重新建试试,再不行,重建一个工程。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友8da9992c2
2006-03-31
知道答主
回答量:16
采纳率:0%
帮助的人:7.1万
展开全部
If Option1.Value = True Then
MsgBox "答对了", vbOKOnly, "结果"

Else
MsgBox "答错了", vbOKOnly, "结果"
End If
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式