有如下程序： Private Sub Form_Click() Dim S As String S = InputBox("请输入一个字符串：") For i = 1 To Len(S) \ 2 If Mid(S,

admin2020-07-22 29

问题有如下程序：
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
         Print "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://kaotiyun.com/show/prHp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

有如下程序： Private Sub Form_Click() Dim S As String S = InputBox("请输入一个字符串：") For i = 1 To Len(S) \ 2 If Mid(S,

二级VB

NCRE全国计算机二级

执行下列语句：strInput＝InputBox("请输入字符串"，"字符串对话框"，"字符串")将显示输入对话框。此时如果直接单击"确定"按钮，则变量strInput的内容是(　　)。

窗体上有一个名称为VScroll1的垂直滚动条，为了设定单击滚动条两端箭头时的Value增量值，应设置的属性是

窗体上有1个名称为Listl的列表框，1个名称为Textl的文本框。编写如下程序代码：PrivateSubForm—Load()Listl．AddItem“花卉”Listl．Addhem“绿植”Listl．Add

若要使文本框能够输入多行文本，应该设置的属性是(　　)。

为了通过传值方式来传送过程参数，在函数声明部分应使用的关键字为()。

满足下列条件之一的年份是闰年：1)年份能被4整除但不能被100整除2)年份能被400整除若Y代表年份，下面判断闰年的正确表达式是

下列说法中，错误的是

下列数据结构中，能够按照“先进后出”原则存取数据的是()。

请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“标签”的窗体上画一个名称为Label1的标签，并设置适当属性以满足以下要求：①标签的内容为“计算机等级考试”；②标

下列队列的描述中，正确的是()。

尿道下裂的叙述下列哪项是错误的

左心功能不全最主要的症状是

关于吸入气雾剂吸收与作用特点的说法，错误的是()。

对于索赔争执的解决，需要分析(　　)。

某企业的资产负债率为60%，销售收入为1500万元，净利润为180万元，平均资产总额为1800万元，该企业的权益净利率为()(保留两位小数)。

目前的大学生普遍缺乏中国传统文化的学习和积累。根据国家教委有关部门及部分高等院校最近做的一次调查表明，大学生中喜欢和比较喜欢京剧艺术的只占到被调查人数的14％。下列陈述中的哪一项最能削弱上述观点?

Atwhattimedoesthebankopen?

A—limitedliabilityJ—unfaircompetitionB—businessscopeK—wholesalerC—commercialchannelsL—uncollectibleaccountD—bu

A、NearitsborderwithMyanmarandBangladesh.B、About29kmnorthwestofthecapitalofIndia.C、Rightinthecenterofthecap

有如下程序： Private Sub Form_Click() Dim S As String S = InputBox("请输入一个字符串：") For i = 1 To Len(S) \ 2 If Mid(S,

二级VB

NCRE全国计算机二级

执行下列语句：strInput＝InputBox("请输入字符串"，"字符串对话框"，"字符串")将显示输入对话框。此时如果直接单击"确定"按钮，则变量strInput的内容是( )。

窗体上有一个名称为VScroll1的垂直滚动条，为了设定单击滚动条两端箭头时的Value增量值，应设置的属性是

窗体上有1个名称为Listl的列表框，1个名称为Textl的文本框。编写如下程序代码：PrivateSubForm—Load()Listl．AddItem“花卉”Listl．Addhem“绿植”Listl．Add

若要使文本框能够输入多行文本，应该设置的属性是( )。

为了通过传值方式来传送过程参数，在函数声明部分应使用的关键字为()。

满足下列条件之一的年份是闰年：1)年份能被4整除但不能被100整除2)年份能被400整除若Y代表年份，下面判断闰年的正确表达式是

下列说法中，错误的是

下列数据结构中，能够按照“先进后出”原则存取数据的是()。

请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“标签”的窗体上画一个名称为Label1的标签，并设置适当属性以满足以下要求：①标签的内容为“计算机等级考试”；②标

下列队列的描述中，正确的是()。

尿道下裂的叙述下列哪项是错误的

左心功能不全最主要的症状是

关于吸入气雾剂吸收与作用特点的说法，错误的是()。

对于索赔争执的解决，需要分析( )。

某企业的资产负债率为60%，销售收入为1500万元，净利润为180万元，平均资产总额为1800万元，该企业的权益净利率为()(保留两位小数)。

目前的大学生普遍缺乏中国传统文化的学习和积累。根据国家教委有关部门及部分高等院校最近做的一次调查表明，大学生中喜欢和比较喜欢京剧艺术的只占到被调查人数的14％。下列陈述中的哪一项最能削弱上述观点?

Atwhattimedoesthebankopen?

A—limitedliabilityJ—unfaircompetitionB—businessscopeK—wholesalerC—commercialchannelsL—uncollectibleaccountD—bu

A、NearitsborderwithMyanmarandBangladesh.B、About29kmnorthwestofthecapitalofIndia.C、Rightinthecenterofthecap

执行下列语句：strInput＝InputBox("请输入字符串"，"字符串对话框"，"字符串")将显示输入对话框。此时如果直接单击"确定"按钮，则变量strInput的内容是(　　)。

若要使文本框能够输入多行文本，应该设置的属性是(　　)。

对于索赔争执的解决，需要分析(　　)。