首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command1_Click() Dim a(3,3) For m=1 To 3 For n=1 To 3 If n=m Or n=4-m Then
在窗体上画1个命令按钮,并编写如下事件过程: Private Sub Command1_Click() Dim a(3,3) For m=1 To 3 For n=1 To 3 If n=m Or n=4-m Then
admin
2015-08-28
29
问题
在窗体上画1个命令按钮,并编写如下事件过程:
Private Sub Command1_Click()
Dim a(3,3)
For m=1 To 3
For n=1 To 3
If n=m Or n=4-m Then
a(m,n)=m+n
Else
a(m,n)=0
End If
Print a(m,n);
Next n
Print
Next m
End Sub
运行程序,单击命令按钮,窗体上显示的内容为( )。
选项
A、2 0 0
0 4 0
0 0 6
B、2 0 4
0 4 0
4 0 6
C、2 3 0
3 4 0
0 0 6
D、2 0 0
0 4 5
0 5 6
答案
B
解析
根据For循环中的If语句的条件n=m or n=4-m中的n=m首先可以得出a(1,1)=2,a(2,2)=4,a(3,3)=6,其次根据n=4-m的条件可以得出a(1,3)=4,a(2,2)=4,a(3,1)=4。而其他的元素值都为0。因此窗体上输出的三行分别是:2 0 4 ,0 4 0,4 0 6。
转载请注明原文地址:https://jikaoti.com/ti/L5J0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
Sub过程与Function过程最根本的区别是()。
语句DimArr(-3To5)AsInteger定义的数组元素个数是()。
文本框TextBox中的内容若要设置为用户不能修改,应设置()属性。
下列程序的功能是:弹出一个对话框询问用户是否输出,如果是,则输出;否则结束。请填空。SubPrintOut()DimaAsIntegera=MsgBox("输出结果?",vblnformation+vbYesNo,"提示:")Ifa=__
下列程序的功能是:调用字体对话框来设置文本框中的字体,单击C。mmand1按钮弹出对话框,进行相应的字体、字号等的设置,然后单击“确定”按钮退出对话框,则将发生哪些变化()。PrivateSubCommand1_Click()Com
下列控件属性中,属性值的类型不相同的一项是()。
下列说法错误的是______。
在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签,两个名称分别为Command1和Conlmand2、标题分别为“开始”和“停止”的命令按钮,然后画一个名称为Timer1的计时器控件,并把其Interval属性设置为500,如图
随机试题
撰写市场研究报告应该注意的问题不包括()
Wemust______earlyinthemorningsoastocatchthefirsttrain.
稀释式自身输血是指在麻醉成功后手术开始前,采集患者一定数量的血液,同时输注一定数量的晶体和胶体溶液以补充有效循环容量且维持其正常稳定,使血液稀释,并在患者失血后回输其先前采集的血液。适用于为避免前负荷过大造成急性左心衰,在麻醉前采集患者全血的自身输血方
从投资者角度看,风险分为两类:市场风险和公司特有风险,下列属于公司特有风险的有:()。
设备制造前的进度控制内容包括( )。
某沿海城市道路改建工程4标段,道路正东西走向,全长973.5m,车行道宽度15m,两边人行道各3m,与道路中心线平行且向北,需新建DN800mm雨水管道973m。新建路面结构为150mm厚砾石砂垫层,350mm厚二灰混合料基层,80mm厚中粒式沥青混凝土,
下列文化现象是在维新变法的思想启蒙作用下发生的有()。①史学革命②诗界革命③清末小说繁荣④京剧形成
图中的“X”等于()。根据材料,以下说法正确的是()。
被告人:刘某,男,30岁。l995年6月因犯故意伤害罪被判处有期徒刑3年,1998年6月刑满释放。景某,男,25岁。1995年7月因盗窃被劳动教养3年,1998年7月解除劳动教养,2000年11月28日因本案被逮捕。20009月间,被告人刘某找到被告人
Intheearly1450’sculturalchangeinEuropefueledagrowingneedfortherapidandcheapproductionofwhitendocuments.Befo
最新回复
(
0
)