VB 中的for循环,谁来帮帮我

Public Function main()

Call connserver '连接数据库成功
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sql As String
sql = "select * from sn "
rs.Open sql, conn, 1, 1
number1.Text = rs("n1")
number2.Text = rs("n2")
number3.Text = rs("n3")
number4.Text = rs("n4")
number5.Text = rs("n5")
number6.Text = rs("n6")
number7.Text = rs("n7")
number8.Text = rs("n8")
number9.Text = rs("n9")
number10.Text = rs("n10")
number11.Text = rs("n11")
number12.Text = rs("n12")

rs.Close
Set rs = Nothing
Call closeconn '关闭数据库
End Function
如题,以上代码,是我要在文本框number1 一直到number49文本框中载入数据库中n1-n49的值,我用for
for i=1 to 49
number(i).Text = rs("n"&i&"")
next i
为什么总是出错.我在线等答案

因为是初学,不是控件数组,我是一个一个添加上去,添加了四十九个,呵呵,不懂使用.
现在我知道了在读的时候应该是rs("n"&i)可是文本那个还是不知道
for i=1 to 49
number(i).Text = rs("n"&i)
next i 这个number(i).Text 应该是number1.Text number2.Text 这样循环到49 可是不管我怎么弄都是错误

推荐这种情况使用控件数组

控件的名称中不能包含变量,也就是说numer1.text="A"不能用i=1且numer & i.text="A"来表示,不知道我这样说你明不明白~

如果不用控件数组,你可以试试用for each TextBox in Form的方法将所有的TextBox过一遍，取控件的Name,按着"number" & i的形式一个一个的核对...想想都吓人,这样做慢死了~还是换控件数组吧~

number(i).Text 是控件数组吗

也就是y=10+10=20,这时候进入第二个循环，将k2赋值为0，再执行下一句y=10，执行完内部的全部循环得到y=40,然后k1=5，然后执行下面的y=20,y=y+10,next k3里面的内容，这时候的y已经成为20了，再进行下一个循环，k3=2,y=y+10=30+10=40,再一次,k3=3，循环变量加1）k3=1，（for循环的特性是没执行一次，判断得到5>4，停止循环，首先要搞清楚for循环的过程，实现从最内层的循环开始的，判断得到4>3，跳出循环体，执行第一级循环，（这个时候y=40），将0赋给k3,在执行循环体内的语句y=y+10，执行完以后y=40,判断3>2，跳出循环体，返回上一级循环，k2=1，不过不麻烦，也就是说，当循环进行嵌套的时候，再一次的返回，一直到k2=4的时候,这时候的y又等于10了,记住了，其实这种练习，只看一次循环就知道结果了，k1=1,然后再一次地按照上面的循环步骤执行一次，一直到k1=4的时候，总是内层的全部循环完成的时候再开始循环他的父层，然后再次执行for k3=0 to 2，只要弄清了每一次的循环y的赋值情况就很好理解了。就本题的循环过程是这样的： 首先将k1赋值0，也就是从0开始循环。这么说有点罗嗦：这个时候y=10,前面的y=20已经被覆盖了。然后进入最内层的循环，执行最后一句，y的最终输出值为40（print y在循环体外）,y=y+10=20+10=30，再一次循环,再一次执行y=10要弄明白这个问题

rs("n" & i)