设有如下通用过程: Private Function Fun1(s As String) As String Dim st As String For i = 1 To Len(s) st = Chr(Asc(Mid(s, i, 1)) + 1) & st Next i Fun1 = st End Function 在窗体上画一个命令按钮 Command1 和两个文本框 Text1 、 Text2 , 然后编写如下事件过程 : Private Sub Command1_Click() Dim s As String s = Text1.Text Text2.Text = Fun1(s) End Sub prefix="o" ns="urn:schemas-microsoft-com:office:office" ?xml:namespace> 程序运行后 ,若在文本框 Text1 中输入: Visual ,单击命令按钮 , 则在文本框 Text2 中输出的内容是 。