例子我就不做了，楼主你要学着自己成长。先把帮助文档啃一下。
安装字母递增的例子如下：编写一个内部函数，命名为 递归，然后调用 msgbox(Functions.Execute("递归", "BZ"))
Static data As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim source As String = args(0)
Dim zm As String = right(source, 1)
If zm = "Z" Then
If source.Length = 1 Then
Return "AA"
Else
Return Functions.Execute("递归", left(source, source.Length - 1)) & "A"
End If
Else
zm = data(data.IndexOf(zm) + 1)
Return left(source, source.Length - 1) & zm
End If
加好友 
发短信
Post By：2013/11/30 20:26:00 [显示全部帖子]
