比如:00AAAAA,下一个是00AAAAB,00AAAAC......00AAABA,00AAABB.......

解决方案 »

  1.   

    请问楼主你的是几进制?
    0--F,还是0--Z,还是0--z???
      

  2.   

    Private Sub Form_Click()
        Dim x1 As Long, x2 As Long, x3 As Long, x4 As Long, x5 As Long
        Cls
        For x1 = 65 To 90
            For x2 = 65 To 90
                For x3 = 65 To 90
                    For x4 = 65 To 90
                        For x5 = 65 To 90
                        DoEvents
                        Print "00" + Chr(x1) + Chr(x2) + Chr(x3) + Chr(x4) + Chr(x5)
                        Next
                    Next
                Next
            Next
        NextEnd Sub
      

  3.   

    str1="AAAAA"
    print "00";str1
    for i=len(str1) to 1 step -1
     do
     str2=left(str1,i-1) & cstr(iif((asc(mid(str1,i,1))+1)>asc("Z"),asc("A"),asc(right(str1,1))+1)))
     print "00";str2
     loop until right(str2,1)="Z"
    next
      

  4.   

    既然没有直接可以用的函数可用,我就自己写了个,大家也可以参考:
    Private Function CharNumberADD1(startNumber As String) As String
        Dim returnStr As String
        Dim charASCArr(7) As Integer
        Dim i As Integer
        For i = 6 To 0 Step -1
             charASCArr(i) = Asc(Mid(startNumber, i + 1, 1))
        Next
        Dim nextAdd1 As Boolean
        nextAdd1 = True
        For i = 6 To 0 Step -1
          If nextAdd1 = True Then
             nextAdd1 = False
             charASCArr(i) = charASCArr(i) + 1
             If charASCArr(i) > 90 Then
                nextAdd1 = True
                charASCArr(i) = 65
             End If
           End If
        Next
        For i = 0 To 6
         returnStr = returnStr & Chr(charASCArr(i))
        Next
        CharNumberADD1 = returnStr
    End Function
      

  5.   


    不是要把它们遍历出来 ,是要用来放到数据库里做ID的,
    所以要取出最大的值,再加一,
    最大值就是00ZZZZZ啊 或者26*26*26*26*26