最高分跪求大牛递归算法.
我要写一个函数
Function nextmember1(ByVal str As String) As String
Dim a() As Char = "abcdefghijklmnopqrstuvwxyz".ToCharArray
Dim b() As Char = str.ToCharArray
End Function
调用 nextmember "aaaa"
根据a()进行计算
循环匹配b(i)是否为a(UBound(a))
如果不是那么 b(i)=a(i+1) 返回 exit for 并返回"baaa" 如果在调用nextmember "baaa" 返回"caaa"
如果nextmember "zaaa" 那么返回 "abaa" 以此类推...
然后最后就是如果.输入nextmember "zzzz" 那么返回 "aaaaa"
一直没想出来递归算法....跪求大牛...