Private Function OverTurn(strIn As String) As String Dim i As Long Dim strTemp As String
strTemp = "" For i = VBA.Len(strIn) To 0 Step -1 strTemp = strTemp & VBA.Left(VBA.Right(strIn, VBA.Len(strIn) - i), 1) Next i
OverTurn = strTemp End Function
StrReverse 字符串反转函数 (VB6提供) Private Sub Command1_Click() Dim MyStr As String MyStr = "RS-232/RS-485 串口通讯调试器 XP www.tsfigure.com.cn" Label1.Caption = StrReverse(MyStr) End Sub
Dim i As Long
Dim strTemp As String
strTemp = ""
For i = VBA.Len(strIn) To 0 Step -1
strTemp = strTemp & VBA.Left(VBA.Right(strIn, VBA.Len(strIn) - i), 1)
Next i
OverTurn = strTemp
End Function
Dim MyStr As String
MyStr = "RS-232/RS-485 串口通讯调试器 XP www.tsfigure.com.cn"
Label1.Caption = StrReverse(MyStr)
End Sub