DEMO:字符串反转

这个例子主要是让用户输入的字符串反转之后显示出来，主要是用到了MID函数、RIGHT函数、自定义函数。

设计过程：

Ⅰ、技术要点：

①MID函数：Mid（string，start[,length]）从start开始取length长的字符串

②Right函数：Right（string，length）从右边取length长的字符串

③自定义函数：工具--添加过程--选择函数（输入要定义的函数名称和访问权限）

Ⅱ、界面设计

一个文本框，一个标签框和一个命令按钮构成了一个简单的字符串反转的窗体。

Ⅲ、功能代码：

Private Sub Command1_Click()
          If Text1.Text = "" Then Exit Sub ' 如果TextBox中的字符为空格,则该指令不执行
          Label1.Caption = ReverseString(Text1.Text) '将字符反转显示在Lebel中
End Sub

Private Sub Form_Load()
        Form1.Caption = "字符反转演示"
        Text1.Text = "" ' 预设TextBox中的起始值为空格
        Label1.Caption = ""
End Sub
Private Function ReverseString(strSource As String) As String
       Dim pos As Integer
       Dim strDummy As String
       Dim intC As Integer
       Const Space As String = " "  '申明Space表示空格
       pos = Len(strSource)  ' pos为字符串的长度
       strDummy = ""
       For intC = Len(strSource) To 1 Step –1
            strDummy = strDummy & Mid(strSource, intC, 1) ' 循环一次在strDummy中加一个字符
       Next intC
       ReverseString = Right(strDummy, Len(strDummy))  ' 获得反转的字符串
End Function