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 l(0 To 0) As Long Dim c(0 To 3) As Byte l(0) = 99999 CopyMemory c(0), l(0), 4 Dim i As Integer For i = 0 To 3 Debug.Print c(i); Next i End Sub 159 134 1 0
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Sub Command1_Click()
Dim l(0 To 0) As Long
Dim c(0 To 3) As Byte
l(0) = 99999
CopyMemory c(0), l(0), 4
Dim i As Integer
For i = 0 To 3
Debug.Print c(i);
Next i
End Sub 159 134 1 0
我不懂这个,整数怎么会占12个字节上面的代码反过来就可以合成long型。