Question

vb用循环怎样判断一组单选按钮其中一个被选中

对命令按钮写代码判断单选按钮是否选中，如果选中弹出一个消息框，没有选中弹出另一个消息框，（单击单选按钮后，在点命令按钮实现）

Answer 1

添加一个OPTION控件，复制-粘贴，建立 控件组

比如复制6个

代码如下
Private Sub Command1_Click()
For i = 0 To 5
If Option1(i).Value = True Then MsgBox Option1(i).Caption & "被选中"
Next
End Sub

Answer 2

用数组控件
for i = option1.lbound to option1.ubound
if option1(i).value=true then
msgbox "option1(" & i & ")被选中"
exit for
end if
next i