[填空題] 下列程序的作用是：輸入一個(gè)字符串，將其逆序輸出。

說(shuō)明：在窗體上放置兩個(gè)文本框控件，其名稱分別為Text1和Text2，分別存放輸入的字符串和逆序后的字符串，單擊窗體上的Command1按鈕，將把Text1中輸入的字符串反序后輸出到Text2中。程序運(yùn)行時(shí)的界面如圖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()函數(shù)的功能是把字符串型形參S逆序存放在字符串形參y中。逆序存入的思路是：先給變量y賦一個(gè)空字符串，然后通過(guò)一個(gè)循環(huán)從字符串S的尾部向前一個(gè)字符一個(gè)字符地分離出字符，并把分離的字符連接到形參y的尾部，當(dāng)所有的字符都分離出來(lái)并連接到字符串形參y的尾部后，y就是S逆序存放后的字符串。根據(jù)分析可知，[15]處應(yīng)填“Mid(S，i，1)”，即從S字符串的第i個(gè)位置開(kāi)始取一個(gè)字符。當(dāng)在Command1按鈕上單擊時(shí)，為把Text1中顯示的文字逆序后在Text2中顯示出來(lái)，可調(diào)用Rever過(guò)程把字符串S(Text1．Text值)逆序存放到y(tǒng)中，再把y賦值給Text2．Text屬性，因此[14]處應(yīng)填過(guò)程調(diào)用語(yǔ)句“Call Rever(S，y)”。