首页 > 学院 > 开发设计 > 正文

翻转一个字符串

2019-11-18 17:51:17
字体:
来源:转载
供稿:网友
下面的函数利用递归原理获得字符串的翻转字符串
Functionreversestring(revstrAsString)AsString
'revstr:要翻转的字符串
'返回值:翻转后的字符串

DimdoreverseAsLong

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

EndFunction->


发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表