医疗物资打包。抗疫志愿队接到一项任务要将N份医疗物资打包成1个大包裹，每份物资的重量为D（1）、D（2）、…、D（n）。由于设备原因，每次只能将2个包裹分装成1份。由于每次打包都需要移动物资，需要消耗体力。消耗的体力值为打包的医疗物资的重量之和。
例如将9、9、6的三份物资打包时，先将9和6的两份打包，消耗体力15，再将15和9两个包裹打包为1个消耗体力24，于是总的体力消耗值为39
经过志愿队众人分析，每次将现存包裹中最轻的两个合并，消耗的总体力会最小。
小风同学根据这一算法策略，编写VB程序用于计算n份包裹分装需要的最少体力值
（1）要使得程序的标题栏中显示”医疗物资打包，可修改窗体的

C

C

属性（单选，填字母：A.Text/B.Form/C.Caption）.
（2）实现上述功能的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