83（10）转化为二进制的过程

83/2=41..1
41/2=20..1
20/2=10..0
10/2=5...0
5/2=2....1
2/2=1....0
因此2进制就该是1010011

Public Function Trans(ss) As String '10进制数转二进制
Dim rValue As Integer
Dim din As Byte
din = Val(ss)
For i = 0 To 7
If (din And 1) = 1 Then
rValue = 1
Else
rValue = 0
End If
aa = rValue & aa
din = Fix(din / 2)
Next i
Trans = aa
End Function

除2取余法。
或者83=64+16+2+1
所以二进制就是1010111