函数问题？

xingzhihao

是否有将字符串倒过来的函数？

例如：

将123456789

变为987654321

高手——请指教

andymark

Function StrRev(str As String) As String


     Dim rts As String


     Dim i As Integer


     For i = 1 To Len(str)


        rts = Mid(str, i, 1) + rts


     Next i


     StrRev = rts


    End Function

xingzhihao

谢谢！andymark