小明编写了一个求背包最大价值的VB程序，现有n件物品和体积为M的背包，每件物品都有编号、体积和价值，且每件物品都可以任意分割（即可以取走宝贝的一部分），求装满后的背包的最大价值。
程序运行时，在文本框Text1中输入物品的数量n,单击“数据读取”按钮，则从数据库读取前n件物品的编号、价值和体积，分别存储在数组id、jz、tj中，并显示在列表框List1中；在文本框Text2中输入背包的体积，单击“求解”按钮Command1后，在列表框List2中显示依次所取的物品的相关信息，最后，在列表框List2中最后一行显示背包的总价值。程序运行界面如图所示。

算法思想：
（1）首先计算出n件物品的单位价值（单位价值=价值/体积）；
（2）将物品按单位价值降序排序；
（3）然后依次从单位价值最大的物品开始装入背包，直到装满整个背包为止。
（4）输出装入背包的物品的相关信息。
实现上述功能的程序如下，请在程序横线处填入合适的语句或代码。
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
Dim id（1To 20）As String'存储物品的id号
Dim jz（1To 20）As Long,tj（1To 20）As Long'数组jz、tj分别存储物品的价值和体积
Dim dwjz（1To 20）As Single'存储物品的单位价值
Dim n As Integer'表示物品数
Private Sub Command1_Click （　　）
'读取数据库表中前n条记录的信息
End Sub
Private Sub Command2_Click （　　）
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“编号“+“价值“+“体积“+“装入背包的体积“
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“背包总价值为：“+Str（ans）
End Sub