可以定义一个变量如S，然后在OPTION1控件的CLICK事件中给该变量S赋值，再用
SELECT CASE S
CASE 答案1
。。。。。
CASE 答案2
。。。。。
CASE 答案3
。。。。。
END SELECT

看看是不是要这样的？

使用单选按扭控件数组来解决这个方法会比较简单.
label1.caption="问题：中国有几个直辖市"
option1(0).caption="1、二个"
option1(1).caption="2、六个"
option1(2).caption="3、四个"
option1(3).caption="4、五个"
command1.caption="确定"
在command1_click里编写下列代码:
dim i%
for i =0 to 3
if option1(i).value=1 then exit for
next i
if i=4 then
msgbox "请选择一个答案"
exit sub
end if
if i=0 then '我不知道哪个是正确答案,先假定是第一个吧,这个i就是比正确答案小1
msgbox "正确"
else
msgbox "错误"
end if

控件数组可以画出一个控件后复制(Ctrl+c),然后再粘贴(ctrl+v),就会提示你时候创建控件数组了.

楼主要是看明白了请回帖啊

为什么要用option(i)呢？
直接用option1、option2...不是更加明了吗？

用控件数组有什么好处,你可以去查阅相关书籍....
这里用控件数组和用一个个控件体现不出多大差别...

谢谢这么多热心的人， 我晚上再试下。 要是觉得讨厌我问问题的口吻，抱歉。。。 可能性格是这样撒 对不起咯

option1中的1不能直接取出,但是option1(1)后的1可以取出,是Index属性

[此贴子已经被作者于2007-5-10 12:00:09编辑过]

9楼的 帮我写了一个。
Private Sub cmdsure_Click()
If (Option1(0).Value = True) Then
MsgBox "答错啦！！！"
ElseIf (Option2(1).Value = True) Then
MsgBox "答错啦！！！"
ElseIf (Option3(2).Value = True) Then
MsgBox "答对了"
ElseIf (Option4(3).Value = True) Then
MsgBox "答错啦！！！"
End If
End Sub

用MsgBox多了,有个问题就是答一个题就要弹出一个窗口,如果题多的话,做题的人会很烦...
你可以在旁边加一个图片框,答对了,就给一张笑脸,错了就哭脸,不用每次都弹出窗口.

嘿嘿,个人觉得MsgBox多了有点烦.