<p>十进制转换成二进制<br />
<br />
function DecToBin(number)<br />
dim remainder<br />
remainder = number<br />
do while remainder > 0<br />
DecToBin = CStr(remainder mod 2) & DecToBin<br />
remainder = remainder 2<br />
loop<br />
end function<br />
<br />
document.write(DecToBin(8) & "") 显示为 1000<br />
十进制转换成八进制<br />
<br />
Oct(number)<br />
<br />
返回表示数字八进制值的字符串。<br />
<br />
document.write(Oct(10) & "") 显示为 12<br />
十进制转换成十六进制<br />
<br />
Hex(number)<br />
<br />
返回表示十六进制数字值的字符串。<br />
<br />
document.write(Hex(10) & "") 显示为 A，注意是大写。<br />
二进制转换成十进制<br />
<br />
function BinToDec(binStr)<br />
dim i<br />
for i = 1 to Len(binStr)<br />
BinToDec = BinToDec + (CInt(Mid(binStr, i, 1)) * (2 ^ (Len(binStr) - i)))<br />
next<br />
end function<br />
<br />
document.write(BinToDec("1010") & "") 显示为 10<br />
八进制转换成十进制<br />
<br />
使用 &0。数字 0，不是字母 o。<br />
<br />
document.write(&010 & "") 显示为 8<br />
document.write(Int("&0" + "10") & "") 显示为 8<br />
十六进制转换成十进制<br />
<br />
使用 &H。<br />
<br />
document.write(&HA & "") 显示为 10<br />
document.write(Int("&H" + "A") & "") 显示为 10</p>