请各位大师帮忙给个能把100转化为42c80000的VB6.0代码！！！

Question

请各位大师帮忙给个能把100转化为42c80000的VB6.0代码！！！

Answer 1

Dim s as String
s="100"
Debug.Print "42c800" & Right(s,2)

Answer 2

是将100转换为Single数据类型的4个字节并以16进制字符串显示：Option Explicit
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
    Dim i As Long
Private Sub Command1_Click()
    Dim hexData As String
    Dim a As Single
    Dim Buffer(3) As Byte
    a = 100
    CopyMemory Buffer(0), a, 4
    For i = 0 To 3
        If Len(Hex(Buffer(i))) = 1 Then
            hexData = "0" & Hex(Buffer(i)) + hexData
        Else
            hexData = Hex(Buffer(i)) + hexData
        End If
    Next
    Debug.Print hexData
End Sub

Answer 3

我幻想到他可能是100转换成single,double之类嘿嘿,还是你有心去验证了