编程论坛 → VB6论坛

数组循环计算出问题，怎么解决

想念湄湄发布于 2014-05-03 11:09， 497 次点击

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 里面什么东西都没有呢？？、？？？？真的是求教啊！！！很急啊！！！！！！

4 回复

#2

tw_love_code2014-05-03 13:24

回复楼主想念湄湄

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

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

#3

想念湄湄2014-05-03 13:52

回复 2 楼 tw_love_code

加一下qq吧

#4

tw_love_code2014-05-03 14:03

回复 3 楼想念湄湄

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

#5

风吹过b2014-05-03 16:35

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中怎么会有内容呢？

1