多进制自动增量的实现.

Question

譬如:要实现36进制(0~9,A~Z),用vb这样实现36进制的自动增量功能,如00Z,010,011,...

Answer 1

Const x As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"Function To36(ByVal Num As Long) As String
    Do
        To36 = Mid$(x, Num Mod 36 + 1, 1) & To36
        Num = Num \ 36
    Loop While Num
End FunctionPrivate Sub Command1_Click()
    Static v As Long
    Command1.Caption = To36(v)
    v = v + 1
End Sub