首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有下面程序代码: Private Sub Command1_Click() Dim a As Variant a=Array(22,43,23,56,87,45,67,12,98,98,56,34,23,75,64)
设有下面程序代码: Private Sub Command1_Click() Dim a As Variant a=Array(22,43,23,56,87,45,67,12,98,98,56,34,23,75,64)
admin
2018-10-15
49
问题
设有下面程序代码:
Private Sub Command1_Click()
Dim a As Variant
a=Array(22,43,23,56,87,45,67,12,98,98,56,34,23,75,64)
m=a(0)n=m
For k=1 T0 UBound(a)
Ifa(k)>mThen
n=m:m=a(k)
ElseIfa(k)>n And a(k)<>m Then
n=a(k)
End If
Next k
Print n
End Sub
程序运行时的输出是
选项
A、数组中最大的数(即98)
B、数组中最小的数(即12)
C、数组中第2大的数(即87)
D、数组中第1个数(即22)
答案
C
解析
本题显然是求取数组最大值的,先取得数组的第一个元素作为最大值,然后用m保存最大值;在循环中如果发现了有比m还大的数组元素,则将该元素作为新的最大值,原来的最大值m赋值给n;如果元素不比m大就去比较元素是否大于n,若大于n则将元素赋值给n,所以循环结束后n中的值是数组中第2大的数。
转载请注明原文地址:https://kaotiyun.com/show/vGFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在名称为Form1的窗体上添加一个文本框,其名称为Text1,然后通过属性窗口设置窗体和文本框的属性,实现如下功能:①在文本框中,MultiLine属性设置为True;②ScrollBars属性设置为2;③文本框中显示的初始文本为“
窗体上有一个菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。下列说法错误的是()。
设程序中有以下语句:MsgBox"Visual",,"Basic","等级考试",2执行该语句后,显示一个信息框,以下关于该信息框的叙述中,正确的是
在窗体上画一个名称为Command1的命令按钮,然后编写其Click事件过程代码如下:PrivateSubCommand1_Click()DimiAsInteger,numAsIntegerDoFori=1
以下合法的VB变量名是( )。
在窗体模块的声明部分声明变量时,不能使用的关键字是()。
设在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooks NameAsString*10 TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Co
设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。现经过一系列入队与退队运算后,front=15,rear=15,则循环队列中的元素个数为
设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。现经过一系列入队与退队运算后,front=15,rear=15,则循环队列中的元素个数为
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click() ’循环1 Fori=1To3 Forj=1To4
随机试题
组织规模一定,管理幅度越大,管理层次越()
确定肾功能障碍最敏感的实验室指标是
某年冬季,有一42岁男子,因发热,头痛、腰痛3天,体温在40~40.6℃之间,急诊来院就诊。检查发现:血压70/40mmHg,脉搏110次/分,面部潮红,眼球结膜充血水肿,软腭有网状充血并有出血点,腋下及胸前见散在出血点,心肺未见异常,双肾区叩击痛阳性。
某建设单位拟向银行贷款订购设备,有两家银行可供选择,甲银行年利率为12%,计息期一年,乙银行年利率12%,计息期半年,按复利计算,因此,建设单位的结论是()。
在期货交易发达的国家,被人们视为权威价格,并成为现货交易行为重要参考依据和国际贸易者研究世界市场行情依据的是()。
混合资本债券到期前,如果发行人核心资本充足率低于5%,发行人可以延期支付利息。( )
1.02,4.12,8.6,15.24,()
最高人民检察院对()负责。
对我国社会主要矛盾作出规范性表述的文件是()
W:IdohopePeterdowellinhisstudiesthissemester.M:______
最新回复
(
0
)