首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序: Private Sub search(a()As Variant,ByVal key As Variant,index%) Dim I% For I = Lbound(a)To Ubound(A)If ke
设有如下程序: Private Sub search(a()As Variant,ByVal key As Variant,index%) Dim I% For I = Lbound(a)To Ubound(A)If ke
admin
2013-01-23
44
问题
设有如下程序: Private Sub search(a()As Variant,ByVal key As Variant,index%) Dim I% For I = Lbound(a)To Ubound(A)If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21,64,92,15,72,38,45,72) Call search(b, 45, n) Print n End Sub 程序运行后,输出的结果是
选项
A、2
B、6
C、10
D、12
答案
2
解析
本程序的功能是:查寻给定数字 45在数组b中的位置n。用Array函数给数组 b的各元素赋初值,其中数组变量名a应是 Variant型的。用数组作为过程的形参时,应在数组名的后面加上一对圆括号(如数组 a());用数组作为调用过程的实参时,数组名的后面去掉一对圆括号(如数组b)。用类型说明符%来标识index和I为整型变量。 Lbound(a)和Ubound(a)函数分别返回数组的下界和上界,下界值为0。在于程序search中,当key=a(I)条件(即45=a(6))成立时,变量 index记录下数组下标值6,然后中断循环,退出于程序search,index反传送给变量n,最后打印出6。
转载请注明原文地址:https://kaotiyun.com/show/Gyhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下数据结构中,属于线性数据结构的是
数据库三级模式体系结构的划分,有利于保持数据库的【】。
决定窗体有无控制菜单的属性是
下列过程的功能是:用来计算并输出S=1+1/2+1/3+…+1/100的值,请完善下列程序。FurictionSumD(nAsInteger)AsSingles=1i=1Do
执行语句s=Len(Mid("VisualBasic",1,6))后,s的值是
在窗体上有5个控件:一个名称为Text1的文本框控件,用来显示文本;两个名称分别为Check1(设置显示文本的下划线)和Check2(设置显示文本的加粗)的复选框;两个名称分别为Option1(设置字的大小为12磅)和Option2(设置字的大小为16磅)
在VisualBasic中,当改变目录列表框的Path属性值时,改变了当前驱动器的【】。
函数InputBox返回值的类型是______。
随机试题
某患者夜间突发急腹症被送到某医院看急诊;初诊为急性胆囊炎。负责医师因自己年轻,怕担风险,未作任何处理,即让家属把患者送到10公里外的中心医院就诊,延误了治疗时间,致使病人胆囊穿孔,中毒性休克。后虽经抢救挽救了生命,但医药费用去2万多元。当事医师在为自己
某女性患者,45岁。唇部黏膜肿胀破溃3个月余。口腔检查:下唇左侧可见一直径1cm的浅表、微凹溃疡,基底有少许渗出物,渗出物下可见桑葚样肉芽肿,溃疡边缘清楚、微隆,呈鼠噬状。根据诊断,强化治疗阶段采用的标准化疗联合用药方案是()
甲、乙两国2008年建立外交关系,并缔结了双边的《外交特权豁免议定书》。2010年两国交恶,甲国先宣布将其驻乙国的外交代表机构由大使馆降为代办处,乙国遂宣布断绝与甲国的外交关系。后双方分别撤走了各自驻对方的使馆人员。关于两国的上述做法,依相关国际法规则,下
当输送湿燃气时,燃气管道坡向凝水缸的坡度不宜小于()。
关于会计核算中历史成本计量原则的说法,正确的是()。
合伙企业存续期间,合伙人向合伙人以外的人转让其在合伙企业中的全部或者部分财产份额时,须()。
密西根模式中描述领导行为的维度包括()。
关于山体滑坡产生的地理原因,下列说法不正确的是()。
某带链栈初始状态为。top=bottom=NULL,经过一系列正常的入栈与退栈操作后,top=10,bottom=20。该栈中的元素个数为
TheDevelopmentofAmericanPostalSystemIntheearlydaysoftheUnitedStates,postalchargeswerepaidbytherecipient
最新回复
(
0
)