【加试题】从前有一位老渔夫，有一天他捕到了一只大金龟，在金龟的苦苦哀求下，老渔夫放走了金龟，为了报恩，大金龟给老渔夫准备了一份厚礼．大金龟拿出了n件宝贝，每件宝贝都标了编号、体积和价值，还给了他一个规定体积的背包，只要能装入背包的东西都归老渔夫所有，老渔夫如何装包得到的总价值才最大（每件宝贝都可以分割为最小1个单位体积．如：编号001的宝贝，价值100，体积50，最小可以分割为50份）．
小林编写了一个VB程序，实现如下功能：程序运行时，首先从数据库读取每件宝贝的编号、价值和体积，分别存储在数组bh、value、volume中，并显示在列表框List1中；在文本框Text1中输入背包的体积，单击“求解”按钮Command1后，在列表框List2中显示依次所取的宝贝的相关信息，最后，在列表框List2中最后一行显示背包的总价值．程序运行界面如图所示．

本题算法思想：
（1）首先计算出每件宝贝的单位价值（单位价值=价值/体积）．
（2）由于每件宝贝是可以任意分割的，因此，先将宝贝按单位价值降序排序，然后依次从单位价值最大的宝贝开始装入背包，直到装满整个背包为止．
实现上述功能的程序如下，请在程序画线处填入合适的语句或代码．
①处代码应为

value（i）/volume（i）

value（i）/volume（i）

；
②处代码应为

ans=ans+value（i）

ans=ans+value（i）

；
③处代码应为

m=m-value

m=m-value

．
Dim bh（1 To 20）As String,n As Integer'数组bh存储宝贝的编号，n表示宝贝数
Dim volume（1 To 20）As Long,value（1 To 20）As Long,vpv（1 To 20）As Single'数组
value、volume、vpv分别存储宝贝的价值、体积和单位体积的价格
Private Sub Form_Load（　　）
'本过程的功能是从数据库读取每件宝贝的信息，并存储在数组中，本过程其他语句略
End Sub
Private Sub Command1_Click（　　）
   Dim m As Integer,i As Integer,j  As Integer,ans As Single
   Dim temp1 As String,temp2 As Integer,temp3 As Integer,temp4 As Single
   m=Val（Text1．Text）
   For i=1 To n
       vpv（i）=

①

①

   Next i
   For i=1 To n-1
       For j=n To i+1 Step-1
           If vpv（j）＞vpv（j-1）Then
               temp1=bh（j）：bh（j）=bh（j-1）：bh（j-1）=temp1
               temp2=value（j）：value（j）=value（j-1）：value（j-1）=temp2
               temp3=volume（j）：volume（j）=volume（j-1）：volume（j-1）=temp2
               temp4=vpv（j）：vpv（j）=vpv（j-1）：vpv（j-1）=temp3
           EndIf
       Next j
   Next i
   i=1：j=n：ans=0
   List2．AddItem“编号“+“价值“+“体积“+“单位体积“+“装入背包的体积“
   Do While m＞0 And j＞=1
       If m-volume（i）＞=0 Then

②

②

          List.AddItem bh（i） &““& value（i） &““& volume（i） & vpv（i）+&““& volume（i））
       Else
          ans=ans+m*vpv（i）
          List2．AddItem bh（i） &““& value（i） &““& volume（i） &““& vpv（i） &““& m
       EndIf

③

③

       i=i+1；j=j-1
   Loop
   List2．AddItem“背包总价值为：“+Str（ans）
End Sub.