Question

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

Answer 1

Private Sub Command1_Click()
  For i = 0 To 3
    If Option1(i).Value = True Then Label1.Caption = Option1(i).Caption + "被选中。"
  Next i
End Sub

Answer 2

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