Question

vb check 的用法

例如现在有3个check，check1、check2、check3
现在把check1与check2勾选上，再点击Command1后，能算出我选择了几个check吗？
或者在我勾选的时候，直接在旁边的label中显示出来？
每选中一个，旁边的label直接自动更改选中数量？

Answer 1

Private Sub Command1_Click()
n = 0
If Check1.Value = vbChecked Then n = n + 1
If Check2.Value = vbChecked Then n = n + 1
If Check3.Value = vbChecked Then n = n + 1
MsgBox "共有" & n & "个复选框选中"
End Sub

Answer 2

直接加控件可能比较麻烦，但是你可以用控件数组实现就很简单

追问

可以详细一点吗？谢谢啊

追答

复制一个 checkbox ，然后粘贴，当询问是不是建立控件数组时，选择是，

然后
使用 for each in ；next 语句进行循环计数