翻转一个字符串
下面的函数利用递归原理获得字符串的翻转字符串
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->
- 上一篇:在TextBox中查找和继续查找
- 下一篇:查找替换所选字符
收藏文章
精彩图集
精彩文章