学进去

元旦放假，小明帮助外公在果园搬果子。果园里有n堆（n<=100）重量不一的果子，需要将它们合并成一堆。已知合并两堆果子所消耗的体力等于两堆果子的重量之和。为了节省体力，每次合并，小明会把其中重量最小的两堆果子合并一起，n堆果子经过若干次合并之后只剩一堆为止。比如，n=4时，表示共有4堆果子，重量分别是2、4、5、9，先合并重量为2和4的果子堆，新堆重量是6，耗费体力为6；接着将重量5和6的果子堆合并，新堆重量是11，耗费体力为11；最后将重量9和11的果子堆合并，新堆重量是20，耗费体力为20。因此总消耗体力是6＋11＋20=37，这样合并是最少耗费体力的方法。请设计程序，计算合并这n堆果子最少消耗的体力值。

（1）有5堆果子重量分别是：17，15，16，16，19，则小明将5堆果子搬成1堆至少需要消耗体力值为________。
（2）请在①②③处填上合适代码，实现程序功能。
Dim n As Integer
Dim a(1 To 100) As Integer     'a数组存储各堆果子重量
Dim b(o To 100)As Integer      'b(0)存放a数组中最小值的下标,若a(i)是数组中最大数,则 b(i)的值为-1
Dim flag(l To 100)As Boolean
Private Sub Form_Load()
'初始化果子的数量n和每堆果子的重量a(i),并依此显示在列表框list1中,代码略
'初始化b数组的值均为-1,flag 数组的值均为False,代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer,k As Integer
Dim p As Integer,q As Integer,w As Integer
p =0
Do While True  '生成b数组,标记升序后a(i)的下一个元素在a数组中的位置为b(i)

For i = 1 To n

If Not flag(i)Then k = i :Exit For

Next i

If i = n＋1 Then Exit Do

i =1

Do While i <= n

If Not flag(i) And a(k) >a(i)Then k =i
i=i＋1

Loop

b(p)= k

flag(k)=True 

①____

Loop
w= 0
p =b(0):q =b(p)
Do While b(p)< >-1

a(p)=a(p)+a(q)

w=②____

If b(q)< >-1 Then b(0)= b(q)Else Exit Do

Call sort(p)

p = b(0) :q = b(p)

Loop
Text1.Text= Str(w)
End Sub
Sub sort(p As Integer)  '将a(p)插人到合适位置

Dim pl As Integer,ql As Integer

pl = b(0)

If a(p)<=a(pl)Then

b(0)=p : b(p)= pl

Else

Do While a(p) >a(p1) And b(p1)< >-1
ql = pl : pl = b(pl)
Loop
If b(p1)=-1 And a(p) >a(p1) Then
b(pl)=p : b(p)=-1
Else
b(p)= pl :③____
End If

End If

End Sub