VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 翻转一个字符串
发表评论(0)作者:, 平台:, 阅读:11867, 日期:2000-03-29
翻转一个字符串

下面的函数利用递归原理获得字符串的翻转字符串

Function reversestring(revstr As String) As String

' revstr: 要翻转的字符串

' 返回值:翻转后的字符串


Dim doreverse As Long


reversestring = ""

For doreverse = Len(revstr) To 1 Step -1

reversestring = reversestring & Mid$(revstr, doreverse, 1)

Next


End Function