急！急！急！高手们，帮帮小弟吧

Question

dim k() as byte
open File for binary as #1
get k,,#1
dim i as long,j as long
for i=0 to ubound(k)
    j=k(i)
next

Answer 1

正确的应该这样：Private Sub Form_Load()
Dim filearr As Byte
    Dim i As Long
    Open Form2.Text1.Text For Binary Access Read As #1  '修改您的文件名
    MsgBox LOF(1)
    For i = 1 To LOF(1)
        Get #1, i, filearr
        Text1.Text = Text1.Text + "&H" + Hex(filearr) + " "
        Form2.Caption = CStr(i)
        DoEvents
    Next
    Close #1
End Sub