下面程序用“冒泡”法将数组a中的10个整数按升序排列，算法是：从数组的第1个元素开始，依次将相邻的两个数相比较(第1个数与第2个数，第2个数与第3个数……如此重复)，若前面的数较大，则这两个数交换位置。这样执行一遍后，最后一个数已经是数组中最大的数。然后将数组的前n-1个数重复上述过程。如此继续，可将数组排序，请将程序补充完整。Option Base 1Private Sub Command1_Click()Dim a()a=Array(678，45，324，528，439，387，87，875，273，823)Fori＝【 】Forj= 【 】If a(j)【 】a(j+1)Thena1=a(j)a(j)＝a(j+1)a(j+1)=alEnd lfNextjNext iFor i＝1 To 10Print a(i)Next iEnd Sub
下面程序用“冒泡”法将数组a中的10个整数按升序排列，算法是：从数组的第1个元素开始，依次将相邻的两个数相比较(第1个数与第2个数，第2个数与第3个数……如此重复)，若前面的数较大，则这两个数交换位置。这样执行一遍后，最后一个数已经是数组中最大的数。然后将数组的前n-1个数重复上述过程。如此继续，可将数组排序，请将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim a()
a=Array(678，45，324，528，439，387，87，875，273，823)
Fori＝【 】
Forj= 【 】
If a(j)【 】a(j+1)Then
a1=a(j)
a(j)＝a(j+1)
a(j+1)=al
End lf
Nextj
Next i
For i＝1 To 10
Print a(i)
Next i
End Sub
相关考题：
下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在【 】、【 】、【 】处将程序补充完整。Option Base 1Private Sub Command1_Click ()Dim aa=Array (678, 45, 324, 528, 439, 387, 87, 875, 273,823)For i=【 】For j=【 】If a(i)【 】a(j) Thena1=a(i)a(i)=a(j)a (j) =a1End IfNext jNext iFor i=1 To 10Print a(i)Next iEnd Sub
阅读以下C代码，回答问题（1）~（6），将解答填入答题纸的对应栏内。【说明】函数insertElem的功能是在元素升序排列的数组中加入一个新元素并保持数组元素升序排列的特点。在main函数中输入若干表示价格的实数，输入为0或负数或实数个数超出限定数量时终止，调用insertElem将价格按升序保存在数组pdata中，最后输出所输入的实数
一维数组a中最多有20个元素，从键盘上输入n个一维数组a的值，将数组a中的值升序排列后在屏幕上输出。 程序运行示例： 6↙ 10 9 8 7 6 5↙ 5 6 7 8 9 10 输入格式为："%d"; 输出格式为："%4d";
控制台应用程序，项目名称H2-sort 将1-10范围内的是个整数，以乱序的形式存放在数组中，打印输出数组元素值 使用冒泡或选择排序算法对数组进行升序排序，排序后的结果仍然保存在原数组中 打印输出数组元素值
13、若一数组中各元素值为 {8 6 3 9 2 7}，则利用冒泡排序的方法（按升序、大数沉底），经过一轮排序后，数组元素值8在数组中的下标值为 。