小程序小问题

Question

本帖最后由 bcrun 于 2010-07-17 09:12:49 编辑

Answer 1

For k = 0 To 3
......
Next k    'k=4 跳出循环  
  Option1(k).Value = False '这句错误 此时k=4 按钮不存在

Answer 2

Option ExplicitDim k As Integer, n As IntegerPrivate Sub Command1_Click()
  For k = 0 To 3
    If Option1(k).Value Then
      n = k
    End If
  Next k
  
  n = n + 1
  If n = 4 Then
    n = 0
  End If
  Option1(n).Value = True
   
End SubPrivate Sub form_load()
  Option1(0).Value = 1
End Sub

Answer 3

对,控件数组下标默认是从0开始的,如你不喜欢的话就把0那个的index改为4好了