首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下: Option Base 1 Private Sub Command1_Click() Dim a(4, 4) As Integer For i = 1 To 4
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下: Option Base 1 Private Sub Command1_Click() Dim a(4, 4) As Integer For i = 1 To 4
admin
2015-06-30
65
问题
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:
Option Base 1
Private Sub Command1_Click()
Dim a(4, 4) As Integer
For i = 1 To 4
For j = 1 To 4
a(i, j) = Int(Rnd * 100)
Next
Next
x = a(1, 1)
y = a(1, 1)
For i = 1 To 4
For j = 1 To 4
If x < a(i, j) Then x = a(i, j)
If y > a(i, j) Then y = a(i, j)
Next
s = s + a(i, i)
Next
Print x, y, s
End Sub
关于以上程序,以下叙述中错误的是
选项
A、二维数组元素的值是不大于99的随机整数
B、计算结果x是二维数组各元素中的最大数
C、计算结果y是二维数组各元素中的最小数
D、计算结果 s是二维数组各行第一个元素之和
答案
D
解析
程序首先通过For循环给数组a元素赋值。取随机数函数返回的值介于0和1之间。乘以100后取整介于0和99。故A)正确。接下来对x和y赋初值(a的第一个元素),在循环内部进行数据大小的比较,把当前比x大的存入x,比y小的存入y,循环结束后,x中存储的是最大值,y中存储的是最小值。故B),C)对。s中存储一维和二维下标相同的数组元素的和。选D)。
转载请注明原文地址:https://kaotiyun.com/show/FrQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在链表的运算过程中,能够使空表与非空表的运算统一的结构是______。
在子过程Sub…EndSub中使用的形式参数可以是()。
关于多行结构条件语句的执行过程,正确的说法是()。
在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为Listl、Commandl和Labell,通过属性窗口把列表框中的项目设置为:“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后,在列表框中选择一个项目,然后单击命令按钮
设有以下函数过程:Functiofun(mAsInteger)AsIntegerDimkAsInteger,sumAsIntegersum=0Fork=mTo1Ste
数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段,其中数据独立性最高的阶段是______。
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Dimarrayl(10;10)AsIntegerDimiA
随机试题
小脑幕切迹疝的典型表现为
A.IL-2B.IL-3C.IL-6D.CSFE.IFN刺激造血细胞集落形成的是
男性,25岁,左上腹疼痛伴恶心呕吐12小时,就诊。于昨晚会餐饮酒,午夜出现左上腹隐痛,2小时后疼痛加重,持续性呈刀割样并向左腰背部放散,诊断为急性水肿性胰腺炎。静脉滴注含钾溶液的常用浓度为
经()批准,可以查询从事生产、经营的纳税人、扣缴义务人在银行或者其他金、机构的存款账户。
简述教学技能训练的原则有哪些。
刘某,男,46岁,年幼时父母离异,现在跟父亲和姐姐一起生活,不再与母亲来往,刘某小学时特别调皮,经常惹事,父亲脾气暴躁,常对他拳脚相加。刘某与父亲的关系一直很紧张,和姐姐则比较亲好。1992年,刘某因严重犯罪被判无期徒刑、剥夺政治权利终身。服刑期间,刘某因
使固定修复体固位的主要固位力是()。
《“七.二八”的那一天》是()创作的。
Yourcreditscorewillplummet,makingitmoredifficulttobuyahouseorfindajob.
Sometimeinthenextcentury,thefamiliarearly-newspaperonthefrontgatewilldisappear.Andinsteadofreadingyournewspap
最新回复
(
0
)