【加試題】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)行界面如圖所示．
（1）如果有5堆金幣，每堆重量分別是12、8、5、9、15，則將這5堆金幣合并成一堆金幣，最少消耗體力是

111

111

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

x

x

To n-1
For j=n To i+1Step-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=1To n-1
a（k+1）=a（k）+a（k+1）
sum=sum+

a（k+1）

a（k+1）

sort （

k+1

k+1

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