[填空题] 下列程序的作用是：输入一个字符串，将其逆序输出。 说明：在窗体上放置两个文本框控件，其名称分别为Text1和Text2，分别存放输入的字符串和逆序后的字符串，单击窗体上的Command1

[填空题] 下列程序的作用是：输入一个字符串，将其逆序输出。
说明：在窗体上放置两个文本框控件，其名称分别为Text1和Text2，分别存放输入的字符串和逆序后的字符串，单击窗体上的Command1按钮，将把Text1中输入的字符串反序后输出到Text2中。程序运行时的界面如图20-14所示。



Private Sub Command1_Click()
Dim y As String，S As String
S=Text1．Text
【14】
Text2．Text=y
End Sub
Private Sub Rever(S As String,y As String)
Dim i As Integer
y=" "
For i=Len(S) To 1 Step-1
y=y& 【15】
Next i
End Sub

参考答案：

[14]Call Rever(S，y) [15]Mid(S，i，1)

问题解析:

本题Rever()函数的功能是把字符串型形参S逆序存放在字符串形参y中。逆序存入的思路是：先给变量y赋一个空字符串，然后通过一个循环从字符串S的尾部向前一个字符一个字符地分离出字符，并把分离的字符连接到形参y的尾部，当所有的字符都分离出来并连接到字符串形参y的尾部后，y就是S逆序存放后的字符串。根据分析可知，[15]处应填“Mid(S，i，1)”，即从S字符串的第i个位置开始取一个字符。当在Command1按钮上单击时，为把Text1中显示的文字逆序后在Text2中显示出来，可调用Rever过程把字符串S(Text1．Text值)逆序存放到y中，再把y赋值给Text2．Text属性，因此[14]处应填过程调用语句“Call Rever(S，y)”。