请问：用vb如何写StrReverse函数的过程

请教：用vb怎么写StrReverse函数的过程？
请教：用vb怎么写StrReverse函数的过程？

[解决办法]

VB code

Function StrRev$(ByVal s$)   Dim ts$   For i = 1 To Len(s)     ts = Mid(s, i, 1) & ts   Next   StrRev = tsEnd Function