vb里反转函数strReverse的代码是什么？

function函数strreverse的代码是什么？？

StrReverse这个是系统自带的函数。

查看msdn可以解决问题的

strreverse函数

描述

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

语法

strreverse(string1)

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

示例如下：

private sub command1_click() msgbox strreverse("visual basic 6.0 ") end sub

sbj518 写的是vb.net代码。 Public Function StrReverse(ByVal sStr As String) As String     Dim i  As Long     Dim c  As String     Dim sl As Long: sl = Len(sStr)     Dim ii As Long     For i = 1 To sl \ 2         ii = sl - i + 1         c = Mid(sStr, ii, 1)         Mid(sStr, ii, 1) = Mid(sStr, i, 1)         Mid(sStr, i, 1) = c     Next     StrReverse = sStr End Function