vb中如何十進制轉換二進制？

10進制數轉換為2進制數的方法，其實就是把10進制數不斷除以2，然后把每次相除的余數按逆序的方式排列出來就是了（此方法適用于10進制數轉換為任意n進制數，只要把上述的2換為n即可，當然，如果n大于10，就要用其他符號來代替大于10的數了，比如16進制的ABCDEF）

d = Val(InputBox("請任意輸入一個整數")) 'd是任意一個10進制整數

n = 2 '轉為二進制

h = "" 'h是用來存放二進制數的字符串

Do While d > 0 '如果d大于0就繼續循環

h = (d Mod 2) & h '把d與2相除的余數進行拼接

d = d \ 2 '把d與2進行整除

Loop

MsgBox d & "轉為二進制是" & h '顯示結果