首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Commandl的命令按钮,其单击事件过程如下: Option Base 1 Private Sub Command 1_Click() Dim a(4,4)As Integer
窗体上有一个名称为Commandl的命令按钮,其单击事件过程如下: Option Base 1 Private Sub Command 1_Click() Dim a(4,4)As Integer
admin
2020-04-18
51
问题
窗体上有一个名称为Commandl的命令按钮,其单击事件过程如下:
Option Base 1
Private Sub Command 1_Click()
Dim a(4,4)As Integer
For i=1 To 4
Forj=1 To 4
a(i,j)=Int(Rnd*100)
Next
Next
x=a(1,1)y=a(1,1)
For i=1 To 4
Forj=1 To 4
Ifx<a(i,j)Then x=a(i,j)
Ify>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/arTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommand1_Click()x=InputBox("请输入一个字符:")SelectCasexCaseIs
下列操作中,不能够引发命令按钮Click事件的是
下列叙述中正确的是
设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是()。
开发大型软件时,产生困难的根本原因是()。
设窗体上有名称为Option1的单选按钮,且程序中有语句:IfOption1.Value=TrueThen下面语句中与该语句不等价的是( )。
为了在Form_Load事件过程中用Print方法在窗体上输出指定的内容,首先应执行的操作是
在窗体上画两个文本框(名称分别为Textl和Text2)和一个命令按钮(名称为Commandl),然后编写如下事件过程:PrivateSubCommandl_Cick()x=0DoWhilex
若在窗体模块的声明部分声明了如下自定义类型和数组:PrivateTyperecCodeAsIntegerCaptionAsStringEndTypeDimarr(5)Asrec则下
如果在窗体模块中所有程序代码的前面有语句:Dimx,则x是( )。
随机试题
女性,25岁,发热、咳嗽、流涕2周后热退,但又出现胸闷心悸,心率120次/分,心律不齐,偶闻早搏,心电图:低电压,T波低平,应首先考虑
个人理财最早在()兴起并首先成熟。
某公司在6年建设期内每年年末从银行借款120万元,借款年利率为10%,则该项目竣工时应付本息的总额为()万元。
知觉恒常性是指当知觉条件在一定范围内改变时,人们对事物的知觉印象却可以保持相对稳定不变的特性,知觉恒常性包括形状、大小、明度、颜色和运动恒常性等多种。根据上述定义,下列不能用知觉恒常性解释的是:
程序流程图中带有箭头的线段表示的是( )。
A、B、C、D、B
Dr.BethunecamefromCanadaandWasveryWarmtowardstheWounded.Helovedeverypeople’sfighter.HeWasalwaysinthesickroomo
A、 B、 C、 A题目为询问是否应该由说话者自己来预约欧洲之旅的助动词(Should)疑问句。ShouldI…可用来表达“我需要/应该……吗?”。
St.Patrick’sDayiscelebratedonMarch17,hisreligiousfeastdayandtheanniversaryofhisdeathinthefifthcentury.Lege
Allhisaffairsareupintheair.Theunderlinedpartmeans______.
最新回复
(
0
)