我想了解更深层次的原理，用笔算也能算出来。

VB怎么通过代码实现16进制转化为浮点数呢？？？

补充一下，32位的浮点数就可以了。

版主大大和大神们快来吖！！！！！

浮点数是按二进制的 科学计数法来存储的。
需要了解并且用笔算，就百度 浮点数存储 吧。

代码转化为浮点数？啥意思？
如果是一个浮点数存储模式 解析为 整数， 使用 内存复制 到对应的数据类型的变量中去就是了。

给你这个做参考吧，26进制的。

Private Function Transform26Hex(Value As Long) As String 'add by chris 20130308
Dim strResult As String
Dim strRemainder As Long
Dim strRounded As Long
Dim StrArray()
StrArray = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P")
  Do While Value > 0
        strRemainder = Value Mod 26
        If strRemainder = 0 Then
            strRemainder = 26
            strResult = StrArray(strRemainder - 1) & strResult       ''Chr(strRemainder + 64) & strResult '- 1
        Else
            strResult = StrArray(strRemainder) & strResult
        End If
        Value = (Value - strRemainder) / 26
  Loop
    Transform26Hex = strResult

   
End Function

好的，我去搜一下。

我是想把16进制数转化成浮点数，我要的显示的数据是浮点数。

我还用计算器算了下，得出来的数是对的，但是我不知道具体VB代码咋写。。

没那么复杂吧，只需建立一个double类型数，把数据用copymemory拷贝进该数据所在内存即可。

请问下 数组那里用引号是啥意思？

算现在会算了，不会写代码。。。

调试一下程序，理解下

临时写的代码，不作解释了

Type Ltype
    l As Long
End Type

Type Ftype
    f As Single
End Type

Public Function HEXtoSingle(H As String) As Single
Dim s As String         '中间变量
Dim l As Ltype          '二个是lset命令要求的参数格式
Dim f As Ftype

s = "&H" & H            '生成中间变量
l.l = Val(s)            '转十进制

LSet f = l              '把整数复制到浮点数中
HEXtoSingle = f.f       '返回该代码对应的浮点数

End Function