从你的言语中可以看出写程序你还没入门，如果入门了你就很容易知道二楼的代码错在哪里，如何修改的。
ok1010101的代码完全不可行，但不失为一种思路，主要思路大概应用下列代码：
-----------------------------------
dim a(30) as textbox
set a(0)=text1
-----------------------------------
希望你有真正的提高！

[ 本帖最后由 lowxiong 于 2013-2-5 17:53 编辑 ]

lowxiong   你这样的写法比你写的那个更精简吗？需要怎么书呢教我啊

不会，只是把你自定义的无关联的textbox控件映射到一个自定义的textbox控件数组中去，以后对这个自定义的控件数组用循环完成所需要的操作即可，非常简洁明了。这种方法需要多用一个循环把窗体内的textbox控件映射到自定义的textbox控件数组a()中。