问题详情

下面的程序用“冒泡”法将数组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


请帮忙给出正确答案和分析，谢谢！