首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
如果存在如下过程: Private Function Fun(a()As Integer) Dim First As Integer,Last As Integer,i As Integer First=LBound(a) La
如果存在如下过程: Private Function Fun(a()As Integer) Dim First As Integer,Last As Integer,i As Integer First=LBound(a) La
admin
2013-04-11
60
问题
如果存在如下过程:
Private Function Fun(a()As Integer)
Dim First As Integer,Last As Integer,i As Integer
First=LBound(a)
Last=LBound(a)
Max=a(First)
For i=First To Last
If a(i)>Max Then Max=a(i)
Next
Fun=Max
End Function
在窗体上添加一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
ReDim in(1 To 4)As Integer
m(1=20:m(2)=30:m(3)+50:m(4)=100
c=Fun(m)
Print c
End Sub
单击命令按钮,其输出结果为______。
选项
答案
100
解析
在程序Sub中定义了一个含4个元素的数组,并且分别给它们赋值,数组上界是4,下界为1;将数组m作为实参调用Fmax事件过程,并将数组m的地址传递给数组a,即此时数组a与m共用一个存储空间;将数组的上界和下界分别赋给变量Last和First,在赋值表达式中分别调用了LBound()函数求数组下界及UBound()函数求数组的上界;在循环语句中,变量的初始值为数组的下界为1,终值为数组的上界为4,循环体是一个条件语句,如果a(i)中的值大于Max,就将a(i)的值赋给Max,当循环结束后,将Max作为函数的返回值,所以此事件过程的功能即为求数组中的最大值。
转载请注明原文地址:https://kaotiyun.com/show/1dhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为______。I=0ForG=10To19Step3I=I+1NextGPrintI
下列程序段的结果为______。A="ABBACDDCBA"ForI=6To2Step-2X=Mid(A,I,I)Y=Left(A,I)Z=Right(A,I)Z=X&
数据结构中,与所使用的计算机无关的是数据的______。
下列程序段的执行结果为______。A="abcd"B="bcde"E=Right(A,3)"F=Mid(B,2,3)IfE<FThenPrintE+FElsePrintF+E
在软件危机中表现出来的软件成本高的问题,其原因是______。
为了能自动放大或缩小图像框中的图形以与图像框的大小相适应,必须把该图片框的Stretch属性设置为【】。
下列叙述中,错误的一条是______。
软件测试一般是通过设计测试实例来实现的,它又分为黑箱法和白箱法两类,经验表明,在黑箱测试可选的多种方法中,往往首先使用的是______。
执行语句Open"Tel.dat"ForRandomAs#1Len=50后,对文件Tel.dat中的数据能够执行的操作是______。
已知二叉树后序遍历序列是dabec,中序遍历序列是debac,它的前序遍历序列是
随机试题
关于肠易激综合征的叙述,错误的是
风寒袭肺证咳嗽首选方剂为()
下列作业中,属于高温高湿作业的是()。
工程质量事故处理方案的辅助决策方法中的实验验证,采用的是()。
甲公司是一家服装生产企业,按订单组织生产,2020年9月接受订单加工200件夹克和100件西服。西服和夹克均需先后经过裁剪和缝纫两道作业工序方可完成。原材料均在开工时一次性投入,公司采用作业成本计算法计算成本。公司财务部门和生产技术部门对生产过程进行了分析
如果亚洲和非洲的和平有了保障,那么世界和平就有了保障;而只有彻底铲除恐怖主义,世界和平才能有保障。但是,事实上,恐怖主义在中东不断地制造事端。由此可见()。
将心理学引入教育学的第一人是()。
打开考生文件夹下的演示文稿yswg.pptx,根据考生文件夹下的文件“PPT-素材.docx”,按照下列要求完善此文稿并保存。为第一张幻灯片的副标题、第三到第六张幻灯片的图片设置动画效果,第二张幻灯片的四个文本框超链接到相应内容幻灯片;为所有幻灯片设置
Accordingtotheprofessor,whydoesSartrerejectmostWesternapproachestoethics?
Manhasabigbrain.Hecanthink,learnandspeak.Scientistsusedtothinkthatmanisdifferentfromanimalsbecausehethinksa
最新回复
(
0
)