安纳塔汉传奇 下载:vb文本文件数据赋值给二维数组

来源：百度文库 编辑：偶看新闻 时间：2024/05/07 15:56:49
你要做什么计算？aa和bb都可以用于计算的

Private Sub Command1_Click()
Dim aa(), bb(), a, b, n As Integer, i As Integer, fname As String

fname = "d:\1.txt" '文件名，可自行更改

'获得文本文件的行数，实际行数为n+1
Open fname For Binary As #1
a = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
b = Split(a, vbCrLf)
n = UBound(b)

ReDim aa(n, 1),bb(n, 1) '将动态数组定义为二维数组

'开始从文件中读取数据，赋值给二维数组aa和bb
i = 0
Open fname For Input As #1
Do While Not EOF(1)
Input #1, aa(i, 0), aa(i, 1)
bb(i, 0)=aa(i, 0)
bb(i, 1)=aa(i, 1)
i = i + 1
Loop
Close #1

'打印读出的二维数组
Cls
For j = 0 To i - 1
Print aa(j, 0), aa(j, 1)
Next
End Sub
在C中怎么给二维数组赋值 如何给VB多维数组一次性赋值？ 二维数组排序赋值问题 vb多维数组赋值 二维字符串数组赋值的问题 在VB.NET中怎么给数组其中一个赋值 字符串给数组赋值 请问用怎样用VB编写一个程序，能从文本文件中读取数据到数组中 一道VB二维数组排序题 在数据库中如何将一个表的字段做为变量给数组赋值,用VB 在数据库中如何将一个表的字段做为变量给数组赋值,用VB 在数据库中如何将一个表的字段做为变量给数组赋值,用VB 怎样把从键盘输入(java)的一组数据 赋值给一个数组呢?高手来帮个帮吧. java键盘输入数字赋值给数组 c++里怎么给数组元素赋值 初学者,指针给数组赋值问题 vb里的动态数组赋值的问题 用VB编程时怎样用二维数组做函数参数? vb的 二维数组如何添值 如何得到值 VB中怎样重定义二维数组啊? delphi如何读取网络文本文件赋值给label？ VB中怎么能把文本文件读到数组中。 我想把变量赋值给一个数组，怎么办？？ vc构造函数中如何给一个数组赋值