首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有下面程序代码: 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
设有下面程序代码: 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
admin
2020-04-18
28
问题
设有下面程序代码:
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)>m Then
n=m:m=a(k)
Elselfa(k)>h 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/AgTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要求在程序运行时,如果按住鼠标左键不放而移动鼠标,鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中,如右图所示,放开鼠标左键后,停止同步显示。下面可以实现此功能的程序是( )。
窗体上有一个名称为Commandl的命令按钮,其事件过程如下:PrivateSubCommand1_Click()x=”VisualBasicProgramming”a=Right(X,11)b=Mid(x,7,
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下:PublicxAsIntegerPrivateSubFo
如果要把通用对话框作为颜色对话框使用,在程序运行过程中应该进行的操作是()。
一个工程中包含两个名称分别为Forml、Form2的窗体、一个名称为Func的标准模块。假定在Form1、Form2和Func中分别建立了自定义过程,其定义格式为:Form1中定义的过程:PrivateSubFunl()EndSubForm2
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()Fori=3To1Step-1Sum=0Forj=1Toi
设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是()。
设在工程文件中有一个标准模块,其中定义了如下记录类型TypeBooks NameAsString*10 TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Com
窗体上有1个名称为Label1的标签;1个名称为List1,且含有若干表项的列表框。为了使得单击List1中某个表项时,在Label1中相应地显示该表项,应使用的程序代码为
随机试题
对于加工精度要求()的沟槽尺寸,要用内径千分尺来测量。
简述评价审计证据可靠性的原则。
简述营运资本决策的原则。
甲地调查110名12岁男童身高的标准误是2.6厘米,乙地调查100名12岁男童身高的标准误是1.8厘米,说明
健全(),就是发达地区要采取对口支援、社会捐助等方式帮扶欠发达地区。
设抛物线y2=2x的焦点为F,过点M(,0)的直线与抛物线相交于A,B两点,与抛物线的准线相交于点C,|BF|=2,则△BCF与△ACF的面积之比=()
我国古代民族南来北往,定居繁衍、迁徙流动,河谷两岸的险峻高山为走廊居民筑起了一道道难以逾越的____,____着他们的对外交往,所以走廊地带文化的封闭性、差异性特别显著。依次填入画横线部分最恰当的一项是()。
设0<x<
在网上调查时,被访者可以及时就问卷相关问题提出自己的看法和建议,这说明了网络调查具有(51)________特点。
Thecaris______.Thebikeis______.
最新回复
(
0
)