我写了一段代码，注意你读取的方法，我改进了一下 Imports System.IO ‘代码窗体的最上端一定要声明
创新互联建站坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都网站建设、网站设计、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的前进网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sr As StreamReader Dim TextBox As Control
Dim i As Integer
i = 1
For Each TextBox In Me.Controls
If TypeName(TextBox) = "TextBox" Then sr = New StreamReader("c:\save\" i ".ini", System.Text.Encoding.Default) ’注意选择编码方式，按你原来的方法，未设置编码，显示的是乱码！路径请按你的情况改！ TextBox.Text = sr.ReadToEnd()
i += 1 End If
Next
MsgBox("已经载入" i - 1 "个文件") End Sub注意：这样的代码是倒序的，第一个文本框显示的是最后一个文件的内容！请酌情处理！
'假设数组如下
dim d(10) as integer
dim i as integer
for i=lbound(d) to ubound(d)
d(i) = i
next i
'数组各元素之和
dim S as integer = 0
for i=lbound(d) to ubound(d)
s = s + d(i)
next i
msgbox(s)
软糖来回答吧，VB.net用循环是这样的
Dim k = New Integer(9) {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
Dim 和 As Integer
For i = 0 To k.Count - 1
和 += k(i)
Next
计算数组中各元素之和更简单的方法是
使用扩展方法Sum或者Lambda表达式，以下两种均可
Dim 和1 = k.Sum()
Dim 和2 = k.Aggregate(Function(m, n) m + n)
