首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Commandl的命令按钮,并有如下程序代码: Option Base 1 P1.ivate Sub Command 1.Click() Dim a%(3,3) For i=1 To 3 Forj=1 To 3 Ifi>1 Andj>1
窗体上有一个名称为Commandl的命令按钮,并有如下程序代码: Option Base 1 P1.ivate Sub Command 1.Click() Dim a%(3,3) For i=1 To 3 Forj=1 To 3 Ifi>1 Andj>1
admin
2018-10-18
33
问题
窗体上有一个名称为Commandl的命令按钮,并有如下程序代码:
Option Base 1
P1.ivate Sub Command 1.Click()
Dim a%(3,3)
For i=1 To 3
Forj=1 To 3
Ifi>1 Andj>1 Then
a(i,j)=a(a(i—l,j一1),a(i,j—1))+1
Else
a(i,j)=i*j
End If
Next
Next
Print a(2,2);a(3,3)
End Sub
运行程序,单击命令按钮,窗体上显示的是
选项
A、1 3
B、2 1
C、2 2
D、3 3
答案
D
解析
本题是一个二维数组的赋值问题,要判断清哪一个数组元素的值被赋值成了多少。首先确定a(1,1)=1,a(1,2)=2,a(1,3);3,a(2,1)=2,a(3,1)=3;然后按照公式计算其余的元素。
转载请注明原文地址:https://jikaoti.com/ti/PIm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
某人为计算n!(0<n<=12),编写了下面的函数过程:PrivateFunctionfun(nAsInteger)AsLongDimpAsLongp=1Fork=n-1T
如果一个菜单项的Enabled属性被设置为False,则程序运行时,该菜单项()。
窗体上有1个名称为Command1的命令按钮,事件过程如下:PrivateSubCommand1_Click()Dimx%,y%,z%x=InputBox("请输入第1个整数")y=InputBox("
以下关于VB文件的叙述中,正确的是()。
定义无符号整数类为UInt,下面可以作为类UInt实例化值的是()。
要使得文件列表框File1中只显示文件扩展名为jpg的图片文件,则下列正确的语句是
设运行程序时弹出的菜单如图所示.关于该菜单,以下叙述中错误的是( )。
能够产生1到50之间(含1和50)随机整数的表达式是( )。
以下说法中正确的是( )。
定义无符号整数类为UInt,下面可以作为类UInt实例化值的是( )。
随机试题
英美法系承认仅依当事人的合意而有效的婚姻,这种婚姻是()
男性,50岁,血栓闭塞性脉管炎患者,患肢皮肤苍白,麻木,行走一段路后,感小腿疼痛,需止步休息,休息后疼痛缓解可再行走。患者Fontaine分期是【】
由一般原理推导出关于个别情况的结论,这种论证方法是()
中国某公司与甲国Rerp公司因一宗投资项目产生争议,Rerp公司向甲国法院起诉中国某公司并获得胜诉判决。中国某公司败诉后就同一案件向我国法院提起诉讼。Rerp公司以该案件已经甲国法院判决生效为由对中国法院提出管辖权异议。依据我国法律、司法解释以及我国缔结的
( )不按照委托监理合同的约定履行监理义务,对应当监理的项目不检查或不按规定检查,给建设单位造成损失的,应当承担相应的赔偿责任。
某人购买了一台电压表,刻度为0~10V,使用说明书中给出它的最大允许误差为±0.2%。在×10一档下使用,最大示值误差出现在80V处,其相对误差为-0.15%。为了保证其正确使用,对该电压表的计量特性分析如下:×10一档下的最大示值误差为()
234,118,58,30,14,()。
一项工程原计划由甲、乙两队合作30天完成。甲队提前完成了上一项工程,所以先独自开工。24天之后乙队加入,两队一起工作了12天。此时甲队退出该项工程,由乙队单独又干了15天才完工。问:若该项工程由乙队单独干,需要多少天完工?
Scientistsaresupposedtochangetheirminds.【F1】Havingadoptedtheirviewsonscientificquestionsbasedonanobjectiveeval
Notetakingisacomplexactivitythatrequiresahighlevelofabilityinmanyseparateskills.Firstly,thestudenthasto
最新回复
(
0
)