Dim a() As Double, i As Integer

Private Sub Command1_Click()
Dim v() As Double, i As Integer
      For i = 1 To i = n
      d = a(i)
      e = a(i + 1)
      f = Val(d) + Val(e)
      g = g + f / 2000
      Text1.Text = Text1.Text & vbCrLf & "g"
      Next i
End Sub
Private Sub Form_Load()
    Open "E:\大学\数模\A到B.txt" For Input As #1
       Do While Not EOF(1)
           n = n + 1
   
       ReDim Preserve a(n)
       Line Input #1, b
       a(n) = b
       Print Val(a(n))
       Loop
End

因为我有很多的数据，想利用数组循环计算，但是为什么这个程序运行，就text1 里面什么东西都没有呢？？、？？？？真的是求教啊！！！很急啊！！！！！！

你那个，A到B.txt里面的数据是如何记录的，这里没弄清楚不行（你直接就按顺序文件输入了）
窗体载入事件里面 数组 定义有问题 你是重定义为 a(n) 而且在循环里定义怎么可以 难道循环几次就定义几次？ 而且数组重定义以后 各数组元素全部变为初始值
你那里 n虽然 在加 就算 最后数组元素有值 那也是 最后一个元素有值  因为你循环里 a(n)= b ,就a(n)一个有值


最关键 还是 搞清楚 A到B.txt里面的数据是如何记录的

加一下qq吧

好吧，我正在考虑你这个问题呢，饭都还没吃

For i = 1 To i = n                    '最后面的 i=n 是什么意思？？

for i=1 to i=n

当n=1 时，相当于
for i=1 to -1

当n<>1 时，相当于
for i=1 to 0

text1中怎么会有内容呢？