copymemory的反问题

Question

   这里，我想请问，怎么能把一个数据的二进制格式输出出来。比如说double类型的数据是占用8个字节的空间的。我要的是它8个字节中都是什么内容？

Answer 1

    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Sub cmdDouHEX_Click()
    Dim a As Double
    Dim i As Integer
    Dim hexData As String
    Dim Buffer(7) As Byte
    a = Val(Text1)
    CopyMemory Buffer(0), a, 7
    For i = 0 To 7
        Print Buffer(i)
        If Len(Hex(Buffer(i))) = 1 Then
            hexData = "0" & Hex(Buffer(i)) + hexData
        Else
            hexData = Hex(Buffer(i)) + hexData
        End If
    Next
    Text2 = hexData
End SubPrivate Sub Form_Load()
    Text1 = ""
    Text2 = ""
End Sub