新手問題:如何讀取*中的數據？用VB編程把txt文件轉換成二維數組？

Dim s()為字符串，r()為字符串，I為Long，t為字符串

打開“c:\1.txt”作為#1輸入

i = 0

Do直到EOF(1)

線路輸入#1，t

Do While InStr(t，" ")

t = Replace(t，" "，" ")

環

r = Split(t，" ")

如果UBound(r) = 1，則

ReDim Preserve s(1到2，I)

s(1，i) = r(0)

s(2，i) = r(1)

i = i + 1

如果…就會結束

環

關閉#1

對於i = 0到UBound(s，2)

打印s(1，I)，s(2，I)

然後

末端接頭