转单精度
Dim bs() As Byte = BitConverter.GetBytes(1.25f)For i As Integer = bs.length-1 To 0 Step -1 output.show(DecToHex(bs(i)))Next
转小数
Dim bs() As Byte = {0, 0, &HA0, &H3f}Dim f = BitConverter.ToSingle(bs, 0)msgbox(f)