元旦放假，小明帮助外公在果园搬果子。果园里有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堆至少需要消耗体力值为

197

197

。
（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（1 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
①

p=b（p）或p=k

p=b（p）或p=k

Loop
w=0
p=b（0）：q=b（p）
Do While b（p）＜＞-1
a（p）=a（p）+a（q）
w=②

w+a（p）

w+a（p）

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：③

b（q1）=p

b（q1）=p

End If
End If
End Sub