Question

[VB]:编写一个函数过程Strrev(),能将字符串参数反转顺序后返回。

Answer 1

vb自身就有一个函数strreverse

StrReverse函数

描述

返回一个字符串，其中一个指定子字符串的字符顺序是反向的。

语法

StrReverse(string1)

参数string1是一个字符串，它的字符顺序要被反向。如果string1是一个长度为零的字符串("")，则返回一个长度为零的字符串。如果string1为Null，则产生一个错误。

Answer 2

Private Function Strrev(s1 As String) As String
Dim s As String
For i = 1 To Len(s1)
s = s & Mid(s1, Len(s1) - i + 1, 1)
Next i
Strrev = s
End Function

嘿嘿 顺手刚写的 还是热乎的呢

Answer 3

Function Strrev(S As String) As String
Dim i As Long
Strrev = ""
For i = 1 To Len(S)
Strrev = Mid(S, i, 1) + Strrev
Next i
End Function