首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有下面程序代码: 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
2015-08-28
51
问题
设有下面程序代码:
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/WhLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设置复选框中或单选按钮的标题对齐方式的属性是______。
下列关于队列的叙述中正确的是______。
启动窗体在【】对话框中指定。
在窗体上画一个命令按钮Command1,然后编写如下程序:PrivateSubCommand1_Click()Dimarr()AsIntegerReDimarr(3)Fori=0To3arr(i)=iNextix=Input
下列程序段的执行结果为______。Dimm(3,3)AsIntegerDimiAsIntegerDimjAsIntegerDimxAsIntegerFori=1To3
两个或两个以上模块之间联系的紧密程度称为()。
算法一般都可以用哪几种控制结构组合而成______。
在窗体上画一个组合框Combo1和一个命令按钮Command1,然后编写如下两个事件工程:PrivateSubformActivate(a=Combo1.List(1)PrintaEndSubPrivateSubfor
数据结构分为逻辑结构和存储结构,循环队列属于______结构。
下列的For语句循环体要执行50次,请填空。Fork=______To-7Step-3
随机试题
下列哪项不是瓜蒌的功效()(2001年第32题)
英国某法院曾审理一件颇为棘手的刑事案。一名叫乔治的年轻人设法进入某皇家空军机场,坐在机场跑道上观看天上的飞机。其被警察带走,并于几天后被送上法庭。乔治的辩护律师为其辩道,《官方机密条例》规定:“不得在禁区附近妨碍皇家军队成员的行动。”虽然军用机场是个“禁区
设f"(x)连续,求证∫abxf"(x)dx=[bf’(b)-f(b)]-[af’(a)-f(a)].
男性,65岁。既往有高血压病史。因反复心前区闷痛1周入院,并出现夜间阵发性呼吸困难,端坐呼吸。查体:血压110/60mmHg,心率106次/分,心尖部可闻及3/6级收缩期杂音,两下肺可闻及稍许细小湿性啰音。双下肢无水肿。此时应采用的药物是
1分子乙酰CoA经过三羧酸循环氧化能生成
按照我国目前的规定,在工程量清单计价过程中,分部分项工程单价不包括()。
原始凭证是登记明细分类账的依据,记账凭证是登记总分类账的依据。()
Mysisterdoesn’tlikeskating,______.
田先生认为,绝大部分笔记本电脑运行速度慢的原因不是CPU性能太差,也不是内存容量太小,而是硬盘速度太慢,给老旧的笔记本电脑换装固态硬盘可以大幅提升使用者的游戏体验。以下哪项如果为真,最能质疑田先生的观点?
Whenyouopenyourelectronicmail,youmayfindinformationabouthowtobuymedicine,cheapairlinetickets,books,computerp
最新回复
(
0
)