Question

vb文本文件数据赋值给二维数组？？{二维数组}}

将文本文件数据赋值给二维数组，文件中行数未知，共两列，每行两列数据以一个tab键位隔开
能不能将文件中数据赋值给两个数组，再进行计算。两个数组维数一致 。我的意思事文件前半部分是一数组，后半部分是一数组。测量二等水准概算的程序

Answer 1

你要做什么计算？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

Answer 2

dim i as integer,a() as integer,r as string
open "c:\1.txt" for input as #1
do while not eof(1)
line input #1,r
i=i+1
loop
close #1
redim a(i,2)
i=0
do while not eof(1)
line input #1,a(i,1),a(i,2)
i=i+1
loop
close #1