如何颠倒字符串的次序?ABCD 颠倒后成 DCBA,VB有自带的函数吗?

解决方案 »

  1.   

    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
      

  2.   

    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