首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面事件过程: Private Sub Command1_Click() Dim a(20)As Integer,n(5)As Integer Dim m As Integer,Bum As Integer Randomi
有下面事件过程: Private Sub Command1_Click() Dim a(20)As Integer,n(5)As Integer Dim m As Integer,Bum As Integer Randomi
admin
2017-07-28
35
问题
有下面事件过程:
Private Sub Command1_Click()
Dim a(20)As Integer,n(5)As Integer
Dim m As Integer,Bum As Integer
Randomize
For k=1 To 20
a(k)=Int(Rnd*5)+1
Print a(k);
n(a(k))=n(a(k))+1
Next k
Print
m=n(1)
num=1
For k=2 To 5
If n(k)>m Fhen
m=n(k)
num=k
End If
Next k
Print m.num
End Sub
此事件过程运行时会出现2行输出,如果第一行输出是:
4 2 4 1 4 1 4 5 3 2 5 5 1 4 2 3 4 3 4 2
则第2行的输出是( )。
选项
A、5 3
B、7 4
C、3 5
D、4 7
答案
B
解析
在程序过程中定义了两个数组a和n,同时定义了两个整型变量m和num,程序中Randomize的功能是可以消除一个应用程序不断重复使用随机数时,同一序列的随机数会重复出现的情况。程序进入第一个For循环中,将会产生20个[1,5]区间的整数,并将产生的随机数存放到数组a中,语句“n(a(k))=n(a(k))+1”的功能是对产生的[1,5]区间的每个数进行计数统计,并将个数存储到数组n中,接下来的第二个For循环的功能是对区间[1,5]中的每个整数的个数求最大值,并将个数最多的整数进行输出。题目中产生的20个[1,5]区间的整数的个数依次为n(1)=3;n(2)=4;n(3)=3;n(4)=7;n(5)=3,可以得知整数4生成的次数最多,为7次。故程序最终输出7和4,B选项正确。本题选择B选项。
转载请注明原文地址:https://kaotiyun.com/show/KxGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下:PrivateSubCommand1_Click()DimaksInteger
建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为【】、【】、ShowColor、ShowFont和ShowPrinter。
下列符号常量的声明中,()是不合法的。
如果要通过程序代码来一次性删除列表框中所有项目,则应使用的方法是______。
图片框与图像框的区别是图片框可以作为其他控件的父对象,即为容器控件,而图像框只能
VisualBasic中的模块文件的扩展名是______。
使用语句DimAAsInteger声明数组A之后,以下说法正确的是()。
在窗体上画一个命令按钮,然后编写如下程序:(假定变量x是一个窗体级变量)DimxAsIntegerSubinc(aAsInteger)x=x+aEndSubPrivateSubComma
设A="12345678",则表达式Val(Left(A,4)+Mid(A,4,2))的值为()。
VisualBasic一共有设计、运行和中断三种模式,要使用调试工具应该______。
随机试题
A.止泻药B.接触性泻药C.利胆药D.润滑性泻药E.容积性泻药地芬诺酯
男性,4个月,体重5k。腹泻3天,每日7~8次,蛋花汤样、无腥臭,喂奶后呕吐2次。面色稍苍白,上腭裂,精神较差,皮肤稍干燥,眼窝、前囟凹陷,皮下脂肪0.3cm,皮肤弹性较差,哭有泪。四肢末梢较冷,血清钠128mmol/L。当患儿痊愈出院时,对家长可作以
关于投标保证金的退还通常考虑的因素,下列描述正确的有()。
背景资料:某电力建设公司承接2×1000MW电厂建设工程的总承包任务。考虑工期和专业特长的要求,辅助工程采用分包的方式组织建设。在工程建设中发生如下事件:事件一:在发电机转子安装时,施工单位进行了发电机转子安装前单独气密性试验,在试验压
案例一背景:某一级资质装饰施工队承接了一大厦南面石材及北面玻璃幕墙的安装工作。在进行石材幕墙施工中,由于硅酮耐候密封胶库存不够,操作人员为了不延误工期及时采用了不同于硅酮结构胶的另一品牌,事后提供了强度试验报告,证明其性能指标满足了承载力的要求。9
发行人应披露的风险因素包括( )。
某公司明年的经营杠杆系数为2.5,财务杠杆系数为1.8,若明年该公司营业收入降低10%,就会造成每股收益()。
关于职业劳动,正确的说法是()。
关系R、S如下图所示,关系代数表达式π4,5,3(σ1<6(R×S))的输出结果与(34)等价,该表达式与(35)等价。若对关系R、S进行自然连接,所得关系的属性列数和元组个数分别为(36)。
相对于数据库系统,文件系统的主要缺陷有数据关联差、数据不一致性和
最新回复
(
0
)