首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
如果存在如下过程: 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
90
问题
如果存在如下过程:
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全国计算机二级
相关试题推荐
若有一个动态数组a有两个元素a(0)和a(1),现要令数组a有三个元素a(0)、a(1)和a(2),则应当使用【】语句。
设在菜单编辑器中定义了一个菜单项,名为menul。为了在运行时隐藏该菜单项,应使用的语句是______。
在下列叙述中,不正确的一条是______。
设关系R1有r1个元组,关系R2有r2个元组,则关系R1和R2连接后的结果关系的元组数目是______个。
软件测试过程是软件开发过程的逆过程,其最基础性的测试应是______。
软件工程研究的内容主要包括:【】技术和软件工程管理。
下列叙述中正确的是______。
在一棵二叉树上第8层的结点数最多是______。
执行以下程序段后,变量c$的值为______。a$="VisualBasicProgramming"b$="Quick"c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,12)
m阶B+树的每个结点至多有【】个子女。
随机试题
下列有关审计监督体系的理解中,表述正确的是()
大量输血时可致
A.按年龄别体重算,体重超过同年龄、同性别儿童体重均值的10%B.按年龄别体重算,体重超过同年龄、同性别儿童体重均值的20%C.按年龄别体重算,体重超过同年龄、同性别儿童体重均值的30%D.按年龄别体重算,体重超过同年龄、同性别儿童体重均值的40%
患者男,50岁。5年来反复出现饭后胸骨后烧灼痛,放射至肩背部及耳部,时有吞咽困难症状,服用法莫替丁能缓解症状,多次心电图检查正常。患者行胃镜提示反流性食管炎。该患者应避免的食物及药物是
某患者火毒壅盛,背部长疮,流脓,经诊断,处以牛黄醒消丸,其方剂组成为牛黄、麝香、乳香(制)、没药(制)、雄黄。方剂组成中有乌金衣的是()
当事人对裁决不服的,可以在裁决书送达之日起()个月内向人民法院起诉。
会计以()为主要计量单位。
运输工具在装载出境动物前,应在口岸检验检疫机构监督下进行消毒处理。( )
有“东方的蒙特卡洛”之称的是()。
A.预备一个包括全部点隙裂沟的保守Ⅰ类洞,然后用银汞合金充填,防止龋病进一步发展的方法B.采用大的圆钻磨除深窝沟,使其易于自洁的方法C.不去除牙体组织,在牙面、颊面或舌面的点隙裂沟涂布一层黏结性树脂,保护牙釉质不受细菌及代谢产物侵蚀,达到预防龋病发生的
最新回复
(
0
)