首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
17
问题
窗体上有一个名称为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/YTTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在名称为Form1的窗体上添加一个名称为C1、标题为“改变颜色”的命令按钮,窗体标题为“改变窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图所示。要求:程序中不得使用变量,每个事件过程
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Lbel4和Label3中(窗体外观如图所示
将文本框的()属性设置为True时,文本框可以输入或显示多行文本,且会自动换行。
在窗体上画一个名为Command1的命令按钮,然后编写如下代码:OptionBase1PrivateSubCommand1_Click() Dima a=Array(1,2,3,4) j=1 Fori=4T
有如下函数过程:Functionfl(xAsInteger)AsLongDimSAsLongDimiAsIntegerS=0Fori=1ToxS=S+iNext
下列各语句中,正确的是
在考生文件夹中有一个工程文件sjt5.vbp,如图6所示。运行程序时,从文件中读入矩阵数据并放入二维数组a中。单击“计算”按钮时,将统计矩阵两个对角线的元素中能被3整除的个数,统计结果显示在标签lblFirst中;同时计算矩阵主对角线的元素之和,计算结果显
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为( )。
下列不一定是传值的虚实结合方式的选项是()。
检查软件产品是否符合需求定义的过程称为
随机试题
慢性盆腔炎最主要的病变部位是
为了解居民经常吃排骨汤与血压间的关系,故对某城市社区35岁以上的居民按是否经常进食排骨汤分组,连续观察了10年,随访两组高血压的发病率。最能反映暴露因素与高血压之间关系的指标为
一幽门梗阻患者,血氯83mmol/L,血钾3.2mmol/L,应补给何种液体
下列部门在基金管理人的前、中、后台内部控制中,属于后台部门的是()。
下列关于成本结构,表述错误的是()。
影响企业人力资源管理的内部环境因素不包括()
绿色:健康
公安机关与政府的关系,是公安机关调整各种社会关系的基础。( )
抗日民主政权的“三三制”原则是指()
MicrosoftVisualBasic6.0包括三种版本,其中不包括______。
最新回复
(
0
)