设有如下程序：
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】 。

* * 公益金的管理、使用单位，应当（）向社会公告公益金的使用情况。