怎么样把浮点数转换为字节数组,怎样再把字节数组转换为浮点数?
解决方案 »
- 一个FORM中一个ado控件,能使用两个table吗?
- 更新数据时的SQL问题
- 在一个按钮中用:dim rs as new adodb.recordset定义一个ado记录集,按钮执行完毕会自动释放吗?
- 利用vb代码在windowsxp下创建一个自定义的打印机纸张,诚恳求教!
- 我用imgedit部件来显示tif图像,问:如何实现此部件显示tif图像的局部查看功能?(100分--急)
- 如何在程序运行中拖动MSHFlexGrid控件中(列)行中的数据??
- 如何在ACCESS查询中增加一个自动编号的字段?
- 怎样历遍注册表中一个项下的子项和键值,读出其中得值?
- 请问如何将Access中VBA的多列列表框控件的某一行/列上的元素单独赋值?
- 如何取得exe,dll文件的版本号
- 如何用API来指定一个窗口取得和失去焦点???
- 怎么样把浮点数转换为字节数组,怎样再把字节数组转换为浮点数?急急急
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 SubPrivate 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 '将Single型变量转为字节数组
Dim i As Long
For i = 0 To UBound(buff)
Debug.Print buff(i)
Next
Dim b As Single
CopyMemory b, buff(0), 4 '将字节数组转为Single型变量
Debug.Print b
End Sub