首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim a(3, 3) As Integer Dim b(3, 3) As Integer For i = 1 To 3 For j = 1 To 3
编写如下程序: Private Sub Command1_Click() Dim a(3, 3) As Integer Dim b(3, 3) As Integer For i = 1 To 3 For j = 1 To 3
admin
2018-12-20
21
问题
编写如下程序:
Private Sub Command1_Click()
Dim a(3, 3) As Integer
Dim b(3, 3) As Integer
For i = 1 To 3
For j = 1 To 3
a(i, j) = i + j
b(i, j) = a(i, j) + i * (j - 1)
Next j
Next i
For i = 1 To 3
For j = 1 To 3
Print b(i, j);
Next j
Print
Next i
End Sub
程序运行后,单击命令按钮Command1,输出结果为
选项
A、2 3 4
3 4 5
4 5 6
B、 2 4 6
3 6 9
4 8 12
C、 3 5 7
5 8 11
7 11 15
D、 4 6 8
7 10 13
10 14 18
答案
B
解析
第一个For循环对数组a和数组b的元素赋初值。第二个For循环实现答应。嵌套循环先执行内循环,条件不满足时退出执行外循环。直到外循环也不满足条件时结束。选B)。
转载请注明原文地址:https://jikaoti.com/ti/mhm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序计算并输出的是( )。PrivateSubCommand1_Click() a=10 s=0 Do s=s+a*a*a a=a-1 LoopUntila
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()c=1234c1=Trim(Str(c))Fori=1To4 Print NextEndSub程序
有如下过程代码:Subvar_dim() StaticnumaAsInteger DimnumbAsInteger numa=numa+2 numb=numb+1 printnuma;numbEndSub连续3次
在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,再编写如下程序:DimssAsStringPrivateSubText1_KeyPress(KeyAsciiAsInteger) IfChr(KeyAsc
为了使标签控件在显示其内容时不覆盖其背景内容,需进行设置的属性为( )。
VisualBasic中的"启动对象"是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic"启动对象"的描述中,错误的是( )。
数据库管理系统是( )。
下面描述中不属于数据库系统特点的是
在关系数据库中,用来表示实体间联系的是
随机试题
根据有效积温法则可以进行虫情预测预报。()
二氧化碳在血液中运输的方式有
A.呕吐不食,或呕吐清涎B.妊娠初期,恶心欲呕,晨起尤甚C.妊娠初期,呕吐酸水、苦水D.妊娠初期,呕吐痰涎,胸脘满闷E.妊娠初期,呕吐剧烈,于呕或呕吐苦黄水甚则血水
A、乳房放射状切口B、乳房梭形切口C、乳房下缘弧形切口D、乳晕部弧形切口E、乳晕边缘弧形切口乳房脓肿切开引流取
在人寿保险核保中,保险人考虑的最重要的因素之一是( )。
甲有限责任公司(以下简称甲公司)为增值税一般纳税人,适用的增值税税率为13%,产品售价均为不合税售价,产品销售成本按经济业务逐项结转。2019年1月1日所有者权益总额为5600万元,其中实收资本3000万元,资本公积1000万元,盈余公积600万
直角三角形斜边上的中线等于斜边长的一半。其判断形式是()
宋词按其风格分成哪两大派?(中山大学2010翻译硕士)
设α1=(1,2,1)T,α2=(2,3,a)T,α3=(1,a+2,-2)T,若β1=(1,3,4)T可以由α1,α2,α3线性表示,但是β2=(0,1,2)T不可以由α1,α2,α3线性表示,则a=________
AssoonasitwasrevealedthatareporterforProgressivemagazinehaddiscoveredhowtomakeahydrogenbomb,agroupoffirea
最新回复
(
0
)