首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序: Option Base 1 Dim a(3,4)As Integer,b(4,3)As Integer Private Sub Command 1_Click()’循环1 For i=1 To 3
设有如下程序: Option Base 1 Dim a(3,4)As Integer,b(4,3)As Integer Private Sub Command 1_Click()’循环1 For i=1 To 3
admin
2019-03-08
40
问题
设有如下程序:
Option Base 1
Dim a(3,4)As Integer,b(4,3)As Integer
Private Sub Command 1_Click()’循环1
For i=1 To 3
Forj=1 To 4
b(j,i)=a(i,j)
Nextj
Next i’循环2
x=b(1,1)
For i=1 To 4
Forj=1 To 3
Print b(i,j);
Ifx<b(i,J)Then x=b(i,j)
Nextj
Print
Next i
End Sub
程序中的数组a已被赋值。以下关于上述程序的叙述中,正确的是
选项
A、窗体模块中,不能使用Dim声明a、b数组
B、“循环1”可以正常运行
C、“循环2”中循环变量i、j的终值不对,所以不能正常运行
D、程序可以正常运行,x中保存的是数组b中所有元素中最小的数
答案
B
解析
在窗体模块中使用Dim声明模块接变量,也可以声明模块级数组;在循环1中i从1到3,j从1到4,无论是访问b(j,i)还是a(i,j)均在数组的范围内,可以正常运行;在循环2中b(i,i)的值也在数组范围内,循环可以正常运行;最后x里面保存的是数组中最大的数。
转载请注明原文地址:https://kaotiyun.com/show/BlFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体的左右两端各有1条直线,名称分别为Line1、Line2;名称为Shape1的圆靠在左边的Line1直线上(见图);另有1个名称为Timer1的计时器控件,其Enabled属性值是True。要求程序运行后,圆每秒向右移动100,当圆遇到Line2时则停
为了实现对象的自动拖放,应该设置该对象的一个属性。下面设置中正确的是
设变量x中的值是395,则下面语句的输出是Printx\100+((xMod100)\10)*10+(xMod10)*100
A、选择B、投影C、交D、并D关系T中的元素与关系R和关系S中不同元素的总和,因此为并操作。
下面关于列表框Selected属性的叙述中正确的是
设形状控件的Width与Height属性的值相等。下面叙述中正确的是()
下面表达式的值不为5的是()。
下面程序的功能是找出这样一个三位整数:它等于每位数字的阶乘之和,例如145就是这样的数(即145=1!+4!+5!)PrivateSubCommand1_Click()DimxAsInteger,iAsInteger,
为了保存数据,需打开顺序文件"E:\UserData.txt",以下正确的命令是
在For的二重循环中,内外循环的循环控制变量名
随机试题
16世纪末,伽利略通过在比萨斜塔所做的自由落体实验,推翻了亚里士多德关于物体的降落速度与物体的重量成正比的说法:这件事说
A.咯铁锈色痰B.咯粉红色泡沫痰C.咯吐大量鲜血D.咯大量脓痰E.干咳无痰肺炎球菌肺炎,常伴有
患儿,9岁。4周前上呼吸道感染,持续发热,膝关节肿胀疼痛,后背部见淡红色环形斑块,压之褪色。查体:C反应蛋白阳性,血沉增高。该疾病关节炎典型的特点是
王律师是同和律师事务所的一合伙人。某晚因参加朋友的婚宴,不慎遗失了公文包,包中有一份当事人的重要的债权文件的原件,总金额达120万元。由于此文件的丢失导致该当事人败诉,无法追回此120万元。对于此项损失_________。
有防水要求的建筑地面(含厕浴间),下列哪条是错误的?[2003年第56题]
监理规划作为指导项目监理机构全面开展监理工作的技术文件,应经()审核批准。
甲股份有限公司(以下简称甲公司)系医药研发、生产和销售企业,药店集中在一线城市。ABC会计师事务所的A注册会计师负责审计甲公司2014年度财务报表,确定的2014年度甲公司财务报表整体重要性为税前利润的5%,即100万元。甲公司店内收银使用POS系统
人受伤后,如果伤口范围较大或损伤较严重,那么伤口在康复的过程中,尤其是最后结痂时,会有很痒的感觉。产生痒的感觉的原因是()。
下列标志不能申请商标注册的是()。
设f’(x)在[a,b]上连续,且f(a)>0,f’(b)
最新回复
(
0
)