Question

VB 导入文本数据作为一个二维数组的元素，用自定义的函数调用数组元素处理后，以文本形式输出。

文本文件（abc.txt）数据为数值，N行4列，数据之间有空格。二维数组也是N行4列。函数只对同一行的四个元素进行调用处理。处理后的数据输出文本，每行只输出本行的数据处理结果，具体格式为：行号（用来确定是处理的二维数组哪一行的数据），函数1处理结果，函数2处理结果，函数3处理结果 。

Answer 1

思路：
1，由于是N行4列，也就是说行数是不确定的，那就需要使用动态数组，而且不搭巧能用Preserve 关燃枝逗键字，因为使用Preserve 关键字，只能改变列数（只能改变末尾的维数）。这样就需要先打开文本文件，读一遍文件，获得行数。然后用Redim设置数组的行数、列数。
2，数组为数值类型。
3，自定义函数，执行将某一行4个数值型数据转换成4个字符串类型，并连接成一个字符串。

算法描述如下：
1，读取文本文件行数 h
2，Redim 二维数组(h,4) as Integer '假设是整数
3，读取数据到数组
ReDim dd(h, 4) As Integer
Dim i As Integer
i = 0
Open "c:\1234.txt" For Input As #1 '打开文件读。
Do While Not EOF(1) ' 循环至文件尾。
i = i + 1
Input #1, dd(i, 1), dd(i, 2), dd(i, 3), dd(i, 4) '将数据读入数组变量。
Loop
Close #1
4，调用自定义函数，处理并输出
For i = 1 To h
Print i,自定义函数(dd,i)
next i
下面皮卖是自定义函数，处理一行数据的转换和连接：
Private Function 自定义函数(dd() as integer,byval hh as integer) as string
dim Lstr as string
dim i as integer
Lstr=""
for i=1 to 4
lstr=Lstr & Cstr(dd(hh,i))
next i
自定义函数=Lstr
End function