首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
29
问题
窗体上有一个名称为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/eTTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在名称为Form1的窗体上添加一个名称为L1的标签,标题为“口令”;添加两个文本框,名称分别为Text1、Text2,初始内容为空;再添加三个命令按钮,名称分别为C1、C2、C3,标题分别为“显示口令”、“隐藏口令”、“复制口令”。在程序开始运行时,
把一个名称为mnuOpen的菜单项设置为不可用(呈灰色显示)的语句是()。
在标准模块中用Public关键字定义的变量,其作用域为()。
对长度为10的线性表进行冒泡排序,最坏情况下需要比较的次数为
将数据项"Student"添加到名称为List1的列表框中,并使其成为列表框第一项的语句为( )。
使用Line控件在窗体上画一条从(0,0)到(600,700)的直线,则其相应属性的值应是( )。
语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是( )。
以下选项中,不合法的VisualBasic的变量名是()。
下列选项中,不属于数据模型所描述的内容的是()。
随机试题
中国历史上第—个比较完备的民主主义革命纲领
下列作品中,写了人物一生遭际的传记是()
A.肝轻度大B.肝明显大,肝颈回流征阳性C.早期肝大,晚期缩小D.肝大质软,表面光滑E.肝浊音界上移肝淤血
南五味子总木脂素的含量测定采用( )。
电路如题88图所示,当A、B、C端都输入高电平时,三极管饱和导通,当A、B、C中有一个输入低电平时,三极管截止,这电路对应的逻辑门是()。
由点及面的讲解方法的优点是有利于()。
油价跟人们对未来供求情况的预计有关。产油围根据未来的供求情况来决定是现在出售石油,还是把它留在地下以后再卖。当前市场认为,石油会变得稀缺,需求将上升,所以产油国必将抬高油价。有人认为这一预计是错误的,如果石油供应不变,人们会因为高油价而降低需求。这段文字中
扩大论题和缩小论题在辩论赛中很常见。在相互的辩驳中,辩手们常常故意扩大对方的论题,将对方的论题推到荒谬的地步,以利于本方的反驳和进攻;同时为了利于本方立论与防守,辩手们又常常故意缩小本方的论题。根据上述定义,下列采用了扩大论题的是()。
甲在某酒店公用洗手间滑倒,摔掉了眼镜。经查,甲滑倒系因酒店清洁工乙清洁不彻底,地面湿滑所致。甲的损失应由()。(2018一专一24、2018一法专一14)
3在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Text1),然后编写如下事件过程:PrivateSubCommandl_Click()x=Val(Text1.Text)SelectCaseX
最新回复
(
0
)