繁體中文
当前位置:首页 > 信息世界 > 程序源码 > 详细内容
『vb』字符串反转
发布时间:2009/7/5  阅读次数:2155  字体大小: 【】 【】【


编写一个字符串反转函数invert,如b=“abcde”,则invert(b)等于“edcba”
Function invert(s As Integer) As String
Dim k, slen As Integer
Dim newstr As String
newstr = ""
slen = Len(s)
For k = slen To 1 Step -1
newstr = newstr + Mid(s, k, 1)
Next k
invert = newstr
End Function

上一篇:『vb』判断n是否为素数 下一篇:没有了!
我要评论
  • 匿名发表
  • [添加到收藏夹]
  • 发表评论:(匿名发表无需登录,已登录用户可直接发表。) 登录状态:未登录
最新评论
所有评论[0]
    暂无已审核评论!
 
 版权声明     关于本站      在线留言       登陆管理      个人博客   
 『辰桦网络』. All Rights Reserved
Station construction time: on April 4, 2006