抽脑脊液后有啥反应和后遗症:求用VB编写将N进制数转换成十进制数的通用程序

来源:百度文库 编辑:中科新闻网 时间:2024/05/02 19:00:40

asp写的,支持10以下进制,16进制自己添加一下abcdef的选择就行

'十进制转M进制
function DexTo(num,m)
dim tmp
tmp = ""
do while(num>=1)
tmp = tmp & cstr(num mod m)
num = int(num / m)
loop
DexTo = StrReverse(tmp)
end function

'M进制转10进制
function ToDex(num,m)
dim tmp,i
tmp = 0
i = 0
do while(num>=1)
tmp = tmp + cstr(num mod 10)*pow(i,m)
num = num / 10
i = i + 1
loop
ToDex = tmp
end function

'M的NUM次方
function pow(num,m)
pow = 1
for i=1 to num
pow = pow * m
next
end function

几个转换函数
OCT 八进制
HEX 十六进制
二进制的自己想办法:除二取余数
不用多说了吧,这么简单的
要还是不明白的话,跟我联系
QQ:/*null*/