下面程序用“冒泡”法将数组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
第1题:
以下冒泡法程序对存放在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)当某趟冒泡中没有出现交换则已排好序,结束循环
略
第2题:
一维数组a中最多有20个元素,从键盘上输入n个一维数组a的值,将数组a中的值升序排列后在屏幕上输出。 程序运行示例: 6↙ 10 9 8 7 6 5↙ 5 6 7 8 9 10 输入格式为:"%d"; 输出格式为:"%4d";
第3题:
13、若一数组中各元素值为 {8 6 3 9 2 7},则利用冒泡排序的方法(按升序、大数沉底),经过一轮排序后,数组元素值8在数组中的下标值为 。
第4题:
若一数组中各元素值为 {8 6 3 9 2 7},则利用冒泡排序的方法(按升序、大数沉底),经过一轮排序后,数组元素值8在数组中的下标值为 。
第5题:
控制台应用程序,项目名称H2-sort 将1-10范围内的是个整数,以乱序的形式存放在数组中,打印输出数组元素值 使用冒泡或选择排序算法对数组进行升序排序,排序后的结果仍然保存在原数组中 打印输出数组元素值