请问，产生以下字符串序列的代码怎么写？

Question

请问，产生以下字符串序列的Basic代码怎么写？
a,b,c,d,…,x,y,z,aa,ab,ac,…,ax,ay,az,ba,bb,bc,…,bx,by,bz,ca,cb,cc,…,cx,cy,cz,…,zx,zy,zz,aaa,aab,aac,…
能自定义起点和终点。谢谢。

Answer 1

Code Snippet

 

private function AddStr(str)

  if str="z" then

return "aa"

  elseif right(str,1)='z' then

'进位

return addstr(left(str,len(str)-1))  &  "a"

  else

'字符加一

return left(str,len(str)-1) & chr(asc(right(str,1))+1)

end function

 

 

 

Answer 2

我把代码修改了一下：

Function AddStr(ByVal MyString As String) As String
    If MyString = "z" Then
        Return "aa"
    Else
        If Strings.Right(MyString, 1) = "z" Then
            Return AddStr(Strings.Left(MyString, Len(MyString) - 1)) & "a"
        Else
            Return Strings.Left(MyString, Len(MyString) - 1) & Chr(Asc(Strings.Right(MyString, 1)) + 1)
        End If
    End If
End Function

先前的代码在执行时遇到了些问题。