17．某農(nóng)科所研究不同品種生豬產(chǎn)肉量比，數(shù)據(jù)利用Visual Basic 進(jìn)行數(shù)據(jù)處理，生豬的品種編號(hào)、產(chǎn)肉比等數(shù)據(jù)存儲(chǔ)在某數(shù)據(jù)庫文件中，程序運(yùn)行界面如下：
程序運(yùn)行后，在列表框List1中顯示生豬品種編號(hào)以及對(duì)應(yīng)的產(chǎn)肉比，單擊“排序”按鈕（Command1）后，在列表框List2中顯示以產(chǎn)肉比的高低，進(jìn)行降序排列后的生豬品種編號(hào)以及對(duì)應(yīng)的產(chǎn)肉比；單擊“查找”按鈕（Command2）后，在列表框List3中顯示產(chǎn)肉比相同的品種編號(hào)。
請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim conn As New ADODB．Connection
Dim cmd As New ADODB．Command
Dim rs As New ADODB．Recordset
Dim NO（1To 20）As String‘品種編號(hào)
Dim Crb（1To 20）As Single‘產(chǎn)肉比
Dim n As Integer
Private Sub Command1_Click （ ?。?br />Dim i As Integer,j As Integer,t1As String,t2As Single
For i=1To 19
For j=20To i+1Step-1
If①
Then
t1=NO（j）：NO（j）=NO（j-1）：NO（j-1）=t1
t2=Crb（j）：Crb（j）=Crb（j-1）：Crb（j-1）=t2
End If
Next j
Next i
List2．Clear
For i=1To 20
List2．AddItem NO（i） &““& Str（Crb（i））
Next i
End Sub
Private Sub Command2_Click （ ?。?br />Dim s As String,k As Integer,flag As Boolean
For i=1To 19
s=““
k=i
s=②
flag=False
For j=i+1To 20
If ③
Then
s=s+“和“+NO（j）
flag=True
End If
Next j
If flag=True Then List3．AddItem s
Next i
End Sub
Private Sub Form_Load （ ?。?br />conn.ConnectionString=“Provider=microsoft.ACE．OLEDB.12.0；Data Source=“+App.Path+“\szcrb.accdb“
conn.Open
strsql=“select*from crb“
Set rs.ActiveConnection=conn
本過程其他代碼略
End Sub
