下面的函数利用递归原理获得字符串的翻转字符串
Functionreversestring(revstrAsString)AsString
revstr:要翻转的字符串
返回值:翻转后的字符串
DimdoreverseAsLong
reversestring=””
Fordoreverse=Len(revstr)To1Step-1
reversestring=reversestring&Mid$(revstr,doreverse,1)
Next
EndFunction->
下面的函数利用递归原理获得字符串的翻转字符串
Functionreversestring(revstrAsString)AsString
revstr:要翻转的字符串
返回值:翻转后的字符串
DimdoreverseAsLong
reversestring=””
Fordoreverse=Len(revstr)To1Step-1
reversestring=reversestring&Mid$(revstr,doreverse,1)
Next
EndFunction->