[已解决]如何用循环结构反向显示输入的字符串

huangqinyong

例如：输入asdfghjkl，则需要显示结果是；lkjhgfdsa

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

Grant

Debug.Print StrReverse("abc")
现拿现用

tmtony

呵呵,不错的方法

gdfsslec

学习
楼主在什么场合用？

huangqinyong

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

现在不用StrReverse这个函数

huangqinyong

在各位网友的帮助下，按循环结构的方式反向显示问题已解决，为答谢网友，特将代码公布如下：
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