醫(yī)療物資打包?？挂咧驹戈牻拥揭豁椚蝿?wù)要將N份醫(yī)療物資打包成1個大包裹，每份物資的重量為D（1）、D（2）、…、D（n）。由于設(shè)備原因，每次只能將2個包裹分裝成1份。由于每次打包都需要移動物資，需要消耗體力。消耗的體力值為打包的醫(yī)療物資的重量之和。
例如將9、9、6的三份物資打包時，先將9和6的兩份打包，消耗體力15，再將15和9兩個包裹打包為1個消耗體力24，于是總的體力消耗值為39
經(jīng)過志愿隊眾人分析，每次將現(xiàn)存包裹中最輕的兩個合并，消耗的總體力會最小。
小風(fēng)同學(xué)根據(jù)這一算法策略，編寫VB程序用于計算n份包裹分裝需要的最少體力值
（1）要使得程序的標(biāo)題欄中顯示”醫(yī)療物資打包，可修改窗體的

C

C

屬性（單選，填字母：A.Text/B.Form/C.Caption）.
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
①

n＞1

n＞1

②

call px（n）

call px（n）

③

d（i）＞d（i-1）

d（i）＞d（i-1）

（3）程序中加框處代碼有錯，請改正。

ans=ans+d（n）

ans=ans+d（n）

Dim（1 To 100）As Integer
Dim n As Integer
Private Sub Form_Load ____
’讀入n的值和n個包裹的重量依次存入d（1）.d（n）
End Sub
Private Sub Command1 _Click ____
For i=1 To n
Call px（i）
Next i
ans=0
Do While①

n＞1

n＞1

d（n-1）=d（n）+d（n-1）
n=n-1
ans-ans+d（n）+d （n-1 ）
②

call px（n）

call px（n）

Loop
Text1.text=ans
End Sub
Sub px（ByVal n As Integer）
For i=n To 2 Step-1
If ③

d（i）＞d（i-1）

d（i）＞d（i-1）

 Then
tmp=d（i）：d（i）=d（i-1）：d（i-1）=tmp
End If
Next i
End Sub