Office中国论坛/Access中国论坛

标题: [已解决]如何用循环结构反向显示输入的字符串 [打印本页]

作者: huangqinyong 时间: 2008-4-8 00:54
标题: [已解决]如何用循环结构反向显示输入的字符串
例如：输入asdfghjkl，则需要显示结果是；lkjhgfdsa

[ 本帖最后由 huangqinyong 于 2008-4-8 10:05 编辑 ]

作者: Grant 时间: 2008-4-8 01:04
Debug.Print StrReverse("abc")
现拿现用

作者: tmtony 时间: 2008-4-8 01:28
呵呵,不错的方法

作者: gdfsslec 时间: 2008-4-8 08:14
学习

楼主在什么场合用？

作者: huangqinyong 时间: 2008-4-8 09:04

原帖由 Grant 于 2008-4-8 01:04 发表
Debug.Print StrReverse("abc")
现拿现用

现在不用StrReverse这个函数

作者: huangqinyong 时间: 2008-4-8 10:10
在各位网友的帮助下，按循环结构的方式反向显示问题已解决，为答谢网友，特将代码公布如下：
Public Function gethz0(ByVal strScc As String) As String
Dim i As Integer
For i = 1 To Len(strScc)
gethz0 = gethz0 & Mid(strScc, Len(strScc) - i + 1, 1)
Next
End Function

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)