怎么样把浮点数转换为字节数组,怎样再把字节数组转换为浮点数?急急急

dqping 2003-11-16 05:33:39
怎么样把浮点数转换为字节数组,怎样再把字节数组转换为浮点数?
...全文
245 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
rainstormmaster 2003-11-16
  • 打赏
  • 举报
回复
咳,注释忘了改,自己改回来吧
rainstormmaster 2003-11-16
  • 打赏
  • 举报
回复
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Command1_Click() '双精度
Dim a As Double
Dim buff() As Byte
ReDim buff(7)
a = 12345.6789
CopyMemory buff(0), a, 8 '将Double型变量转为字节数组
Dim i As Long
For i = 0 To UBound(buff)
Debug.Print buff(i)
Next
Dim b As Double
CopyMemory b, buff(0), 8 '将字节数组转为Double型变量
Debug.Print b
End Sub

Private Sub Command2_Click() '单精度
Dim a As Single
Dim buff() As Byte
ReDim buff(3)
a = 12345.6789
Debug.Print a
CopyMemory buff(0), a, 4 '将Double型变量转为字节数组
Dim i As Long
For i = 0 To UBound(buff)
Debug.Print buff(i)
Next
Dim b As Single
CopyMemory b, buff(0), 4 '将字节数组转为Double型变量
Debug.Print b
End Sub

dqping 2003-11-16
  • 打赏
  • 举报
回复
能不能用APi函数
dqping 2003-11-16
  • 打赏
  • 举报
回复
在VB中呢
dqping 2003-11-16
  • 打赏
  • 举报
回复
能不能写详细点啊
晨星 2003-11-16
  • 打赏
  • 举报
回复
楼主的意思是不是:
float f = ……;
char *p = (char *)&f;
simanh 2003-11-16
  • 打赏
  • 举报
回复
把float变成string,然后一个一个字符取,再转到int,把int变成byte,根据float变byte的规率(或算法)合成byte[]

7,732

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧