niusouti.com

下面程序用“冒泡”法将数组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,

题目

下面程序用“冒泡”法将数组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 To 91 To 10-I>=或>
1 To 9,1 To 10-I,>=或> 解析:本题主要考查了“冒泡”排序法,根据题意描述的“冒泡”法的思想,对10个数进行排序,需要进行9趟排序过程,故[10]处填1 To 9。每一趟中都需要进行一定次数的两数比较,如第一趟过程中需要对前9个数进行相邻数两两比较,第二趟中对前8个数进行相邻数两两比较,依此类推,总结规律可知 [11]处应填1To 10-i。比较中两数交换位置的前提条件是前面的数大于后面的数或大于等于后面的数。故[12]处应填>=或>。
更多“下面程序用“冒泡”法将数组a中的10个整数按升序排列,算法是:从数组的第1个元素开始,依次将相邻的 ”相关问题
  • 第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";


    sizeof(a)/sizeof(int)

  • 第3题:

    13、若一数组中各元素值为 {8 6 3 9 2 7},则利用冒泡排序的方法(按升序、大数沉底),经过一轮排序后,数组元素值8在数组中的下标值为 。


    2

  • 第4题:

    若一数组中各元素值为 {8 6 3 9 2 7},则利用冒泡排序的方法(按升序、大数沉底),经过一轮排序后,数组元素值8在数组中的下标值为 。


    2

  • 第5题:

    控制台应用程序,项目名称H2-sort 将1-10范围内的是个整数,以乱序的形式存放在数组中,打印输出数组元素值 使用冒泡或选择排序算法对数组进行升序排序,排序后的结果仍然保存在原数组中 打印输出数组元素值


    D