如何将一个无符号integer型变量的高8位放入一个byte型变量中

Question

如上

Answer 1

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Sub Command1_Click()
    Dim intTest As Integer
    Dim bytTest(1) As Byte
    
    intTest = 32767
    CopyMemory bytTest(0), intTest, 2
    Debug.Print bytTest(1)
End Sub

Answer 2

说明一下，对于integer 32767的二进制表达式为 0111 1111 1111 1111
高8位是0111 1111 输出应为127 保存在bytTest(1)
低8位是1111 1111 输出应为255 保存在bytTest(0)

Answer 3

用这个就可以了：Dim I As Integer
Dim B As Byte
I = 32767
B = CByte(I \ 256)
MsgBox B