首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有下面程序代码: Private Sub Command1_Click() Dim a As Variant a = Array(22, 43, 23, 56, 87, 45, 67, 12, 98, 98, 56, 34, 23, 75
设有下面程序代码: Private Sub Command1_Click() Dim a As Variant a = Array(22, 43, 23, 56, 87, 45, 67, 12, 98, 98, 56, 34, 23, 75
admin
2019-03-14
31
问题
设有下面程序代码:
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 To UBound(a)
If a(k) > m Then
n = m
m = a(k)
ElseIf a(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
解析
n和m都获得数组元素a(0)的值。在For循环中,k=1时,a(k)=a(1)=43,If条件满足,n=a(0),m=a(1)。Else If判断的相同值的条件,只有在大于n并且不等于m的时候才赋值给n。因此n中存储的数永远比m小。而m中的值是数组中最大的值。因此选C。
转载请注明原文地址:https://kaotiyun.com/show/8KFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在数据管理的三个发展阶段中,数据的共享性好且冗余度最小的是
下面对软件测试和软件调试有关概念叙述错误的是
假定有如下的程序段:DimintVarAsIntegerintvar=TruePrintintVar则输出结果是
以下叙述中错误的是( )。
定义无符号整数类为UInt,下面可以作为类UInt实例化值的是( )。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是( )。
(1)在考牛文件灾下有一个工程文件sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框List1中,如图所示。在窗体文
有下面程序代码:PrivateSubCommand1_Click()DimaAsStringa="COMPUTER"n=search(a,"T")PrintIIf(n=0,"未找到",
下面关于控件数组的叙述中正确的是
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1—Click()。循环1Fori=1To3Forj=1To4b(j,i)=a
随机试题
对外币交易采用“两项交易”会计处理观点时,交易发生日与报表编制日之间汇率变动的差额应该()
资金调拨支出包括()
A.可不需特殊处理B.立即行清宫手术C.卧床休息,禁止性生活D.需做凝血功能检查E.尽早使胚胎及胎盘完全排出完全流产的处理
()是指项目的投资建设成为高新技术推广应用的载体,从而推动高新技术产业化及产业技术进步。
收到客户支付的3个月前购买设备的货款15万元。这项经济业务所引起的会计要素变动情况属于()。
下列关于防,范质押操作风险的说法,错误的是()。
美国联邦所得税是累进税,收入越高,纳税率越高。美国有的州还在自己管辖的范围内,在绝大部分出售商品的价格上附加7%左右的销售税。如果销售税也被视为所得税的一种形式的话,那么,这种税收是违背累进原则的:收入越低,纳税率越高。以下哪项如果为真,最能加强题干的结论
关于网络管理的描述中,正确的是()。
Fourboyswenttoschooleverydaybytaxi.Onedayoneoftheboyssaid,"There’sanexamthismorning.Let’sgotoschoollate
Scienceandtechnologyisamongthefactorsthathavetakenthehumancivilizationtothelevelitenjoystoday.Everymilestone
最新回复
(
0
)