需要自行编写十进制数转换为二进制字符串显示的函数实现。
十进制整数转二进制数:“除以2取余,逆序排列”(除二取余法)。
实现代码:
PublicFunctionDECtoBIN(DecAsLong)AsString'十进制数转换为二进制数的字符显示函数
DECtoBIN=""
DoWhileDec>0
DECtoBIN=DecMod2&DECtoBIN
Dec=Dec\2
Loop
EndFunction
PrivateSubCommand1_Click()
DimaAsLong
a=InputBox("a=",a)
Debug.PrintDECtoBIN(a)
EndSub
使用Python内置函数:bin()、oct()、int()、hex()可实现进制转换