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