none
请问,产生以下字符串序列的代码怎么写? RRS feed

  • 问题

  • 请问,产生以下字符串序列的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,…
    能自定义起点和终点。谢谢。
    2008年7月6日 7:56

答案

  • 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

     

     

     

    2008年7月7日 1:28
    版主

全部回复

  • 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

     

     

     

    2008年7月7日 1:28
    版主
  • 我把代码修改了一下:
    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

    先前的代码在执行时遇到了些问题。
    2008年7月7日 6:41