标题:使用 vb 读取 tex 文件,并且把每一行的值赋值到数组中,然后调用数组里的值 ...
取消只看楼主
Milita29
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2014-3-25
结帖率:0
已结贴  问题点数:20 回复次数:0 
使用 vb 读取 tex 文件,并且把每一行的值赋值到数组中,然后调用数组里的值进行运算,请问我的算法应该怎么改进
数据文件
21.365
24.052
20
18
1.246
4.562
-3.102
我的程序
Dim fileName As String
Dim startnumber%, endnumber%
Const MyFile = 1
Dim i%
Dim j%
Dim T(100) As Double
Dim s(8) As Double
Open "D:\date.txt" For Input As #MyFile  '打开文件
Input #MyFile, startnumber, endnumber '读文件
For i = startnumber To endnumber
Input #MyFile, T(i)
Next i
Close #MyFile    '关文件
For j = 5 To 7
List1.AddItem T(j)
Next j
2014-04-20 10:16



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-430340-1-1.html




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

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