设有如下程序
Private Sub Search(a( )As Variant，ByVa1 key As Variant，index%)
Dim I%
For I=LBound(a) To UBound(a)
If key=a(1) Then
index=I
Exit Sub
End If
Next I
index=I
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程序动行后,输出结果是 【15】 。

某公司与德国一客户签订合同，约定货物由中国港口启运，经停新加坡最终到达荷兰鹿特丹。《出境货物报检单》的“输往国家(地区)”和“到达口岸”应分别填写( )。

A．荷兰；新加坡

B．荷兰；鹿特丹

C．德国；鹿特丹

D．德国；新加坡