首先，我們需要在窗體上添加兩個文本框控件和兩個命令按鈕控件。如下圖。

Private Sub Command1_Click()    '直接用StrReverse內(nèi)部函數(shù)

     S1 = Text1.Text

     S2 = StrReverse(S1)

     Text2.Text = S2

End Sub

 第二種方法

Private Sub Command2_Click()    '綜合應(yīng)用內(nèi)部函數(shù)Len， Mid，和for循環(huán)。

    Dim S1 As String   'S1存放原文本內(nèi)容

    Dim S2 As String   'S2存放轉(zhuǎn)換后的文本內(nèi)容

    S1 = Text1.Text

    S2 = ''

   For I = 1 To Len(S1)

        S2 = S2 Mid(S1, Len(S1) - I 1, 1)

   Next I

    Text2.Text = S2

End Sub

兩種方法比較，可知方法1不僅簡單而且快速，在VB實際編程開發(fā)中正確運用內(nèi)部函數(shù)非常重要哦。

程序運行后的界面：