首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: 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
有如下程序: 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
admin
2017-12-13
55
问题
有如下程序:
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://kaotiyun.com/show/kuGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项失效(变灰),应使用的语句为______。
以下程序的功能是:把当前目录下的顺序文件smtext1.txt的内容读入内存,并在文本框Text1中显示出来。请填空。PrivateSubCommand1_Click()DiminDataAsStringText1.Tex
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:DimkAsIntegerPrivateSubForm_Load()k=15EndSubPrivateSubCommand1_C
在循环体中,可以使程序转让控制权,以便让操作系统处理其他的事件的语句是______。
系统符号常量的定义可以通过______获得。
在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的Text属性置空,编写命令按钮Commandl的Click事件代码:PrivateFunctionfun(xAsLong)AsBooleanIfxMod
设有下列二叉树:对此二叉树先序遍历的结果是
软件生命周期中花费时间最多的阶段是
窗体如图l所示。要求程序运行时,在文本框Textl中输入一个姓氏,单击”删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能:PrivateSubCommandI_Click()D
在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中”待选城市”下的Listl列表框中有若干个城市名称。程序运行时,选中Listl中若干个列表项,如图2-62(a)所示,单击”选中”按钮则把选中的项目移到List2中;单击”显示”按钮,则在Textl文
随机试题
WTO《与贸易有关的投资措施协议》的主要内容及其意义是什么?
有机磷酸酯类引起的急性中毒表现为
幼年犬发生眼睑内翻后,手术治疗正确的是
第5题中,该产品的发展策略可以有()。
工程建设监理是指监理单位受()委托,对工程建设实施的监督管理。
背景资料:某桥主墩基础为钻孔灌注桩,地质依次为5cm的砾石、37cm的漂石和软岩。主要施工过程如下:平整场地、桩位放样、埋设护筒,采用冲击钻成孔。下放钢筋笼后,发现孔底沉渣量超标,但超标量较小,施工人员采用空压机风管进行扰动,使孔底残留沉渣处于悬
下列说法中,符合银行贷款发放的计划、比例原则的是()。
对供应商的奖惩包括两种类型:其一是因________的划分而产生的奖惩;其二是根据业绩考核而产生的奖惩。
对企业的绩效管理系统进行总体评价。应从()等内容入手。
小王、小李、小张和小周4人共为某希望小学捐赠了25个书包,按照数量多少的顺序分别是小王、小李、小张、小周。已知小王捐赠的书包数量是小李和小张捐赠书包的数量之和;小李捐赠的书包数量是小张和小周捐赠的书包数量之和。问小王捐赠了多少书包?
最新回复
(
0
)