首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下: Option Base1 Private Sub Command1_Click() Dim a(4,4)As Integer For i=1To4 For j=1To4 a(i,j)=In
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下: Option Base1 Private Sub Command1_Click() Dim a(4,4)As Integer For i=1To4 For j=1To4 a(i,j)=In
admin
2016-09-19
50
问题
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:
Option Base1
Private Sub Command1_Click()
Dim a(4,4)As Integer
For i=1To4
For j=1To4
a(i,j)=Int(Rnd*100)
Next
Next
x=a(1,1)y=a(1,1)
For i=1To4
For j=1To4
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
解析
随机数函数Rnd的功能是用于产生一个小于1但大于或等于0的随机数,本题中产生的整数不会大于99;后一个二重循环用于遍历整个二维数组并且进行比较,如果数组元素的值大于x则成为新的最大值,小于y则成为新的最小值,循环结束后x是二维数组各元素中的最大数,y是二维数组各元素中的最小数。s中存放的是二维数组对角线元素之和。
转载请注明原文地址:https://kaotiyun.com/show/0pLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请补充完整。PrivateSubForm_Click()DimiAsInteger Open"Num.txt"ForOutputAs#1
要在命令按钮控件上显示图像应()。
在窗体上绘制一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:PrivateFunctionfun(ByValmAsInteger) IfmMod2=0Then fun=2
已知数组A(4,4),各个元素在运行程序时被赋值并打印,形成四除非方阵。请在________和________处填所需的内容,使其产生一个转置矩阵(即行列互换),仍放在数组A中,并打印出来。例如:1234123
在运行程序时,在文本框中输入新的内容,或在程序代码中改变Text的属性值,相应会触发到
事件的方法是用于______。
下面程序执行的结果是()。PrivateSubForm_Click()AS="123":B$="456"C=Val(A$)+Val(B$)PrintC\100EndSub
设有分段函数:以下表示上述分段函数的语句序列中错误的是
下面()不是VB的文件系统控件。
在运行阶段,要在文本框Text1获得焦点时选中文本框中所有内容,如图所示,对应的事件过程是()。
随机试题
男,46岁。左膝部疼痛4个月,出现髋部疼痛10天。无外伤史,每天饮白酒约6两。体格检查:双膝前后抽屉及内外翻试验(-),左“4”字试验(+)。左下肢较右侧短2.5cm,双膝X线检查未见明显异常。该患者最可能的诊断是
ACD保养液对红细胞的保存时间为
含有枸橼酸和碳酸氢钠的颗粒剂,称为
下列可进入血脑屏障的是()
我国商业银行办理收付类业务时,不得向委托方以外的其他单位或个人收费。()
对税务机关作出的逾期不缴纳罚款加处罚款的决定不服的,可申请行政复议,以下符合行政复议管辖规定的有()。
在现实生活中,由于立场和观点不同,对人活着的意义理解不同,人们就会有各种不同的人生观。人生观是人们对()。
首次将封建成文法典总则篇置于律首的是()。
•ReadthearticlebelowaboutHikikomori.•Choosethebestsentencetofillineachofthegaps.•Foreachgap8-12,markone
A、Bettermedicalequipment.B、Morehealthcare.C、Bettereducation.D、Morejobchances.D
最新回复
(
0
)