有如下程序: Private Sub Form—Click() Dim S As String S=InputBox(“请输入一个字符串:”) For i=1 To Len(S)\2 If Mid(S,i,1)Mid(S,Len(S)一i+1,1)Then

admin2017-12-13  26

问题 有如下程序:
Private Sub Form—Click()
Dim S As String
S=InputBox(“请输入一个字符串:”)
For i=1 To Len(S)\2
If Mid(S,i,1)<>Mid(S,Len(S)一i+1,1)Then
Pdnt“No”
Exit Sub
End If
Next i
Print“Yes”
End Sub
运行程序!单击窗体,在输入对话框中输入abcscba,则输出结果为(    )。

选项 A、abc
B、Yes
C、cba
D、No

答案B

解析 程序实现从输入的字符串中查找前半截和后半截中不同的字符,找到后打印No,并退出过程。如果没有找到,则打印Yes。题目中输入字符串abcscba,则Len(s)=7,For循环的上限是Len(S)\2=3,代入循环变量,当i=1时Mid(s,i,1)=a,Mid(S,Len(S)一i+1,1)=a,以此类推,每个字符都相等。选B)。
转载请注明原文地址:https://jikaoti.com/ti/dwy0FFFM
0

最新回复(0)