设有如下程序
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
程序运行后，输出结果是______。

《中华人民共和国职业病防治法》于（）正式实施，并于2011年12月31日十一届人大第24次会议修订。

A.2001年10月27日

B.2002年5月1日

C.2002年1月1日

D.2002年7月1日