我有相关材料，需要可以私信我
遍历窗体控件，判断计算Dim ctr As ControlDim i As Integeri = 0For Each ctr In Me.Controls If TypeName(ctr) = "checkbox" Then If ctr.Value = True Then i = i + 1 End IfNextMsgBox i
