| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 497 人关注过本帖
标题:数组循环计算 出问题,怎么解决
只看楼主 加入收藏
想念湄湄
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2014-5-3
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:4 
数组循环计算 出问题,怎么解决
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 里面什么东西都没有呢??、????真的是求教啊!!!很急啊!!!!!!
搜索更多相关主题的帖子: 大学 
2014-05-03 11:09
tw_love_code
Rank: 2
来 自:chongqing
等 级:论坛游民
威 望:2
帖 子:34
专家分:97
注 册:2012-7-7
收藏
得分:20 
回复 楼主 想念湄湄
你那个,A到B.txt里面的数据是如何记录的,这里没弄清楚不行(你直接就按顺序文件输入了)
窗体载入事件里面 数组 定义有问题 你是重定义为 a(n) 而且在循环里定义怎么可以 难道循环几次就定义几次? 而且数组重定义以后 各数组元素全部变为初始值
你那里 n虽然 在加 就算 最后数组元素有值 那也是 最后一个元素有值  因为你循环里 a(n)= b ,就a(n)一个有值


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

失踪几年,我又回来啦
2014-05-03 13:24
想念湄湄
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2014-5-3
收藏
得分:0 
回复 2 楼 tw_love_code
加一下qq吧
2014-05-03 13:52
tw_love_code
Rank: 2
来 自:chongqing
等 级:论坛游民
威 望:2
帖 子:34
专家分:97
注 册:2012-7-7
收藏
得分:0 
回复 3 楼 想念湄湄
好吧,我正在考虑你这个问题呢,饭都还没吃

失踪几年,我又回来啦
2014-05-03 14:03
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
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中怎么会有内容呢?

授人于鱼,不如授人于渔
早已停用QQ了
2014-05-03 16:35
快速回复:数组循环计算 出问题,怎么解决
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030792 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved