首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: 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
2020-07-22
24
问题
编写如下程序:
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/QVHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有下面程序代码:PrivateSubCommand1_Click()DimkAsIntegerFork=1To3Callfun(k)NextkFork=1To3
窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger) PrintText1.Text;EndSub运行程序,
下列关于菜单项的描述中,错误的是
设有如下关系表:则下列操作正确的是()。
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger) DimcAsString
在For的二重循环中,内外循环的循环控制变量名
在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:OptionBase0PrivateSubCommand1_Click() DimA1(4)AsInteger,A2(4)AsInteger Fork=0To
设x=4,y=8,z=7,则以下表达式的运算结果是()。x<yAnd(Noty>z)Orz<x
下列选项中不属于结构化程序设计方法的是
随机试题
Theteacherlosthis______whenthemonitortoldhimthatsixstudentswereabsent.
A.肺B.肾C.心脏D.脑E.肝休克代偿期儿茶酚胺分泌增加但不减少血液供应的脏器是【】
[2005年,第85题]圆管紊流粗糙区(阻力平方区)的沿程摩阻系数λ与()。
钢材切割面或剪切面应无裂纹,夹渣,分层和大于1mm的缺棱,当有疑义时,可采取的检查方式有()。
借款人在偿还个人住房贷款时,贷款支付方式可以同时采取委托扣款和柜面还款两种方式。()
某银行的核心资本为500亿元人民币,附属资本为300亿元人民币,风险加权资产为1000亿元人民币,市场风险所需资本300亿元人民币,操作风险所需资本200亿元人民币,则其资本充足率为()。
我国债券市场中,以下不属于交易所市场的交易品种的是()。
"Hightech"and"stateoftheart"aretwoexpressionsthatdescribeverymoderntechnology.Hightechisjustashorterwayof
Hefailedtocarryoutsomeoftheprovisionsofthecontract,andnowhehasto______theconsequences.
WhichofthefollowingisNOTtrue,accordingtothepassageyouhavejustheard?
最新回复
(
0
)