首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有下面程序代码: 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=1T
设有下面程序代码: 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=1T
admin
2019-04-29
19
问题
设有下面程序代码:
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=1ToUBound(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
解析
本题显然是求取数组最大值的,先取得数组的第一个元素作为最大值,然后用m保存最大值;在循环中如果发现了有比m还大的数组元素,则将该元素作为新的最大值,原来的最大值m赋值给n;如果元素不比m大就去比较元素是否大于n,若大于n则将元素赋值给n,所以循环结束后n中的值是数组中第2大的数。
转载请注明原文地址:https://kaotiyun.com/show/y1Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设变量x中的值是395,则下面语句的输出是Printx\100+((XMod100)\10)*10+(xMod10)*100
设a=10,b=5,c=1,执行语句Printa>b>c窗体上显示的是
以下关于图片框控件的说法中,错误的是
窗体上有一个名称为Textl的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下:PrivateTypexaAsInteger:bAsIntegerEndTypePrivateSubCommand1Click()Di
某二叉树共有7个结点,其中叶子结点只有1个,则该二叉树的深度为(假设根结点在第1层)
现有如下程序:PrivateSubCommandl.Click()s=0Fori=1To5S=s+1j[5+i)NextPrintsEndSubPublicFunctionf(xAsInteger)Ifx>=10
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Commandl,然后编写如下程序:PrivateSubfunc(LAsLabel)PrivateSu.bCommandl_Click()L.Caption=“12
以下关于文件的叙述中,错误的是
下列是VisualBasic中所允许的形式数是()。
窗体上有1个名为Listl的列表框,其中已经输入了若干个项目(如图3所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序。PrivateSubCommand1Click()
随机试题
与教育评估的目标相比,下列只属于教育目标关注的对象是
三相全控桥式整流电路带电阻电感性负载,电路如题32图所示。试写出输出电压的平均值Ud的表达式,并说明触发延迟角口为多大时输出电压平均值Ud最大,最大是多少?触发延迟角α为多大时输出电压平均值Ud最小,最小是多少?
摊派法是指政府将债券委托证券市场代为销售。()
某公司上年销售额为1000万元,销售净利率为12%。其他有关资料如下:(1)上年的财务杠杆系数为1.2,今年的财务杠杆系数为1.5;(2)上年固定经营成本为240万元,今年保持不变;(3)所得税税率为25%;(4)今年的边际贡献为600万元,息税前
中国甲企业为设立中外合资经营企业与外国乙企业协商订立合同,该合同已经外商投资企业审批机关批准,但甲乙就外商投资企业相关事项达成的补充协议未经外商投资企业审批机关批准。已知该补充协议对合同不构成重大或实质性变更,则下列说法正确的有()。
下列情况,满足收入确认条件的有()。
19世纪,爱默生和其他一些作家向读者传授一种称为“自助论”的理论。在这些人看来,一个有个性的人必须要有一颗充实的大脑。在这种思想的指导下,为了得到他人的尊重,有必要在闲暇时广泛涉猎文化史上的杰出著作。同时,也有必要熟悉哲学、神学和世界范围内的重大政治事件。
下列关于TCP/IP参考模型的说法中,不正确的是()。
德育为首就是德育第一位,其他各育可以次之。
A、Topracticedrivingwithanexperienceddriver.B、Todriveundernormalhighwaycondition.C、Tohavethecarcheckedbytheli
最新回复
(
0
)