下面程序的功能是用“冒泡”法将数组 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 = 'i循环变量代表,10个数总共要循环进行几轮比较 For j= '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