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且倒序输出