把每个Option的Name(名称)都写成同一个[这里假设名称都为Option1],这时VB会弹出对话框问是否创建控件数组,选择是即可。 接下来在其中一个单选按钮的Click事件中写如下代码。 Private Sub Option1_Click(Index As Integer) If Option1(Index).Value = True Then 'Option1(Index).Value在VB中单选按钮是否被选中用此属性判断 MsgBox "您选择了"&Option1(Index).Caption '读取选中了的单选框的Caption属性 End If End Sub