首页 > 计算机 > 计算机考试 正文

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

时间:2021-07-20 18:50:09 解答: 91 次

[填空题] 下列程序的作用是:输入一个字符串,将其逆序输出。

说明:在窗体上放置两个文本框控件,其名称分别为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)”。

  • 相关题库

请充值VIP继续使用(未注册用户支付后会自动注册登录)

×

95元 29元

VIP截止日期:2024-12-31 10:48:29

←请使用支付宝扫码支付

95元 29元

VIP截止日期:2024-12-31 10:48:29

←请使用微信扫码支付