问一个非常简单的问题！在线等！！急！

Question

我用了一百个checkbox,分别是checkbox_1,checkbox_2,.......checkbox_100
现在我想用循环(n=1 to 100)来得到各个checkbox的value,判断他们是否被选中，
做么做，谢谢！！

Answer 1

Private Sub Command2_Click()
Dim i As Integer
For i = 1 To 100
    if Me.Controls("checkbox_" & Trim(Str(i))).Value= 1 then
 
     end if
Next i
End Sub

Answer 2

Private Sub Command1_Click()
Dim i
For i = 0 To chkTest.UBound
  chkTest(i).Value = 1
Next
End Sub