首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim a$, b$, c$, c1$, c2$ a = InputBox("请输入一个字符串") b = InputBox("再输入另一个字符串")
编写如下程序: Private Sub Command1_Click() Dim a$, b$, c$, c1$, c2$ a = InputBox("请输入一个字符串") b = InputBox("再输入另一个字符串")
admin
2019-03-14
46
问题
编写如下程序:
Private Sub Command1_Click()
Dim a$, b$, c$, c1$, c2$
a = InputBox("请输入一个字符串")
b = InputBox("再输入另一个字符串")
c = ""
For k = 1 To IIf(Len(a) < Len(b), Len(b), Len(a))
c1 = IIf(k <= Len(a), Mid(a, k, 1), "")
c2 = IIf(k <= Len(b), Mid(b, k, 1), "")
c = c & c1 & c2
Next k
Print c
End Sub
程序运行后,单击命令按钮Command1,然后从键盘依次输入字符串:"12345678"、"ABCDE",则输出结果是
选项
A、A1B2C3D4E5678
B、1A2B3C4D5E678
C、12345678ABCDE
D、ABCDE12345678
答案
B
解析
程序定义了a,b,c,c1,c2五个字符串,将"12345678"、"ABCDE"两个输入的字符串赋值分别给a,b,将空字符赋值给c。IIF函数,IIF(条件,True部分,False部分)如果条件为真,IIF函数返回True部分,当条件为假时,返回False部分。程序通过IIf(Len(a) < Len(b), Len(b), Len(a)),求得a,b两个字符串的最大的长度为8,For循环中的k从1到8。在For循环中,通过字符串截取函数Mid,给c1,c2赋值。Mid(s,n1,n2)指从s的第n1个字符开始,向后截取n2个字符。在前五次执行循环体(当k值不大于5时),a、b的第k个字符构成的字符串分别赋值给c1、c2,并将c,c1,c2连接起来赋值给c。当k大于5时,通过Mid函数,将a的第k个字符构成的字符串赋值给c1,空字符串赋值给c2,并将c,c1,c2连接起来赋值给c。5次循环后c="1A2B3C4D5E",在第6次到第8次循环中,c1值依次为"6"、"7"、"8",,完成循环,c为"1A2B3C4D5E678",故选项B正确。
转载请注明原文地址:https://kaotiyun.com/show/mEUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
对于循环队列,下列叙述中正确的是
下列关于栈的描述中错误的是
一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈,然后再依次出栈,则元素出栈的顺序是
设有如下程序:PrivateSubFormClick(0hum=InputBox(“请输入一个实数”):P=InStr(num,“.”)Ifp>0ThenPrintMid(num,P+1)ElsePrint“END”EndIfE
编写如下程序:PrivateSubCommand1Click()DimnumAsInteger,kAsInteger,nAsIntegernum=InputBox(“请输入一个正整数:”)k=numn=2DoDoWhi
(1)在考生文件夹中有工程文件sjt3.vbp,其中的窗体如图4所示。程序刚运行时,会生成一个有10个元素的整型数组。若选中“查找最大值”(或“查找最小值”)单选按钮,再单击“查找"按钮,则找出数组中的最大值(或最小值),并显示在标签Label2中。请去掉
以下关于DoUntil…Loop循环的说法正确的是()。
在关系代数运算中,有5种基本运算,它们是()。
下列二叉树描述中,正确的是()。
下列关于键盘事件的说法中,正确的是()。
随机试题
折光指数对()非常敏感,因此差示折光法非常容易受干扰。
根据法律的创制和表达的形式,可将法分为()
有关左肺的叙述,错误的是
牙周袋的龈沟底在釉牙骨质界的下方,伴龈沟深度超过多少()
哮病发生的病机主要是
关于口腔流行病学的叙述,错误的是
塑限试验时土中有机质含量不大于()。
除大型线性工程外,界址桩之间的距离,直线最长不得超过()m。
导游人员不应在旅游活动的初期阶段就告诉旅游者具体的日程安排。()
WhySustainableBuildingsNeedtoFocusonCommunityAndCollaboration?[A]Accordingtothegovernment,buildingsintheUKacco
最新回复
(
0
)