如何用VBS程序把十进制数字转换成二进制数字？

m=""

k=inputbox("输入数据","十进制转二进制",10)

do

t=k\2

m=m&k mod 2

k=t

Loop Until k<1

msgbox StrReverse(m)

VB 的十六进制数字前缀是 &H ，不是 0x ，所以把 0x785bdbe2 改为 &H785bdbe2 ，

二进制数据在注册表中低位显示在前，所以要在注册表中看到 78 5b db e2 ，应该用 &He2db5b78

VB 中用 &H 表示的十六进制数最多 4 字节

function bin2dec(bin)

dim i

for i=len(bin) to 1 step -1

if mid(bin,i,1)="1" then bin2dec=bin2dec+2^(i-1)

next

end function

msgbox bin2dec("111010101101")

---