两个单选按钮将自动成为一个组，只有一个可以是选择状态（这个和“复选”按钮是不同的），但VB没有对这个“组”的管理，所以你需要遍历这两个单选按钮（多个选项也是同样处理），假设两个单选按钮名字为：opt1,opt2
If opt1.Value = vbChecked then
Text1.Text = "你选择了第一个选项"
Elseif opt2.Value = vbChecked Then '这里因为只有两个选项，可以直接用：Else
Text1.Text = "你选择了第二个选项"
End If
