首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() For i = 1 To 4 Print Space(12 - 3 * i); For j = 1 To i Print j;
编写如下程序: Private Sub Command1_Click() For i = 1 To 4 Print Space(12 - 3 * i); For j = 1 To i Print j;
admin
2015-08-28
69
问题
编写如下程序:
Private Sub Command1_Click()
For i = 1 To 4
Print Space(12 - 3 * i);
For j = 1 To i
Print j;
Next j
For k = i - 1 To 1 Step -1
Print k;
Next k
Print
Next i
End Sub
程序运行后,单击命令按钮Command1,输出结果为
选项
A、 1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
B、 1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
C、1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
D、 1 2 3 4 3 2 1
1 2 3 2 1
1 2 1
1
答案
C
解析
Print Space(12 - 3 * i)语句为打印空格符。根据变量i的值变化,打印的个数不同。For循环的执行根据变量值进行相应的打印。选C)。
转载请注明原文地址:https://www.kaotiyun.com/show/6OQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮Command1和一个文本框Text1,然后编写如下程序:PrivateSubCommand1_Click()A=InputBox("请输入日期(1~31)")t="旅游景点:"_&IIf(A>0An
数据库管理系统常见的数据模型有层次模型、网状模型和【】三种。
在窗体上面画一个名称为TxtA的文本框,然后编写如下的事件过程:PrivateSubTxtA_KeyPress(Keyasciiasinteger)……EndSub若焦点位于文本框中,则能够触发KeyP
以下叙述正确的是______。
设组合框Combo1中有3个项目,则下列能删除最后一项的语句是()。
要使文本框获得输入焦点,则应采用文本框控件的()方法。
不能脱离控件(包括窗体)而独立存在的过程是()。
在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框,其名称分别为Drive1、Dir1和File1。当改变目录列表框的内容时,要求文件列表框中显示当前选中的文件夹中的内容,则在Dir1_Change事件过程中应使用的语句是______。
对长度为n的线性表进行顺序查找,在最坏情况下所需要的比较次数为______。
表达式Abs(-5)+Len("ABCDE")的值是______。
随机试题
眩晕痰湿中阻证,若痰郁化火,应首选的方剂是
A、秋水仙碱B、美洛昔康C、丙磺舒D、对乙酰氨基酚E、吲哚美辛()可以抑制青霉素在肾小管的分泌,与其合用起到增效作用。
2003年,某中级人民法院在一份判决书中,认定《某某省农作物种子管理条例》(以下简称《条例》)的有关内容“无效”。该省人大常委会已指出某市中级人民法院的行为严重违法,并要求该市人大对此进行纠正,要求省高级人民法院汇报,要求有关方面处理直接责任人和主管领导。
某溢洪道工程建于岩基上,为2级水工建筑物。闸室为开敞式结构,每孔净宽10m,闸墩净高13.8m,其启闭机工作桥为现浇混凝土梁板结构。上游施工围堰为均质土围堰。工程采用散装水泥。工程施工基本结束时,施工单位按水土保持方案实施了水土防治措施。闸墩混凝土浇筑施工
下列各项负债中,其计税基础不为零的有()。
由于微博具有陌生人之间传播信息的功能,因此会放大企业的不良消息。()
袋中有大小、形状相同的红、黑球各一个,现一次有放回地随机摸取3次,每次摸取一个球。试问:若摸到红球时得2分,摸到黑球时得1分,求3次摸球所得总分为5的概率。
数据传输率的单位是【 】。
Everyoneknowsthattaxationisnecessaryinamodernstate:【21】______it,itwouldnotbepossibletopaythesoldiersand
Educationisnotanend,butameanstoanend.72.Inotherwords,wedonoteducatechildrenonlyforthepurposeofeducating
最新回复
(
0
)