下面的程序用“冒泡”法将数组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)
题目
下面的程序用“冒泡”法将数组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 (j) =a1
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub
相似考题
更多“下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在【】、【】、【】处将程序补充完整。Option Base ”相关问题
-
第1题：
补充程序Ccon083.C,实现将结构体数组mystudent中存储的各学生信息按其学号的升序排列。
/**/STUtemp；/**/
If（/**/ps[i].num>ps[i+1].num/**/）
If（/**/flag==0/**/）break； -
第2题：
以下冒泡法程序对存放在a[1]，a[2]，……，a[n]中的序列进行冒泡排序完成程序中的空格部分，其中n是元素个数，要求按升序排列。
（1）j<=n-1
（2）i<=n-j
（3）a[i]=a[i+1]
（4）a[i+1]=temp
（5）当某趟冒泡中没有出现交换则已排好序结束循环。
略 -
第3题：
下面的程序将给定列表中的负数过滤掉，得到一个只有整数的数组, 将程序补充完整。 a=[-1,0,1,-2,3] print（list（filter（__________ x:True if x＞0 else False,a)))
lambda -
第4题：
补充程序Ccon042.C,使程序中的sort()函数用冒泡法对数组a中的m个元素从大到小排序
for（i=0；i</**/m-1/**/；i++）
if/**/（a[j]<a[j+1]）/**/
a[j]=/**/a[j+1]/**/； -
第5题：
以下冒泡法程序对存放在a[1]，a[2]，……，a[n]中的序列进行冒泡排序，完成程序中的空格部分，其中n是元素个数，程序按升序排列。
（1）j<=n-1
（2）i<=n-j
（3）a[i]=a[i+1]
（4）a[i+1]=temp
（5）当某趟冒泡中没有出现交换则已排好序，结束循环
略
