如何将十进制转换为64位二进制，并将其加载到位数组(而不是字节数组)

Question

请提供转换存储在Int64中的15698的代码，并将二进制位加载到bitarray

请参阅此处的图片图表

Answer 1

由于BitArray构造函数不接受Int64参数，因此需要首先将其转换为字节数组。您可以使用BitConverter类来执行此操作：

Dim input As Long = 15698
Dim b As New BitArray(BitConverter.GetBytes(input))

显然，在转换为字节和位数组时，您可能需要注意字节序。

Answer 2

一些不同的方式。

Dim valueToConvert As Int64 = 15698
Dim bitArray = New Boolean(63) {}
For i As var = 0 To bitArray.Length - 1
    bitArray(i) = (tempVal Mod 2) = 1
    valueToConvert =  valueToConvert >> 1
Next
Dim result as New BitArray(bitArray);