下面程序用“冒泡”法将数组a中的10个整数按升序排列,算法是:从数组的第1个元素开始,依次将相邻的两个数相比较(第1个数与第2个数,第2个数与第3个数……如此重复),若前面的数较大,则这两个数交换位置。这样执行一遍后,最后一个数已经是数组中最大的数。然后将

admin2010-03-30  41

问题 下面程序用“冒泡”法将数组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 9,1 To 10-I,>=或>

解析 本题主要考查了“冒泡”排序法,根据题意描述的“冒泡”法的思想,对10个数进行排序,需要进行9趟排序过程,故[10]处填1 To 9。每一趟中都需要进行一定次数的两数比较,如第一趟过程中需要对前9个数进行相邻数两两比较,第二趟中对前8个数进行相邻数两两比较,依此类推,总结规律可知 [11]处应填1To 10-i。比较中两数交换位置的前提条件是前面的数大于后面的数或大于等于后面的数。故[12]处应填>=或>。
转载请注明原文地址:https://kaotiyun.com/show/wO1p777K
0

最新回复(0)