Dim bByte as Byte
Dim nFreeNum as Integer
Dim lFileLength as Long
nFreeNum=FreeFile
Open sFile For Binary As nFreeFile
lFileLength=LOF(nFreeFile)
Dim i As Long
For i=1 To lFileLength
Get #nFreeNum,i,bByte
Text1.Text="Code=" & Str(bByte) & " And Char=" & Chr(bByte)
Next i
Close nFreeFile
'bByte就2进制文件一个字节的内容
Chr(bByte)就是显示的字符,有时候不可见