2. 计算机
  3. 有如下程序： Private Sub Form_Click() Dim S As String s=InputBox("请输入一个字符串：") For i=1 To kn(S)＼2 If Mid(S，i，1)＜ ＞Mid(S，Len(S)-i+1，1)Th

有如下程序： Private Sub Form_Click() Dim S As String s=InputBox("请输入一个字符串：") For i=1 To kn(S)＼2 If Mid(S，i，1)＜ ＞Mid(S，Len(S)-i+1，1)Th

admin2019-07-30  76
问题 有如下程序：
Private Sub Form_Click()
Dim S As String
s=InputBox("请输入一个字符串：")
For i=1 To kn(S)＼2
If Mid(S，i，1)＜ ＞Mid(S，Len(S)-i+1，1)Then
Print"No"
Exit Sub
End If
Next i
Print"Yes"
End Sub
运行程序，单击窗体，在输入对话框中输入abeseba，则输出结果为
选项 A、abe
B、Yes
C、eba
D、No
答案B
解析 程序实现从输入的字符串中查找前半截和后半截中不同的字符，找到后打印N0，并退出过程。如果没有找到，则打印Yes。题目中输入字符串abeseba，则Len(S)=7，For循环的上限是Len(S)＼2=3，代入循环变量，当i=1时Mid(S，i，1)=a，blid(S，Len(S)-i+1，1)=a，以此类推，每个字符都相等。选B。
转载请注明原文地址:https://www.kaotiyun.com/show/wYUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)