怎么实现将浮点数转为十六进制（4位）的?

Question

那位高手指点，怎么实现将浮点数转为十六进制（4位）的?
例如 0.5--------->3F000000

Answer 1

Ok!1、
dim sngNum as single
dim lngNum as longsngnum=0.5CopyMemory(lngnum,sngnum,4)print hex(lngNum)2、
Type udSng
   sng as single
end typetype udLng
   lng as long
end typedim sng as udsng
dim lng as udlngsng.sng=0.5
lset lng=sng
print hex(lngNum)

Answer 2

VB中可以用CopyMemory这个函数吗？

Answer 3

API声明:Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long