更好的**：
public function cton(byval sinnum as string, byval n as double) as string
轉換至n進製(n<=36)
dim dx as double, ix as long
const snum as string = "0123456789abcdefghijklmnopqrstuvwxyz"
if not (len(sinnum) > 0 and len(sinnum) <= 15 and n > 0 and n <= 36) then exit function
dx = cdbl(sinnum)
do while dx > 0
ix = dx - int(dx / n) * n + 1 ix = dx mod n +1 用mod會溢位
cton = mid$(snum, ix, 1) & cton
dx = int(dx / n)
loop
end function
public function ntoc(byval sinnum as string, byval n as double) as double
n進製轉換至10進製(n<=36)
dim ix as long, iy as long
const snum as string = "123456789abcdefghijklmnopqrstuvwxyz"
if (n >= 2 and n <= 36) then
iy = len(sinnum)
for ix = 0 to iy - 1
ntoc = ntoc + (instr(1, snum, mid$(sinnum, iy - ix, 1), vb
textcompare)) * (n ^ ix)
next ix
end if
end function
vb中文字和二進位制相互轉換
strtobyte 字串 位元組陣列 bytetostr 位元組陣列 字串 可轉換中英文混合字元.private sub strtobyte s as string,b as byte dim i as long dim p as long dim b1 as byte,b2 as byte for...
進製間的相互轉換
我們的電腦中儲存的是二進位制的值，同樣php可以進行相應的轉換，那麼通過簡單的方法告訴大家，本部落格只是學習時候的筆記 十轉其他 2,8,16 規則 十進位制數，除以目標進製。會得到餘數和商。如果商不為零，繼續使用商除以目標進製，取得餘數和商。直到商為零，此時將所有的餘數，從下倒上連線即可 int ...
進製之間的相互轉換
進製的區別 進製常用的有二進位制 八進位制 十進位制以及十六進製制。電腦的讀寫就是使用的二進位制 例 當值為十的時候，怎麼區分二進位制 八進位制 十進位制 十六進製制 二進位制 0b1010 八進位制 012 十進位制 10 十六進製制 0xa 一 進製的運算與轉換 二進位制運算與轉換 0000 0...