【简答题】
Private Sub Command1_Click()
' For k = 0 To ?
If Option1(k).Value Then
' n = ?
End If
Next k
Option1(n).Value = False
n = n + 1
If n = 4 Then
' n = ?
End If
Option1(n).Value = True
End Sub
参考答案
Private Sub Command1_Click()
For k = 0 To 3
If Option1(k).Value Then
n = k
End If
Next k
Option1(n).Value = False
n = n + 1
If n = 4 Then
n = 0
End If
Option1(n).Value = True
End Sub