首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个按钮,然后编写如下的事件代码。在按钮上单击,输出为( )。 Option Base 1 Private Sub fun(a()As Integer,n As Integer) ReDim Preserve a(6
在窗体上画一个按钮,然后编写如下的事件代码。在按钮上单击,输出为( )。 Option Base 1 Private Sub fun(a()As Integer,n As Integer) ReDim Preserve a(6
admin
2009-02-13
17
问题
在窗体上画一个按钮,然后编写如下的事件代码。在按钮上单击,输出为( )。 Option Base 1 Private Sub fun(a()As Integer,n As Integer) ReDim Preserve a(6) a(6)=a(1)*a(3)*a(5) n=UBound(a)End Sub Private Sub Command1_Click() Dim arr1()As Integer,k As Integer ReDimarrl(5) For i=1 To 5 arrl(i)=i Next i k=6 Call fun(arrl,k) Print arrl(1);arrl(k) End Sub
选项
A、1 3
B、0 0
C、1 15
D、0 15
答案
4
解析
当发生Command1_Click事件时,首先定义了一个可调数组arrl,接着重新定义它的长度为5,然后通过一个For循环给该数组元素arrl(1)~arrl(5)赋值1~5。给k赋值6,调用过程fun,把数组arrl按地址传递给形参数组a,把变量k按地址传递给形参变量n。在fun过程中重新定义了数组a的长度为6,并保持原来的值,给a(6)赋值为1*3*5,并通过Ubound函数求得该数组的下标上界并赋值给n,n的值为6。过程调用返回后,由于是按地址传递的,所以对形参数组a的修改就是对实参数组arrl的修改,对形参n的修改就是对实参k的修改,k的值为6。输出arrl(1)和arrl(6)的值分别为1和15。
转载请注明原文地址:https://kaotiyun.com/show/5E1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在Java为中,不属于整数类型变量的是()。
下面对Java中类方法重载的描述,错误的是()。
结构化设计主要分为系统设计和模块设计,【】的任务是决定系统的模块结构。
关系操作的特点是______操作。
如果子类中的某个方法的名字、返回值类型和参数列表与它的父类中的某个方法完全一样,则称子类中的这个方法______了父类的同名方法。
已知i为整型变量,关于一元运算++i和i++,下列说法正确的是()。
已知如下的命令执行javaMyTestabc,()语句是正确的。
下列关于继承的哪项叙述是正确的?()
用链表表示线性表的优点是()
在Windows环境下,实现窗口移动的操作是()。
随机试题
简述我国公务员年度考核中优秀与称职等次的标准。
某公司是一家生产电子产品的大型国有控股公司。2002年12月,由于产品销售不畅,公司面临亏损。公司董事长责成财会部经理胡某对会计报表做技术处理,实现当年盈利目标,并承诺如果做得好,将推荐他作为公司总会计师人选。胡某知道本年度公司亏损已成定局,如要落实董事长
下列关于蓝海战略的说法正确的有()。
特殊情况越级向上行文,应抄送给()。
阅读下列公文,回答问题。2017年5月12日,贵州省人民政府下发了《省人民政府关于煤炭工业淘汰落后产能加快转型升级的意见》。为贯彻落实这一文件精神,具体部署有关工作,××区人民政府决定于2017年6月16日发文召开由各乡(镇)一把手参加的煤炭工业
党的十八大提出了把党建设成为学习型、服务型、创新型的马克思主义执政党的战略目标。关于学习、服务和创新三者之间的关系,下列说法正确的是()
下面描述中,符合结构化程序设计风格的是( )。
有如下类定义:classXX{intxdata:public:xx(intn=0):xdata(n){}}classYY:publicXX{intydata;public:
Directions:Usingtheinformationinthetext,completeeachsentence6-10,withawordorphrasefromthelistbelow.Foreach
Comparingthetimescalesbetweenmanyfluepidemics,scientistscan______whenanotheronemighthappen.
最新回复
(
0
)