Private Sub Command1_Click()
For i = 0 To 3
If Option1(i).Value = True Then Label1.Caption = Option1(i).Caption + "被选中。"
Next i
End Sub
Private Sub Command1_Click()
Dim n As Integer
For i = 0 To 4
If Option1(i).Value = True Then
n = i + 1
Exit For
End If
Next i
MsgBox "第" & n & "个单选按钮被选中"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024