首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Private Sub Form_Click() Dim S As String S=InputBox("请输入一个字符串:") For i=1To Len(S)\2 If Mid(S,i,1)<>Mid(S,Len(S)-i+1,1)The
有如下程序: Private Sub Form_Click() Dim S As String S=InputBox("请输入一个字符串:") For i=1To Len(S)\2 If Mid(S,i,1)<>Mid(S,Len(S)-i+1,1)The
admin
2019-01-17
21
问题
有如下程序:
Private Sub Form_Click()
Dim S As String
S=InputBox("请输入一个字符串:")
For i=1To 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/Z0Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名为Command1的命令按钮,然后编写如下代码:OptionBase1PrivateSubCommand1_Click() Dima a=Array(1,2,3,4) j=1 Fori=4T
现有程序如下:OptionBase1PrivateSubForm_Click() Dimx(5,6)AsInteger,y(5)AsInteger Fori=1To5 Forj=1To6 x(i
设窗体文件中有下面的事件过程:PrivateSubCommand1_Click() Dims a%=100 PrintaEndSub其中变量a和s的数据类型分别是( )。
由高中数学可知,对于连续函数f(x),若f(x1)与f(x2)值的符号相反,则在x1和x2之间必存在x0,使得f(x0)=0(该点称为"零点")。设有VB函数:PrivateFunctionf(xAsSingle)AsSingle可以返
执行下列语句:strInput=InputBox("请输入字符串","字符串对话框","字符串")将显示输入对话框。此时如果直接单击"确定"按钮,则变量strInput的内容是( )。
通用对话框Filter属性的作用是
数据字典(DD)所定义的对象都包含于
为了判断字符串变量ch中是否是一个大写字母,需要编写这样一个表达式:当ch中字符为大写字母时,表达式的值为True,否则为False。下面能正确实现这一目的的表达式是
在设计阶段,假定在图片框Picture1中装入了一个图形,为了删除该图片框控件,应采用的正确操作是
结构化程序设计中,下面对goto语句使用描述正确的是
随机试题
号为“人境庐主人”的诗人是()
人体寄生虫中最小的蠕虫卵是
男性,60岁,肠梗阻3天入院。查体:血压70/40mmHg,血钠125mmol/L,血钾3.2mmol/L,血气分析示pH7.31。若需要补充碱剂,如果补充碱剂过快,患者不会发生下列哪种情况
心房颤动发生后可使心排血量下降
患者男,30岁。前列腺增生,尿潴留,来院就诊,遵医嘱行留置导尿术,正确的操作方法是()。
在设计柱下条形基础的基础梁最小宽度时,下列哪项为正确的?()[2011年真题]
1982年中共________第一次把教育列为经济发展的战略重点之一。
(中央财经大学2011年初试真题)稽查人员于2010年5月20日对B市A公司2009年纳税情况进行检查,经过审查,获得如下资料:第一,企业有关情况:A公司是增值税一般纳税人,主要生产不锈钢产品。该公司执行新会计制度与现行税收政策,成本利润率适用
Thehistoryofthecomputerinthetwentiethcenturyisoneofdramaticadaptationandexpansion.Thecomputerhadmodestbeginn
"Cool"isawordwithmanymeanings.Itstraditionalmeaningisusedto【36】atemperaturethatisfairlycold.Astheworldhas【3
最新回复
(
0
)