问一个十进制转36进制后用0～9和a~z的表示的函数

问一个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