用递归的方法将十进制转换为低进制
'//此程序只适合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