学进去

医疗物资打包。抗疫志愿队接到一项任务要将N份医疗物资打包成1个大包裹，每份物资的重量为D（1）、D（2）、…、D（n）。由于设备原因，每次只能将2个包裹分装成1份。由于每次打包都需要移动物资，需要消耗体力。消耗的体力值为打包的医疗物资的重量之和。
例如将9、9、6的三份物资打包时，先将9和6的两份打包，消耗体力15，冉将15和9两个包裹打包为1个消耗体力24，于是总的体力消耗值为39
经过志愿队众人分析，每次将现存包裹中最轻的两个合并，消耗的总体力会最小。
小风同学根据这一算法策略，编写VB程序用于计算n份包裹分装需要的最少体力值
（1）要使得程序的标题栏中显示”医疗物资打包，可修改窗体的__________属性（单选，填字母：A. Text/B. Form /C. Caption）.
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
①_____________
②_____________
③_____________
（3）程序中加框处代码有错，请改正。
________________
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_____①____
d（n-1）=d（n）+d（n-1）
n=n-1

_________②________
Loop
Text1.text=ans
End Sub
Sub px（ByVal n As Integer）
For i = n To 2 Step -1
If______③________ Then
tmp =d（i）： d（i）=d（i-1）： d（i-1）= tmp
End If
Next i
End Sub