2017年9月杭州各大樓盤的銷售價(jià)格數(shù)據(jù)信息已經(jīng)保存在數(shù)據(jù)庫(kù)文件database1．a(chǎn)ccdb的Building數(shù)據(jù)表中，用于顯示樓盤信息的VB程序運(yùn)行時(shí)界面如圖所示．運(yùn)行程序，單擊“顯示”按鈕，在列表框list1中顯示樓盤信息，單擊“降序排列”按鈕，在列表框list1中按樓盤均價(jià)從高到低顯示樓盤信息．按此要求編寫的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.jye.ai.12.0；data source=“&App.Path &“\database1．a(chǎn)ccdb“
conn.Open
Set rs.ActiveConnection=   ①
rs.Open“select*from Building“
i=0
Do While ②
         i=i+1
         num（i）=rs.Fields（“編號(hào)“）
         price（i）=rs.Fields（“均價(jià)（元）“）
         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（　?。?br />   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
請(qǐng)回答下列問題：
（1）程序加框處的代碼有錯(cuò)，請(qǐng)改正：①

conn

conn

 ②

rs.EOF

rs.EOF

（2）橫線處應(yīng)填入的代碼為①

m=1 to i

m=1 to i

 ②

price（k）＜price（n）

price（k）＜price（n）

．