首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有如下程序: Private Sub Form_Click() Dim S As String S = InputBox("请输入一个字符串:") For i = 1 To Len(S) \ 2 If Mid(S,
有如下程序: Private Sub Form_Click() Dim S As String S = InputBox("请输入一个字符串:") For i = 1 To Len(S) \ 2 If Mid(S,
admin
2018-05-08
18
问题
有如下程序:
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://jikaoti.com/ti/Nuy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
对于含有多个窗体的工程而言,以下叙述中正确的是
为了使文本框同时具有垂直和水平滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为
可以产生30~50(含30和50)之间的随机整数的表达式是
编写如下程序:PrivateSubCommandl_Click()DimstrlAsString.str2AsStringstr1=InputBox(”输入一个字符串”):subfstr
编写如下程序:PrivateSubCommand1Click()DimmAsInteger,nAsIntegerm=1:n=0DoWhilem<20
有下面程序代码:PrivateSubCommandl_Click()DimsignAsIntegersign=1a=1:b=2Fork=1To5
以下关于窗体的叙述中,错误的是
用户在组合框中输入或选择的数据可以通过一个属性获得,这个属性是()。
一棵二叉树共有25个结点,其中5个是叶子结点,则度为1的结点数为()。
VisualBasic控件一般都规定一个默认属性,在引用这样的属性时,只写对象名而不必给出属性名。默认属性为Caption的控件是( )。
随机试题
男性,40岁,发现右颊黏膜白色斑块1个月,临床检查除右颊孤立白色斑块外未发现其他病损。你认为下列哪项提供的信息丕星以作为本病例的发病因素
抗高血压的药是抗癫痫的药是
秦律师在一起经济案件中,担任一审原告的诉讼代理人。该案上诉后,秦律师又担任原一审被告的诉讼代理人,由于需要追加第三人,二审法院将此案发回重审,秦律师又担任第三人的诉讼代理人。对秦律师的行为,应该给予什么处分?()
混凝土坝,坝段分缝分块型式可分为()。
某办公楼工程,建筑面积35000m2,地下2层,地上15层,框架筒体结构,外装修为单元式玻璃幕墙和局部干挂石材。场区自然地面标高为-2.00m,基础底标高为-6.90m,地下水位标高-7.50m,基础范围内土质为粉质黏土层。在建筑物北侧,距外墙轴线2.5m
采取抵押担保方式的,贷前调查应调查的内容不包括()。
某公司存货周转期为160天,应收账款周转期为90天,应付账款周转期为100天,则该公司现金周转期为()天。
为向A公司支付购买机器设备的货款,B公司向自己开户的C银行申请开具银行承兑汇票。C银行审核同意后,B公司依约存入C银行300万元保证金,并签发了以自己为出票人、A公司为收款人、C银行为承兑人、金额为1000万元、见票后3个月付款的银行承兑汇票,C银行在该汇
Weoftentendtoassociatesmilingastheresultofapositiveeventormood.Butresearchdemonstratesthattheactofsmiling,
Thatboywithapairofspectacleswithgold______haswonseveralscholarshipsinhisschool.
最新回复
(
0
)