VB字节数组与浮点数相互转换

来自链接 https://bbs.csdn.net/topics/60230602，https://zhidao.baidu.com/question/174853612210120244.html

1.方式1

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Command7_Click()
    Dim f1 As Single
    Dim l_datas(3) As Byte
    '''
    f1 = 10.1
    CopyMemory l_datas(0), f1, 4
    Debug.Print l_datas(0)
    Debug.Print l_datas(1)
    Debug.Print l_datas(2)
    Debug.Print l_datas(3)
    '''
    CopyMemory f1, l_datas(0), 4
    Debug.Print f1
End Sub

2.方式2

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Command4_Click()
    Dim f1 As Single
    Dim l_datas(3) As Byte
    f1 = 10.1
    CopyMemory ByVal VarPtr(l_datas(0)), ByVal VarPtr(f1), 4
    Debug.Print l_datas(0)
    Debug.Print l_datas(1)
    Debug.Print l_datas(2)
    Debug.Print l_datas(3)
End Sub