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