Public Function DEC_to_BIN(Dec As Long) As String '这里是将十进制转成2进制的过程

        DEC_to_BIN = ""

        Dim a As String = ""

        Do While Dec > 0

            a = Dec Mod 2 & a

            Dec = Dec \ 2

        Loop

 

        Dim c As Integer = 16 - a.Length '补到16位不足加0

        MessageBox.Show(a & "/" & c)

        For i = 0 To c - 1

            a = "0" & a.ToString

        Next

 

        DEC_to_BIN = StrReverse(a.ToString)  ' 字符串换向

    End Function '这里是将十进制转成2进制的过程

 

vb.net 十进制转成2进制的过程不足补0且倒序输出

————————————————

版权声明：本文为CSDN博主「B代码」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/whsfysz/article/details/100166877