翻转一个字符串

　2006-02-27 11:41:47　来源：WEB开发网　　　

核心提示：下面的函数利用递归原理获得字符串的翻转字符串Functionreversestring(revstrAsString)AsString'revstr:要翻转的字符串'返回值:翻转后的字符串DimdoreverseAsLongreversestring=""Fordoreverse=L

下面的函数利用递归原理获得字符串的翻转字符串
Functionreversestring(revstrAsString)AsString
'revstr:要翻转的字符串
'返回值:翻转后的字符串

DimdoreverseAsLong

reversestring=""
Fordoreverse=Len(revstr)To1Step-1
reversestring=reversestring&Mid$(revstr,doreverse,1)
Next

EndFunction->