首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
26
问题
窗体上有一个名称为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全国计算机二级
相关试题推荐
在鼠标事件过程MouseDown和MouseUp中,参数Button的值为1、2、4时,分别代表按下鼠标的______、______和______按钮。
下列程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容。请填空。PrivateSubCommandl_Click()x=Val(
在链表的运算过程中,能够使空表与非空表的运算统一的结构是______。
假定建立了一个名为Command1的命令按钮数组,则下列说法中错误的是()。
过程语句中,使用的<参数表>可以是下列哪种()。
单击一次命令按钮之后,下列程序代码的执行结果为privateSubCommand1_Click()S=P(1)+P(1)+P(2)+P(3)+P(4)PrintS:EndSubPublicF
随机试题
质量为m的质点做半径为R的圆周运动,角位置随时间变化规律为θ=1+t3(SI),求:质点的法向加速度αn和切向加速度ατ;
肝硬化患者出现全血细胞减少,最主要的原因是
患者男性,82岁,习惯性便秘,遵医嘱行小量不保留灌肠,操作不当的是
男,40岁,有早期肝硬化史,胆囊炎,因劳累,近1周发热39℃,右季肋区不适,腹胀,下肢水肿,巩膜,皮肤深度黄疸,腹腔积液征(+),凝血酶等时间延长,应诊断为
(2008)当光投射到漫反射表面的照度相同时,下列哪个反射比的亮度最高?
根据《堤防工程施工质量评定与验收规程)SL239—1999的规定,堤防工程竣工前的质量抽检项目和数量由()确定。
甲公司是一家生物制药企业,研发出一种专利产品,该产品投资项目已进行可行性分析,厂房建造和设备购置安装工作也已完成,新产品将于2016年开始生产并销售,目前,公司正对该项目进行盈亏平衡分析,相关资料如下:(1)专利研发支出资本化金额150万元,专利有效期1
下面的这些智力测验中,哪一个是团体智力测验?()
以下程序拟实现计算sum=1+1/2+1/3+…+1/50。 #include<stdio.h> main() {inti,doublesum; sum=1.0; i=1; do {i++;sum+=1/i;
TheFoodandDrugAdministrationsaidWednesdaythatitistryingtotrackdownasmanyas386pigletsthatmayhavebeengeneti
最新回复
(
0
)