n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交...

题型：填空题题类：常考题难易度：困难

浙江省杭州市夏衍中学2015-2016学年高二上学期期末考试技术试题（信息技术部分）

n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2 中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如图所示。

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

'n=8，排序前数据存储在数组a中，并在列表框Listl中显示

'代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换

i = 1

flag = True

Do While '（1）

flag = False

For j = n To i + 1 Step -1

If a(j) < a(j - 1) Then

k = a(j): a(j) = a(j - 1): a(j - 1) = k

flag = True

End If

Next j

i = i + 1

Loop

Label3.Caption = "排序过程的加工遍数为+ " '（2）

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

⑴ ⑵

举一反三

【加试题】n堆金币，把两堆金币合并到一起，n堆金币经过n-1次合并之后就只剩下一堆了。如何消耗最少的体力，把这n堆金币合并成一堆？合并所消耗的体力等于每次合并两堆金币的重量之和。比如，n=3时表示共有3堆金币，每堆重量分别是2、1、9.一种合并方案是2和9合并，新堆重量是11，消耗体力为11；接着11和1合并，新堆重量是12，消耗体力为12，因此总消耗体力是11+12=23。另一种方案是：1和2合并，新堆重量是3，消耗体力为3；接着3和9合并，新堆重量是12，消耗体力为12，因此总消耗体力是3+12=15。可以证明这就是最少消耗体力。

小张经分析，每次n堆金币如果都是从小到大，将前两堆合并成新一堆，然后，继续进行从小到大排序，如此合并成最后一堆，此时消耗体力最少，为此他编写了一个解决上述问题，求最少体力的VB程序，功能如下：窗体加载时，自动读取n堆金币的数据，依次存储在数组元素a(1)、a(2)、a(3)…中，金币堆数存储在变量n中，n堆金币的重量数据显示在列表框List1中。单击“求解”按钮Command1，程序对n堆金币进行合并处理，消耗最少的体力显示在文本框Text1中。程序运行界面如图所示。