下面的程序用 “冒泡”法将数组 a 中的 10 个整数按升序排列,请在处将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a=Array(678,45,324,528,439,387,87,875,273,823) For i= For j= If a( j ) > 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