首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有下面程序代码: Pdvate Sub Commandl_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 T
设有下面程序代码: Pdvate Sub Commandl_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 T
admin
2020-04-18
24
问题
设有下面程序代码:
Pdvate Sub Commandl_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)
Elselfa(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://jikaoti.com/ti/gox0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
标准模块中有如下程序代码:PublicxAsInteger,YAsIntegerSubTempSub()x=10:y=20EndSub在窗体上有1个命令按钮,并有如下事件过程:PrivateSubCommandl_C
在窗体中有一个名为Command1的命令按钮,并编写有以下代码。程序执行时,单击命令按钮,输出的结果为()。PublicSubProcl(nAsInteger,ByValmAsInteger)n=nMod10:
下列程序执行后,其输出结果为().Dima(5)Fori=0To4a(i)=i+1:m=i+1Ifm=3Thena(m-1)=a(i-2)Elsea(m)=a(i)Ifi=2Thena(i一1)=a(m-3)
设窗体上有名称为Option1的单选按钮,且程序中有语句:IfOption1.Value=TrueThen下面语句中与该语句不等价的是( )。
阅读程序:OptionBase1PrivateSubForm_Click()DimArr(3,3)AsIntegerFori=1To3Forj=1To3Ifj=
窗体上有一个名称为Textl的文本框,一个名称为CDl的通用对话框,一个标题为“打开文件”的命令按钮,如图所示。命令按钮的单击事件过程如下:PrivateSubCommandl_Click()CDI.ShowOpenOp
设窗体上有一个标签Labell和一个计时器Timerl,Timerl的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是()。
随机试题
临终关怀的宗旨是
患者平素语音低弱,气短懒言,容易疲乏,精神不振,易出汗,易头晕,活动量减少。舌质淡,舌边有齿痕,脉弱。正确的膳食保健指导是
妊娠合并病毒性肝炎,临近产期有出血倾向可用()
期货公司变更股权或者注册资本,单个股东或者有关联关系的股东拟持有期货公司( )股权的,中国证监会根据审慎监管原则进行审查,做出批准或者不批准的决定。
在封建社会,()每三年一次在省城举行,取中者称“举人”,已有做官资格。
“戏”字在几千年前的商周钟鼎文中就出现了,意思是指一种祭祀性仪式。秦汉时期,娱乐性表演又称“百戏”,包括乐舞、杂技、魔术、马戏等。后来,娱乐性的玩耍也叫“游戏”,所以“戏”原本有仪式、百戏、游戏的含义。 这段话主要是说()。
弗洛伊德认为,儿童在哪个阶段会出现俄狄浦斯情结
Wheredogoodideascomefrom?Forcenturies,allcreditforthesemysteriousgiftswenttofaith,fortuneandsomefairmuses.
Severaldaysago,Icameacrossastrangerinthestreetwhostoppedandaskedmedirections.I【C1】________toshowhimtheway
Intheearly1950stheresearcherswhoproducedthefirstcladglassopticalfiberswerenotthinkingofusingthemforcommunic
最新回复
(
0
)