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中。程序運行界面如第17題圖所示。
（1）如果有5堆金幣，每堆重量分別是12、8、5、9、15，則將這5堆金幣合并成一堆金幣，最少消耗體力是

111

111

。
（2）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
Const n=10
Dim i As Integer,j As Integer,t As Integer
Dim a（1 To n） As Integer
Private Sub Form_Load （　　）
'本過程用于讀取n堆的數據并存儲在數據a中
'代碼略
End Sub
'sort（x）過程的功能是對a（x）、a（x+1）、……、a（n）中的數進行從小到大排序
Private Sub sort（x As Integer）
For i=

①

①

To n-1
For j=n To i+1 Step-1
If a（j）＜a（j-1）Then
t=a（j）：a（j）=a（j-1）：a（j-1）=t
End If
Next j
Next i
End Sub
Private Sub Command1_Click （　　）
Dim sum As Integer,k As Integer
sum=0
sort （1）
For k=1 To n-1
a（k+1）=a（k）+a（k+1）
sum=sum+

②

②

sort （

③

③

）
Next k
Text1．Text=Str（sum）
End Sub