如何将整数1001转换成16进制分别存入一个数组(byte型)?

Question

VB中: 一个整数1001, 要以16进制的方式存入一个byte型数组的两个单元中 arr(0),arr(1) , arr()是Byte型,  要求Val("&H" & arr(0)+arr(1))=1001,  请问该怎么写? 急!!!

Answer 1

和你的要求有点差别
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSrc As Any, ByVal ByteLen As Long)
Private Sub Form_Load()
Dim s As Long
Dim arr(1) As Byte
s = 1001
CopyMemory arr(0), s, 4
Debug.Print Hex(arr(0))
Debug.Print Hex(arr(1))
End Sub

Answer 2

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Sub Command1_Click()
    Dim i As Integer
    Dim arr(1) As Byte
    i = 1001
    CopyMemory arr(0), i, 2
    Debug.Print Val("&H" & CStr(Hex(arr(1))) + CStr(Hex(arr(0))))
End Sub

Answer 3

注意：arr(1)　必须在前面