下面的程序用冒泡法将数组a中的10个整数按升序排列，请在三处将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(678，45，324，528，439，387，87，875，273，823)
For i=______
For j=______
If a(i)______a(j)Then
a1=a(i)
a(i)=a(j)
a(j)=a1
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub

下列信息应在部海事局中文网站上公布（）

A、中文航行通告；

B、英文航行通告；

C、通过VHF发布的短期临时航行；

D、水上交通事故协查信息。