Question

vb用一个命令按钮清除已选择的复选框的勾

请问代码应该怎么写

Answer 1

假定是四个复选框：Check1、Check2、Check3、Check4，命令按钮为Command1

Private Sub Command1_Click()
Check1.Value = 0
Check2.Value = 0
Check3.Value = 0
Check4.Value = 0
End Sub

建议把复选框弄成控件数组（如Check1(0)、Check1(1)、Check1(2)、Check1(3)……），这样代码会简单得多，而且对复选框的数量没有限制：

Private Sub Command1_Click()
Dim c As CheckBox
For Each c In Check1
    c.Value = 0
Next
End Sub