Functionreversestring(revstrAsString)AsString
revstr:要翻转的字符串
返回值:翻转后的字符串
DimdoreverseAsLong
reversestring=""
Fordoreverse=Len(revstr)To1Step-1
reversestring=reversestring&Mid$(revstr,doreverse,1)
Next
EndFunction->
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
