vb中Check的Value属性是什么意思

Question

Private Sub opt1_Click(Index As Integer) If opt1(0).Value = True Then For i = 0 To 31 Check1(i).Value = 1 Next Else For i = 0 To 31 Check1(i).Value = 0 Next End If End Sub方便的话帮我解释下这段代码吧 谢谢！！

Answer 1

check是选项控件（打勾）
value是指是否被选中
true（非零）是被选中
Private
Sub
opt1_Click(Index
As
Integer)
If
opt1(0).Value
=
True
Then
'选项（点）被选中
For
i
=
0
To
31
Check1(i).Value
=
1
'选项控件数组的值为被选中
Next
Else
For
i
=
0
To
31
Check1(i).Value
=
0
'选项控件数组的值为不被选中
Next
End
If