十进制转为二进制

'//此程序只适合10转2
Public str$   '转换后字符
Sub Convert()
Dim n&, b&  '需转换字符,转换进置
With Sheet5
n = .Cells(3, 1)  '原始10进制值
b = 2    '需转换成进制
'//将十进制转换为二进制
.Cells(3, 2) = Ten2Two(n, b)
End With
End Sub
'Mod函数--取余数
Function Ten2Two(n, b)
Dim a& '商
If n = 0 Then
Ten2Two = s
Else
str = (n Mod b) & str
Ten2Two = Ten2Two(Int(n / b), b)
End If
End Function