下列程序的作用是:输入一个字符串,将其逆序输出。 说明:在窗体上放置两个文本框控件,其名称分别为Text1和Text2,分别存放输入的字符串和逆序后的字符串,单击窗体上的Command1按钮,将把Text1中输入的字符串反序后输出到Text2中。程序

admin2009-02-13  29

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

   Private Sub Command1_Click()
      Dim y As String,S As String
      S=Text1.Text
     【  】
      TextText=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&【  】
      Next i
   End Sub

选项

答案Call Rever(S,y) ,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)”。
转载请注明原文地址:https://jikaoti.com/ti/cXq0FFFM
0

最新回复(0)