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()可實現進制轉換