17．2017年9月杭州各大樓盤的銷售價格數(shù)據(jù)信息已經保存在數(shù)據(jù)庫文件database1．accdb的Building數(shù)據(jù)表中，用于顯示樓盤信息的VB程序運行時界面如圖所示．運行程序，單擊“顯示”按鈕，在列表框list1中顯示樓盤信息，單擊“降序排列”按鈕，在列表框list1中按樓盤均價從高到低顯示樓盤信息．按此要求編寫的VB程序如下：
Dim num（1 To 50）As String
Dim price（1 To 50）As Single
Dim infor（1 To 50）As String
Dim nam（1 To 50）As String
Dim i As Integer
Private Sub Form_Load（ ?。?br />Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
conn.ConnectionString=“provider=microsoft.ace.oledb.12.0；data source=“&App.Path &“\database1．accdb“
conn.Open
Set rs.ActiveConnection=
①
rs.Open“select*from Building“
i=0
Do While
②
i=i+1
num（i）=rs.Fields（“編號“）
price（i）=rs.Fields（“均價（元）“）
infor（i）=rs.Fields（“信息“）
nam（i）=rs.Fields（“樓盤名“）
rs.MoveNext
Loop
rs.Close
conn.Close
End Sub
Private Sub Command1_Click（ ）
Dim j As Integer
List1．Clear
For j=1 To i
List1．AddItem num（j） &““& Str（price（j）） &““& infor（j） &““& nam（j）
Next j
End Sub
Private Sub Command2_Click（ ）
Dim m As Integer
List1．Clear
For
k=m
For n=m+1 To i
If
Then k=n
Next n
If m＜＞k Then
t=price（m）：price（m）=price（k）：price（k）=t
End If
List1．AddItem num（m） &““& Str（price（m）） &““& infor（m） &““& nam（m）
Next m
List1．AddItem num（m） &““& Str（price（m）） &““& infor（m） &““& nam（m）
End Sub
請回答下列問題：
（1）程序加框處的代碼有錯，請改正：①
②
（2）橫線處應填入的代碼為①
②
．
