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这个控件。所以才搞不懂。 展开
If Option1.Value = True Then
MsgBox "答对了", vbOKOnly, "结果"
End
Else
MsgBox "答错了", vbOKOnly, "结果"
End If
End Sub
是一个问答题,当单击确定时,显示你的选择对与错。
问题补充:提示Option1.Value 这里有问题,可我把Option1改成option2它又对了,这是怎么回事呢?
还有,我Form中有Option1这个控件。所以才搞不懂。 展开
4个回答
展开全部
刚才没有给你说好
你有点一下option1
那是不是单选,你在选中才有
你有点一下option1
那是不是单选,你在选中才有
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
程序没问题,可能是控件有问题,最简单办法把Option1删掉,重新建试试,再不行,重建一个工程。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
If Option1.Value = True Then
MsgBox "答对了", vbOKOnly, "结果"
Else
MsgBox "答错了", vbOKOnly, "结果"
End If
End Sub
MsgBox "答对了", vbOKOnly, "结果"
Else
MsgBox "答错了", vbOKOnly, "结果"
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询