小李設(shè)計(jì)了一個(gè)插入排序的VB程序，功能如下：在列表框List1中按成績從低到高顯示每個(gè)學(xué)生的姓名和成績，在文本框Text1中輸入一個(gè)學(xué)生的姓名，在文本框Text2中輸入這位學(xué)生的成績，單擊“插入排序”按鈕Command1，檢查數(shù)組列表中的學(xué)生成績，將其插入到適當(dāng)位置，保持成績有序，并在列表框List2中顯示插入后的學(xué)生姓名和成績序列．程序運(yùn)行界面如圖所示．

實(shí)現(xiàn)以上功能的VB程序如下，請回答下列問題：
（1）小李使用的查找算法是

順序查找

順序查找

（填：順序查找/對分查找）．
（2）分析程序，可知關(guān)閉記錄集對象的語句為

rs.Close

rs.Close

．
（3）請?jiān)诋嬀€處填入合適的代碼．
     Dim  m（1 To  20）As　String
     Dim   s（1 To  20）As　Integer
     Dim　n　As　Integer
 Private　Sub　Form_Load（　　）
     Dim　conn　As　New　ADODB．Connection'定義新的數(shù)據(jù)庫連接
     Dim　rs　As　New　ADODB．Recordset'定義數(shù)據(jù)庫的一個(gè)對象
     conn.ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；data   source=“&   App.Path　&“\fwdh.jye.ai“'設(shè)置conn的數(shù)據(jù)庫鏈接字符串
      conn.Open'找開數(shù)據(jù)庫鏈接
      Set  rs.ActiveConnection=conn'設(shè)置rs的ActiveConnection屬性，關(guān)聯(lián)conn
      rs.Open“select ^_* from  fwdh“'打開數(shù)據(jù)庫中的表 fwdh
      n=0
      Do　While　Not　rs.EOF
         n=n+1
         m（n）=rs.Fields（0）
         s（n）=rs.Fields（1）
         List1．AddItem  rs.Fields（“姓名“）&““&  rs.Fields（“成績“）
         rs.MoveNext
       Loop
       rs.Close
       conn.Close
End　Sub
Private　Sub　command1_click （　　）
     Dim x  As　String,y  As　Integer
      x=Text1．Text
      y=Val（Text2．Text）
      i=n
      Do　While

y＜s（i）

y＜s（i）

'①
          s（i+1）=s（i）
          m（i+1）=m（i）
           i=i-1
       Loop

s（i+1）=y

s（i+1）=y

'②

m（i+1）=x

m（i+1）=x

'③
        For  i=1  To  n+1
            List2．AddItem  m（i）&““&Str（s（i））
        Next  i
End　Sub.