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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024