【加試題】從前有一位老漁夫，有一天他捕到了一只大金龜，在金龜?shù)目嗫喟笙?，老漁夫放走了金龜，為了報(bào)恩，大金龜給老漁夫準(zhǔn)備了一份厚禮．大金龜拿出了n件寶貝，每件寶貝都標(biāo)了編號(hào)、體積和價(jià)值，還給了他一個(gè)規(guī)定體積的背包，只要能裝入背包的東西都?xì)w老漁夫所有，老漁夫如何裝包得到的總價(jià)值才最大（每件寶貝都可以分割為最小1個(gè)單位體積．如：編號(hào)001的寶貝，價(jià)值100，體積50，最小可以分割為50份）．
小林編寫了一個(gè)VB程序，實(shí)現(xiàn)如下功能：程序運(yùn)行時(shí)，首先從數(shù)據(jù)庫讀取每件寶貝的編號(hào)、價(jià)值和體積，分別存儲(chǔ)在數(shù)組bh、value、volume中，并顯示在列表框List1中；在文本框Text1中輸入背包的體積，單擊“求解”按鈕Command1后，在列表框List2中顯示依次所取的寶貝的相關(guān)信息，最后，在列表框List2中最后一行顯示背包的總價(jià)值．程序運(yùn)行界面如圖所示．

本題算法思想：
（1）首先計(jì)算出每件寶貝的單位價(jià)值（單位價(jià)值=價(jià)值/體積）．
（2）由于每件寶貝是可以任意分割的，因此，先將寶貝按單位價(jià)值降序排序，然后依次從單位價(jià)值最大的寶貝開始裝入背包，直到裝滿整個(gè)背包為止．
實(shí)現(xiàn)上述功能的程序如下，請?jiān)诔绦虍嬀€處填入合適的語句或代碼．
①處代碼應(yīng)為

value（i）/volume（i）

value（i）/volume（i）

；
②處代碼應(yīng)為

ans=ans+value（i）

ans=ans+value（i）

；
③處代碼應(yīng)為

m=m-value

m=m-value

．
Dim bh（1 To 20）As String,n As Integer'數(shù)組bh存儲(chǔ)寶貝的編號(hào)，n表示寶貝數(shù)
Dim volume（1 To 20）As Long,value（1 To 20）As Long,vpv（1 To 20）As Single'數(shù)組
value、volume、vpv分別存儲(chǔ)寶貝的價(jià)值、體積和單位體積的價(jià)格
Private Sub Form_Load（　?。?br />'本過程的功能是從數(shù)據(jù)庫讀取每件寶貝的信息，并存儲(chǔ)在數(shù)組中，本過程其他語句略
End Sub
Private Sub Command1_Click（　?。?br />   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“編號(hào)“+“價(jià)值“+“體積“+“單位體積“+“裝入背包的體積“
   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“背包總價(jià)值為：“+Str（ans）
End Sub.