小明編寫了一個(gè)求背包最大價(jià)值的VB程序，現(xiàn)有n件物品和體積為M的背包，每件物品都有編號(hào)、體積和價(jià)值，且每件物品都可以任意分割（即可以取走寶貝的一部分），求裝滿后的背包的最大價(jià)值。
程序運(yùn)行時(shí)，在文本框Text1中輸入物品的數(shù)量n,單擊“數(shù)據(jù)讀取”按鈕，則從數(shù)據(jù)庫(kù)讀取前n件物品的編號(hào)、價(jià)值和體積，分別存儲(chǔ)在數(shù)組id、jz、tj中，并顯示在列表框List1中；在文本框Text2中輸入背包的體積，單擊“求解”按鈕Command1后，在列表框List2中顯示依次所取的物品的相關(guān)信息，最后，在列表框List2中最后一行顯示背包的總價(jià)值。程序運(yùn)行界面如圖所示。

算法思想：
（1）首先計(jì)算出n件物品的單位價(jià)值（單位價(jià)值=價(jià)值/體積）；
（2）將物品按單位價(jià)值降序排序；
（3）然后依次從單位價(jià)值最大的物品開(kāi)始裝入背包，直到裝滿整個(gè)背包為止。
（4）輸出裝入背包的物品的相關(guān)信息。
實(shí)現(xiàn)上述功能的程序如下，請(qǐng)?jiān)诔绦驒M線處填入合適的語(yǔ)句或代碼。
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
Dim id（1To 20）As String'存儲(chǔ)物品的id號(hào)
Dim jz（1To 20）As Long,tj（1To 20）As Long'數(shù)組jz、tj分別存儲(chǔ)物品的價(jià)值和體積
Dim dwjz（1To 20）As Single'存儲(chǔ)物品的單位價(jià)值
Dim n As Integer'表示物品數(shù)
Private Sub Command1_Click （　　）
'讀取數(shù)據(jù)庫(kù)表中前n條記錄的信息
End Sub
Private Sub Command2_Click （　?。?br />Dim m As Integer,i As Integer,j As Integer,p As Integer,tp1As String,tp2As Integer Dim tp3As Single
m=Val（Text2．Text）
For i=1To n
dwjz（i）=jz（i）/tj（i）
Next i
For i=1To n-1
For j=n To i+1Step-1
If ①Then
tp1=id（j）：id（j）=id（j-1）：id（j-1）=tp1
tp2=jz（j）：jz（j）=jz（j-1）：jz（j-1）=tp2
tp2=tj（j）：tj（j）=tj（j-1）：tj（j-1）=tp2
tp3=dwjz（j）：dwjz（j）=dwjz（j-1）：dwjz（j-1）=tp3
End If
Next j
Next i
i=1
p=n
ans=0
List2．AddItem“編號(hào)“+“價(jià)值“+“體積“+“裝入背包的體積“
Do While m＞0Andp＞=1
If m-tj（i）＞=0Then
ans=ans+jz（i）
List2．AddItem id（i）+““+Str（jz（i））+““+Str（tj（i））+““+Str（tj（i））
Else
②
List2．AddItem id（i）+““+Str（jz（i））+““+Str（tj（i））+““+Str（m）
End If
m=m-tj（i）
i=i+1
③
Loop
List2．AddItem“背包總價(jià)值為：“+Str（ans）
End Sub