鲁达 首先，需要在窗体上添加两个文本框控件和两个命令按钮控件。如下。
第一种方法
Private Sub Command1_Click() ‘’用内部函数Len， Mid，和for循环。
Dim S1 As String
Dim S2 As String
S1 = Tex
S2 = ""
For I = 1 To Len(S1)
S2 = S2 + Mid(S1, Len(S1) - I + 1, 1)
Next I
Tex = S2
End Sub
第二种方法
Private Sub Command2_Click() ‘直接用’ StrReverse内部函数
S1 = Tex
S2 = StrReverse(S1)
Tex = S2
End Sub
两种方法比较，可知方法2简单又快速，在实际编程中正确运用内部函数也很重要。
程序运行后的界面：