首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有下面程序代码: 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=
设有下面程序代码: 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=
admin
2017-04-25
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)
m=a(0)n=m
For k=1 To UBound(a)
Ifa(k)>mThen
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://kaotiyun.com/show/1QGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序在运行时输出的结果是()。OptionBase1PrivateSubForm_Click()Dimx(10)Fori=1To10x(i)=10-i+1
为了清除窗体上的一个控件,下列正确的操作是______。
窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是()。PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Fork=1To4
假定程序中有以下语句:answer=MsgBox("String1",,"String2","String3",2)执行该语句后,将显示一个信息框,此时如果单击“确定”按钮,则answer的值为______。
以下命令中能够正确地画出矩形的是()。
下列关于栈的描述中错误的是()。
窗体上有一个列表框和一个文本框,编写如下两个事件过程:PrivateSubForm_Load()List1.Addltem"Beijing"List1.Addltem"Tianjin"List1.Addltem"Shan
假定一个文本框的Name属性为Text1,为了在该文本框中显示“Hello!”,所使用的语句为【】。
下列程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容。请填空。PrivateSubCommand1_Click()x=Val(Text
用Write和Print语句向文件中写入多个数据的差别在于______。
随机试题
肌梭传入纤维的神经冲动可
急进性肾小球肾炎主要的病理改变为
A、硝酸银试剂B、三苯四氮唑盐试剂C、苯胺-邻苯二甲酸试剂D、3,5-二羟基甲苯-盐酸试剂E、过碘酸加联苯胺使还原糖显棕黑色的显色剂是()。
建设工程档案移交应符合的要求包括( )。
发生铁路建设工程质量事故,建设、施工、监理单位应在事故发生后()小时内,向地区铁路监督管理局报告。
据虎门路东耗二村村民小组村民陈先生介绍,两年前,因修建广深沿江高速,包括他在内的26户村民近40亩土地(责任田和自留地)被征用。征用后,广深沿江高速以每亩15.2万元给予了社区补偿款,共600多万元。村小组的小组长多次表示,土地补偿款是集体所有,村小组将用
某中学在新生入学后,做了一项学生课余爱好调查,了解学生兴趣爱好,并依据学校教学计划,组建国学、器乐、生物、物理、航模等兴趣小组。其主要目的是()。
发展性评价的主要功能是()
假设你今天上午和朋友一起参观了一座现代化高中,该校示意图和你们的参观路线(图中的箭头所示)如下:请你写一篇日记,记述你们的参观过程。注意:词数100词左右。
WhichofthefollowingisNOTmentionedasanareainthebilateraltradebetweenChinaandArgentina?
最新回复
(
0
)