[单项选择题] 设有如下程序： 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 SubEnd IfNext Iindex=-1 End Sub Private Sub Form_Load()ShowDim b()As VariantDim n As Integerb=Array(21，64，92，15

A．2
B．6
C．10
D．12

参考答案： B解析：[分析]：本程序的功能是：查寻给定数字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。

● 参考解析

当前位置：IT认证＞BASIC题库

[单项选择题] 设有如下程序： 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 SubEnd IfNext Iindex=-1 End Sub Private Sub Form_Load()ShowDim b()As VariantDim n As Integerb=Array(21，64，92，15

相关题目: