首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
29
问题
编写如下程序:
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全国计算机二级
相关试题推荐
窗体上有一个名称为Labell的标签;一个名称为Timerl的计时器,其Enabled和Interval属性分别为True和1000。编写如下程序:DimnAsIntegerPrivateSubTimer1——Timer()ch:Chr(
以下自定义数据类型的语句中,正确的是
以下过程定义中正确的过程首行是
下面是求最大公约数的函数的首部Functiongcd(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是
窗体上有一个名称为CD1的通用对话框;一个名称为Commandl的命令按钮,相应的事件过程如下:PrivateSubCommandl—Click()CDl.Filter=“AllFile**11TextFile—txtlPPT*ppt”CD
由高中数学可知,对于连续函数f(x),若f(x1)与f(x2)值的符号相反,则在x1和x2之间必存在x0,使得fix0)=0(该点称为“零点”)。设有VB函数:PrivateFunctionf(xAsSingle)AsSingle可以返回fix)
为了使一个复选框被禁用(灰色显示),应把它的Value属性设置为
(1)考生文件夹中有工程文件sjt3.vbp。在窗体上有名称为Combol的组合框,请设置该组合框的属性,使该组合框只能用于选择操作,不能输入文本。窗体上还有两个标题分别为“输入正整数”、“判断”的命令按钮。程序运行时在组合框中选中一项,如图5(A)所示,
下列不能打开工具箱窗口的操作是()。
表达式Sgn(0.25)的值是
随机试题
对环境有重大影响的规划实施后,编制机关应当及时组织环境影响的(),并将评价结果报告审批机关;发现有明显不良环境影响的,应当及时提出改进措施。
A.瓣膜穿孔B.瓣膜闭锁缘粟粒状赘生物C.室间隔缺损D.在已有病变的心瓣膜上形成菜花状、易脱落的赘生物亚急性细菌性心内膜炎的病变特点是
患者,女性,36岁,近年来,感觉双下肢沉重、酸胀,易疲乏,休息后症状减轻。就诊时可见双下肢内侧静脉明显隆起,蜿蜒成团,Trendelenburg试验阳性。治疗的根本方法是
患者,女性,50岁。体检B超发现子宫黏膜下肌瘤,询问护士该肌瘤最常见的临床表现,护士告知
关于《中华人民共和国统计法》,下列表述正确的是()。[2013年中级真题]
下列选项中不属于《义务教育美术课程标准(2011年版)》“欣赏.评述”学习领域目标的是()。
因为4×5=20,所以4和5都是因数,20是倍数。()
群众举报某乡政府违规出让、出租土地。县里准备成立调查组调查。乡里听说后,召集群众开会。把可能问到的问题的答案让村民背会。领导将调查的任务交给你。你怎样保证调查的真实性、准确性?
下列说法正确的是()。
一个汉字的16×16点阵字形码长度的字节数是
最新回复
(
0
)