for循环第一行到最后一行。设置对该列的修改，next。思路就是这样，代码自己想想，有助于你的排错。
溧水网站制作公司哪家好，找成都创新互联！从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作，到程序开发，运营维护。成都创新互联从2013年成立到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联。
dim s() as string
For Each fm1 In Panel1.Controls
dim i=0
if fm1.GetType.ToString = "System.Windows.Forms.TextBox" Then
s(i)=fm1.text
i+=1
End If
Next
有甚多办法，我说个最简单的
dim xstr as string = "abcde"
Xstr = "(" xstr ")"
把sw.writeline放在循环体里面就好了，至于每行加号码，字符串连接就行
这个问题用vb.net比较简单.......
在text1里输入12 85 74 69 73 91 65
在text2里输入第一个数+第二个数
我这个方法的前提是：
text1里的每个数必需由空格分隔
text2里的文本要用+分隔
----------------------------------------------------------
Dim t1() As String
Dim t2() As String
Dim t1l, i As Integer
Dim temp
Dim r As Integer, rs As String
'用Split函数分隔用户的输入
t1 = Split(Text1.Text, " ")
t2 = Split(Text2.Text, "+")
'获取数组t1中一共有几个元素
For Each temp In t1
t1l = t1l + 1
Next
'直接开始相加
For Each temp In t2
r = r + t1(i)
rs = rs t1(i) "+"
i = i + 1
Next
'显示结果
rs = Left(rs, Len(rs) - 1)
rs = rs "=" r
Text3.Text = rs
----------------------------------------------------------
代码就是这样，缺点就是不是说在text2中输入第一个数+第二个数才可以加，输入a+b也可以加
