n堆金幣，把兩堆金幣合并到一起，n堆金幣經(jīng)過n-1次合并之后就只剩下一堆了。如何消耗最少的體力，把這n堆金幣合并成一堆？合并所消耗的體力等于每次合并兩堆金幣的重量之和。比如，n=3時(shí)表示共有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．可以證明這就是最少消耗體力。

小張經(jīng)分析，每次n堆金幣如果都是從小到大，將前兩堆合并成新一堆，然后，繼續(xù)進(jìn)行從小到大排序，如此合并成最后一堆，此時(shí)消耗體力最少，為此他編寫了一個(gè)解決上述問題，求最少體力的VB程序，功能如下：窗體加載時(shí)，自動(dòng)讀取n堆金幣的數(shù)據(jù)，依次存儲(chǔ)在數(shù)組元素a（1）、a（2）、a（3）…中，金幣堆數(shù)存儲(chǔ)在變量n中，n堆金幣的重量數(shù)據(jù)顯示在列表框List1中。單擊“求解”按鈕Command1，程序?qū)堆金幣進(jìn)行合并處理，消耗最少的體力顯示在文本框Text1中。程序運(yùn)行界面如第17題圖所示。
（1）如果有5堆金幣，每堆重量分別是12、8、5、9、15，則將這5堆金幣合并成一堆金幣，最少消耗體力是

111

111

。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
Const n=10
Dim i As Integer,j As Integer,t As Integer
Dim a（1 To n） As Integer
Private Sub Form_Load （　?。?br />'本過程用于讀取n堆的數(shù)據(jù)并存儲(chǔ)在數(shù)據(jù)a中
'代碼略
End Sub
'sort（x）過程的功能是對(duì)a（x）、a（x+1）、……、a（n）中的數(shù)進(jì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 （　?。?br />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