[填空題] 設(shè)有如下程序

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

程序運(yùn)行后，輸出結(jié)果是______。

E

本題綜合考查了數(shù)值的初始賦值，Sub過程的建立與調(diào)用，F(xiàn)or循環(huán)控制語(yǔ)句等多項(xiàng)內(nèi)容。本題的要點(diǎn)在于理解Sub過程 Search所要表達(dá)的意思．根據(jù)題意，Search需要在數(shù)組a()中尋找等于key的數(shù)，如果找到了，則令I(lǐng)ndex等于該元素的下標(biāo)值，如果沒有找到，則令I(lǐng)ndex等于-1。據(jù)此，在調(diào)用Search時(shí)，11為b(8)的第6個(gè)元素，下標(biāo)為5，故index為5。