如何将单数转换成二进制?

我正在整理一些扩展方法,用于将数值转换为二进制等价值。

我们可以用 Convert.ToString() 重载以将这些类型转换为二进制:

Byte
Short
Integer
Long

例如:

Dim iInteger As Integer
Dim sBinary As String

iInteger = Integer.MaxValue
sBinary = Convert.ToString(iInteger, 2)

但是没有超载 Single 接受基值的。单参数重载返回的是科学符号,而不是二进制值。

我试过这个代码,改编自 this answer :

Public Function ToBinary(Value As Single) As String
  Dim aBits As Integer()

  Dim _
    iLength,
    iIndex As Integer

  Select Case Value
    Case < BitLengths.BYTE : iLength = 7
    Case < BitLengths.WORD : iLength = 15
    Case < BitLengths.DWORD : iLength = 31
    Case < BitLengths.QWORD : iLength = 63
  End Select

  aBits = New Integer(iLength) {}

  For iIndex = 0 To iLength
    aBits(iLength - iIndex) = Value Mod 2
    Value \= 2
  Next

  ToBinary = String.Empty

  aBits.ForEach(Sub(Bit)
                  ToBinary &= Bit
                End Sub)
End Function

但不幸的是,它返回的结果不准确:

Input: 1361294667
Result: Assert.AreEqual failed. Expected:<01010001001000111011010101001011>. Actual:<01010001001000111011010110000000>.

我们可以从 程序员视图

鉴于此,我们如何可靠地转换 单身 二进制字符串的值?

--编辑--

this statement : “0.1或0.01没有精确的二进制表示。”