Question

vb读取文件里的数据到数组里

Dim p() As Integer
ReDim p(size)

Open (Me.CommonDialog1.FileName) For Input As #1
For i = 1 To size
Input #1, p(i)
Text3.Text = p(2) & p(3) & p(4)
Text2.Text = p(1)
Next i
Close #1

为什么这个代码总会显示input pass the end of file?
Size 是文件的大小，然后那两个text只是为了看看读入的数据是多少，没其他作用

Answer 1

Dim p() As Byte
Dim i   As Integer 

Open Me.CommonDialog1.FileName For Binary As #1
    Redim p(LOF(1))
    Get #1, , p
Close #1

For i = 0 To Ubound(p)
    Me.Text2.Text = Me.Text2.Text & CStr(p(i)) & " "
Next i

读取文件数据到数组一般用Binary模式打开文件，数组的数据类型应该为Byte。