VB中没有专门的将十进制数转换为二进制的函数。
需要自行编写十进制数转换为二进制字符串显示的函数实现。
十进制整数转二进制数：“除以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()可实现进制转换
