首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
如果存在如下过程: Private Function Fun( a( ) As Integer) Dim First As Integer, Last As Integer, i As Integer First
如果存在如下过程: Private Function Fun( a( ) As Integer) Dim First As Integer, Last As Integer, i As Integer First
admin
2010-03-30
63
问题
如果存在如下过程:
Private Function Fun( a( ) As Integer)
Dim First As Integer, Last As Integer, i As Integer
First = LBound(a)
Last=UBound (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 m(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,即此时数组。与m用一个存储空间;将数组的上界和下界分别赋给变量Last和First,在赋值表达式中分别调用了LBound()函数求数组下界,及 UBound()函数求数组的上界;在循环语句中,变量的初始值为数组的下界为1,终值为数组的上界为4,循环体是一个条件语句,如果a(i)中的值大于Max,那么就将 a(i)的值赋给Max,当循环结束后,将Max作为函数的返回值,所以此事件过程的功能即为求数组中的最大值。
转载请注明原文地址:https://kaotiyun.com/show/8hmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序创建了一个线程并运行,请在下划线处填入正确代码。 publicclassTryextendsThread{ publicstaticvoidmain(Stringargs[]){ Threadt=newTry();
为了支持压栈线程与弹栈线程之间的交互与同步,应在下划线处填入的选项是 pubIisclassStackTest{ privateintidx=0; privateint[]data=newint[8]; publicvoid
类变量必须带有的修饰符是
通常我们使用()方法来为一个部件注册事件监听器。
关于被私有访问控制符private修饰的成员变量,下列说法正确的是( )。
能将程序补充完整的选项是classPerson{privateinta;publicintchange(intm){returnm;}}publicclassTeachere
下列程序实现对ZIP文件file.zip的检索,在横线处填入正确的语句packagetest;importjava.io.*;importjava.util.*;importjava.util.zip.*;p
当使用Threadt=mewThread(r)创建一个线程时,表达式:rinstranceofThread的值是______。
结构化程序设计的3种结构是
在面向对象方法中,______描述的是具有相似属性与操作的一组对象。
随机试题
限制进口的非关税壁垒措施有()。
组成药物中含有牡丹皮的方剂有
为满足住户需要,居住区应建造大型喷水池。()
在下列物理化学除氟方法中,目前最常用的方法是
在下列国家机关所发布的文件中,属于规范性法律文件的有()。
甲公司欠乙公司10万元,于2019年7月1日到期。在2019年5月6日,甲公司在不能清偿到期债务,并且资产不足以清偿全部债务的情况下,仍然提前清偿了乙公司的债务。2019年11月7日,人民法院受理了甲公司的破产申请,甲公司的管理人请求人民法院撤销该清偿行为
下列情况,允许当事人解除合同的有()。
在西方教育史上,()被誉为“科学教育学的奠基人”,在世界教育史上被称为“现代教育学之父”,而反映其教育思想的代表作《普通教育学》则被公认为是第一部具有科学体系教育学的著作。
设证明f(x)在x=0处连续;
A、Thewomandidn’tpayherrentontime.B、Shecouldn’tfindanyonetorepairthewashingmachine.C、Thewomanhadsomerepairs
最新回复
(
0
)