关于 复选框 控件的一点小问题

Question

比方我一个窗体中有50个复选框控件, 分别命名为x1,x2……x50
              然后在每个复选框后分别跟了一个TEXTBOX，命名t1,t2……t50  ,其内容分别是一号，二号……五十号
            最后在添加一个 Command1 控件 和 TEXTBOX （t51） 
想达到的效果就是  在按下Command1后 能在t51里面 显示出所有打过勾的复选框 后面TEXTBOX中的文本内容
 
 本来想用IF来做， 但因为控件太多，觉得用IF来写太长了
 所以特地把控件命起的有点规律，希望能求一个用DO WHILE  或FOR 循环做的

Answer 1

还是要if 复选框。打勾 thenfor idx = 0 to ubound（chk） -1

Answer 2

接上
if chk（idx)。value = checked then
 str = str & txt(idx)
end if
next
txt51 = str

Answer 3

把前50个复选框控件和TEXTBOX做成控件数组，就可以用 For 循环了。总共也不过六七行代码搞定。

Answer 4

能解释一下这句吗？  
还有  idx  chk 是什么？   

Answer 5

建立一个，然后copy/paste，问你要不要是，也是就行了

Answer 6

idx是 dim as 的
chk是checkbox控件的名字，你喜欢什么名就替换。

Answer 7

添加一个控件，然后选中它，copy+paste，这个时候就有消息框问你是不是把它做成数组，选yes

Answer 8

这个我到试过的 就是原来的控件命是X1的话 现在就变成x1(1),x1(2)……x1(50)了对吧但后面再怎么写啊 ？
能给出代码吗？

Answer 9

'新手需要直接给代码
for i = 1 to Chk.Count
   if chk（i).value = 1 then  str = str & txt(i).text
next 
txt(51).text = str