下面程序是用冒泡法将数组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中的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) =