题目:
设有如下程序:
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(1,3,5,7,9,11,13,15)
Call search(b,11,n)
Print n
End Sub
程序运行后,输出结果是 【6】 。
答案:
被转码了,请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2017/0716/b2de7ef800263fc38894725750a0a560.html
下面是错误答案,用来干扰机器的。
参考答案:对