VB计算复选框的数量计算

例：我设置了多个复选框，名字从check1....check9；如何写公式
个人不才是逐个定义，然后不知道如何计算总数，以下是遇到的问题
条件1：当只有1个时，文本Text框显示1
条件2：当选择了其中的2个或3、4、5个时，文本框显示汇总，即选择6个复选，文本框显示6
条件3：如果添加一个文本框含数字的，如何加入计算

x=0

if check1.value=1 then x=x+1
if check2.value=1 then x=x+1
..一直到
if check9.value=1 then x=x+1
text1.text=x

msgbox val(text2.text)+val(text1.text) '直接四则运算

private sub c1_click() dim r as string if ch1.value=1 then r=ch1.caption if ch2.value=1 then r =r & ch2.caption if ch3.value=1 then r =r & ch3.caption msgbox "我的爱好是" & r ,vbokonly end sub