下面程序的功能是用 ” 冒泡 ” 法将数组 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= 【 1 】 For j= 【 2 】 If a(j) 【 3 】 a(j+1) Then a1=a(j) a(j)=a(j+1) a(j+1)=a1 End If Next j Next i For i=1 To 10 Print a(i) Next i End Sub