如何将浮点数存放到字节数组里？？？？？

Question

你没有说是什么类型,我以8字节double为例子了Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Const LEN_OF_DOUBLE = 8
Const LEN_OF_SINGLE = 4Private Sub Command1_Click()
Dim dblNumber As Double
Dim dblTest As Double
Dim byteDouble(LEN_OF_DOUBLE -1)
dblNumber = 123.456
CopyMemory byteDouble(0), dblNumber, LEN_OF_DOUBLE
'test
CopyMemory dblTest, byteDouble(0), LEN_OF_DOUBLE
Debug.Print dblTest
End Sub