首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
2020-02-27
45
问题
窗体上有一个名称为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://www.kaotiyun.com/show/eTTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体模块的声明部分声明变量时,不能使用的关键字是
下面不响应键盘事件的对象是
表达式Int(-15.8)+Fix(.15.8)+Int(15.8)+Fix(15.8)的运算结果是()。
有如下函数过程:Functionfl(xAsInteger)AsLongDimSAsLongDimiAsIntegerS=0Fori=1ToxS=S+iNext
数据库技术的根本目标是()。
以下关于VB特点的叙述中,错误的是( )。
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivateSubCommand1_Click() Dims1AsString,s2AsString Open"
一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈,然后再依次出栈,则元素出栈的顺序是()。
下列选项中,不属于数据模型所描述的内容的是()。
随机试题
Acreditcardisa【36】ofidentification【37】whichtheownermayobtainconsumercreditforthe【38】ofgoodsorservices【39】thanpa
A、链霉素B、吡嗪酰胺C、乙胺丁醇D、利福平E、异烟肼上述选项中,能引起周围神经炎的是
甲苯法测定水分适合于
氙灯有“小太阳”的美称,其主要特点有()。
决算编制过程中应注意的有()。
背景材料:某桥主墩基础为钻孔灌注桩,地质依次为表层5m的砾石、37m的漂石和软岩。主要施工过程如下:平整场地、桩位放样、埋设护筒,采用冲击钻成孔。下放钢筋笼后,发现孔底沉淀量超标,但超标量较小,施工人员采用空压机风管进行扰动,使孔底残留沉渣处于悬浮状态
丽江坝区纳西族的房屋,普遍采用的形式为()。
5人参加一次小测验,试卷上的10道题目均为4选1的单项选择题,若5个人全部答完所有题目,那么不同的答卷最多有()种。
要想走近历史的“原生态”,首要的是要深入发掘一手的可靠的原始史料,要真正读懂历史文本,在史学分析时也应重视解释、追寻研究对象的原貌,尽可能地不作的评论,不带任何偏见。填入画横线部分最恰当的一项是()。
Whatkindofcarwillwebedrivingin2010?Rather【S1】______fromthetypeweknowtoday,withthenext10yearsbringinggreate
最新回复
(
0
)