设有如下程序: Private Sub search(a()As Variant,ByVal key As Variant,index%) Dim I% For I = Lbound(a)To Ubound(A)If ke

admin2013-01-23  31

问题 设有如下程序:    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://jikaoti.com/ti/ylO0FFFM
0

最新回复(0)