读书人

问一个十进制转36进制后用0~9和a~z的

发布时间: 2012-08-28 12:37:01 作者: rapoo

问一个10进制转36进制后用0~9和a~z的表示的函数
问一个10进制转36进制后用0~9和a~z的表示的函数,
如这个实现一个两位的36进制进就行,谢谢了!
最好求好算法,不要速度太慢。

[解决办法]

VB code
Function base10_to_base36(L As Long) As StringDim h As StringDim hex As StringDim d As Long    h = "0123456789abcdefghijklmnopqrstuvwxyz"    hex = ""    Do     d = L Mod 36     hex = Mid(h, 1 + d, 1) + hex     L = L \ 36     If L = 0 Then Exit Do    Loop    base10_to_base36 = hexEnd Function 

读书人网 >VB

热点推荐