本来想用 Dim temp as long temp AND &HFFFF 这种形式搞定,但是实践证明不行的!!!
Option Explicit Dim bytsj(1) As Byte Dim sj As String Private Sub Command1_Click() bytsj(0) = 255 bytsj(1) = 255 sj = Hex(bytsj(1)) & Hex(bytsj(0)) Text1 = Val("&H" & sj & "&") '2字节转换为10进制数 End Sub
最后我用两个byte了!!!因为byte是0~255了!!!
Dim bytsj(1) As Byte
Dim sj As String
Private Sub Command1_Click()
bytsj(0) = 255
bytsj(1) = 255
sj = Hex(bytsj(1)) & Hex(bytsj(0))
Text1 = Val("&H" & sj & "&") '2字节转换为10进制数
End Sub