首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下事件过程: Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s A
编写如下事件过程: Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s A
admin
2009-02-13
45
问题
编写如下事件过程: Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后,单击窗体,则窗体上显示的内容是
选项
A、6
B、12
C、24
D、47
答案
8
解析
在主过程中,数组x1的下标最大值为3,赋初值分别为2、3、4,通过实参和形参的调用,数组x1的值传给了数组n。在子过程中,数组n的下标最大值被重新定义为5,下标3~5的值计算的结果分别为6、12、24。在主过程中,将数组x1的各值相加得:2+3+6+12+24=47。
转载请注明原文地址:https://kaotiyun.com/show/io1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列说法正确的是
Java设计有______功能,这不仅防止了内存地址计算出错的问题,也省去了编程时对内存进行分配的烦恼。
一些重要的程序语言(如C语言和Pascal语言)允许过程的递归调用。而实现递归调用中的存储分配通常用()。
能够实现自动共事类、子类和对象中的方法和数据,需要通过
在面向对象的程序设计中,类描述的是具有相似性质的一组______。
下述内容中()不属于软件工程管理的范畴。
在关系运算中,【】运算是对两个具有公共属性的关系所进行的运算。
ODL转换关系时,若为原子类型属性,类的每个属性对应关系的一个属性;若为结构类型,其每个元素为关系的一个属性;若为数组,则按元素的个数即可扩展为______,也可扩展为多个属性。
下面的程序是列出目录C:\Test中所有的.txt文件,请将程序补充完整。importjava.io.*;//引入java.io包中所有的类publicclassFileFilterTest{publicstaticv
在深度为7的满二叉树中,叶子结点的个数为
随机试题
有100个编号为1~100的罐子,第1个人在所有的编号为1的倍数的罐子中倒入1毫升水,第2个人在所有编号为2的倍数的罐子中倒人1毫升水……最后第100个人在所有编号为100的倍数的罐子中倒入1毫升水。问此时第92号罐子中装了多少毫升的水?(
双向晶闸管的额定电流与普通晶闸管一样是平均值而不是有效值。()
进行爆发调查时的首要工作是
甲国为了举办世界博览会将乙国使馆及大使官邸、丙国领馆纳入了征用规划范围。三国均为《维也纳外交关系公约》和《维也纳领事关系公约》缔约国,依相关国际法规则,下列哪一选项是正确的?()
关于室外供热管网的连接形式的说法正确的是()。
下列时间点中,属于《建筑施工场界环境噪声排放标准》GB12523--2011规定的夜间施工期间的是()。
下列各项属于工商企业基本特征的有()。
甲、乙、丙、丁等15人拟共同出资设立一有限责任公司,股东共同制定公司章程,在拟制定的公司章程中,对有关董事会组成、监事任期、股权转让事宜等作了如下规定:(1)公司设立董事会,董事会成员为7人,不设职工代表;(2)公司监事任期每届为2年;(3)股东之间
著作人身权,又称著作精神权,指著作权人对其作品所享有的各种与人身相联系或者密不可分而又无直接财产内容的权利,是作者通过创作表现个人风格的作品而依法享有获得名誉、声望和维护作品完整性的权利。著作财产权,又称著作经济权,是著作人身权的对称,是指著作权人自己使用
Animalshavebeenkeptaspetsbypeopleinallpartsoftheworldforthousandsofyears.Themost【C1】______petsaredogs,cats
最新回复
(
0
)