应该是Float类型吧?在vb中是single类型
使用copymemory函数
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Dim bytData(3) As Byte
Dim sngData As Single
sngData = 12.123
'这里把single类型赋值给数组
copymeory bytdata(0),sngdata,4
sngdata = 14.321
'这里把数组赋值给single变量
copymeory sngdata,bytdata(0),4