点一下选中下一个选项

可能要先把n定义为静态变量
Static n As Integer
然后
if n=4 then
  n=0
endif

可能你要调整一下IF语句的位置，放在OPTION下面。反正自己测试一下就行了。大问题解决不了解决个小问题也不错，呵呵。

For k=0 to 3

n=k

n=0

[quote]点一下选中下一个选项[/quote]这个要求有点怪，也许就是用户点“选项1”，通过代码，使“选项2”被选中，而“选项1”则没有被选中？

Private Sub Command1_Click()
    For k = 0 To Option1.Count - 1
        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




是个这个了. 呵呵. 完成了