[填空题] 下面程序是用冒泡法将数组a中的10个整数按升序排列，请将程序补充完整。 Private Sub Command1_Click( ) Dim a, Tmp As Integer a

[填空题] 下面程序是用冒泡法将数组a中的10个整数按升序排列，请将程序补充完整。

Private Sub Command1_Click( )

Dim a, Tmp As Integer

a = Array (678,45,324,528,439,387,87,875,273,823)

For i = 【12】

Forj =0 To 9

Ifa (i)＜a(j) Then

Tmp = a(i): a(i) = a(j) i a(j) = Tmp

End If

Next j,i

For i = 0 To 9

Print a(i)

Next

End Sub