VB 如何读取特定位置的十六位的数据 并在Text1里显示成10位的数字

Question

VB 如何读取D盘根目录下的有十六位代码的2.itm文件C 跟D 处的72 04以10位的形式显示在窗口的Text1里，求VB代码

Answer 1

Private Sub Command1_Click()
Dim a(1) As Byte
Open "d:\2.itm" For Binary As #1
Get #1, &HD, a
Close #1
Text1 = Hex(a(0)) & " " & Hex(a(1))
End Sub追问

效果是这样的 （这个应该还是十六位的吧？），不是十位数的 ，能否帮满再改改谢谢

追答

是16位的啊，还要怎么改？

追问

72 4 换算成十位的是不是1138 所以我想 读取的虽然是16位的数据 但是显示成 十位的1138

这个能实现吗

追答

改这句就行了：
Text1 = a(0) + a(1) * 256

追问

Text2 = CDbl("&H" & Hex(a(15)) & Hex(a(14)))
谢谢