首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有下面程序代码: 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
2018-07-11
46
问题
设有下面程序代码:
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/GzFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为List1的列表框,然后编写如下程序:PrivateSubForm_Click()Fori=1To10Item="Item"&i:List1.AddItemItemNextiEndSub程序
设有如下程序:PrivateSubForm_Click()num=InputBox("请输入一个实数"):P=InStr(num,".")IfP>0ThenPrintMid(num,P+11ElsePrint"END"
在窗体上画一个名称为C0mmandl的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()c=1234c1=Trim(Str(c))Fori=lTo4PrintNextEndSub
有如下过程代码:Subvar_dim()StaticnumaAsIntegerDimnumbAsIntegernuma=numa+2:numb=numb+1:printnuma;numbEndSub连续3次调用va
在标准模块中,将a定义为全局整型变量的语句是
以下合法的VB变量名是
窗体上有名称为Command1的命令按钮和名称为Text1的文本框PrivateSubCommand1_Click()PrivateSubText1_GotFocus()Text1.Text="程序设计"
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画出包含三个命令按钮的控件数组,名称为cmd1,下标分别为0、1、2,Caption分别为“开始”、“停止”和“退出”,如图3(A)所示。
以下关于变量作用域的叙述中错误的是( )。
以下关于变量的叙述中,错误的是
随机试题
案情:在甲涉嫌抢劫一案的庭审过程中,其以检察院的书记员乙曾在侦查阶段参与侦查活动为由,对其提出了回避的申请。对审判人员丙以业务素质不高为由提出了回避的申请:对审判员丁是本案被害人的叔叔为由提出了回避的申请。问题:如果决定丁不需要回避,甲能否提
“EXCEL”表格具有计算功能。()
下列为中国左翼美术家联盟成员的作家是()
流行病学科学研究工作由浅人深依次推进的三个工作范畴是
甲公司签发了一张银行承兑汇票,缺少以下哪些记载事项汇票无效?()
各种燃具与电表、电气设备应错位设置,其水平净距不得()mm。
供应商认证的标准中,作业成本主要包括()。
某企业2007年12月31日购入一台设备,入账价值为200万元,预计使用寿命为10年,预计净残值为20万元,采用年限平均法计提折旧。2008年12月31日该设备存在减值迹象,经测试预计可收回金额为120万元。2008年12月31日该设备账面价值应为(
[*]
Thepointoffactoryfarmingischeapmeat,madepossiblebyconfininglargenumbersofanimalsinsmallspaces.Perhapsthegre
最新回复
(
0
)