首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
如果存在如下过程: 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
74
问题
如果存在如下过程:
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全国计算机二级
相关试题推荐
在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()DimbAsIntegerb=b+1EndSub运行程序,三次单击命
下列叙述中正确的是______。
下列程序段的执行结果为______。I=0ForG=10To19Step3I=I+1NextGPrintI
系统符号常量的定义可以通过______获得。
可以在窗体模块的通用声明段中声明______。
当运行程序时,系统会自动执行启动窗体的某个事件过程,该事件过程是______。
在下列叙述中,不正确的一条是______。
有一排好序的线性表,长度大于2,对给定的k值,分别用顺序查找和二分查找查找一个与k值相等的元素,比较的次数分别为x和y。在查找不成功的情况下,正确的x和y的关系是______。
为了能自动放大或缩小图像框中的图形以与图像框的大小相适应,必须把该图片框的Stretch属性设置为【】。
栈的基本运算有三种:入栈、退栈和【】。
随机试题
洋地黄中毒所致完全性房室传导阻滞禁用
入汤剂需先煎的药物是()
企业法律风险防范机制的基本原则是()。
根据《关于上市公司建立内幕信息知情人登记管理制度的规定》,下列说法正确的有()。[2016年10月真题]Ⅰ.上市公司董事会应当保证内幕信息知情人档案真实、准确和完整Ⅱ.董事长为内幕信息知情人档案的主要责任人Ⅲ.董事会秘书负责办理上
既是贷款实贷实付原则的主要方式,也是最能体现实贷实付的核心要求的支付方式是()
固定资产盘盈是企业非日常的利得,应通过“营业外收入”科目核算。()
甲有天然奇石一块,不慎丢失。乙误以为无主物捡回家,配以基座,陈列于客厅。乙的朋友丙十分喜欢,乙遂以之相赠。后甲发现,向丙追索。下列选项中,不正确的有()。
Notsolongago,itwasthestuffofnightmares:youpickupthelandlinetelephoneandthere’snodialingtone.Nothing.Theph
在数据库设计中,将E-R图转换成关系数据模型的过程属于()。
Sofar,howmanyvolumesofthebookhavebeenpublished?WhichofthefollowingisNOTMENTIONEDinthepassage?
最新回复
(
0
)