某校質(zhì)量檢測(cè)共n名學(xué)生參加，李老師編寫了一個(gè)試場(chǎng)號(hào)座位號(hào)編排軟件，輸入選考科目就能根據(jù)該選考科目選考學(xué)生的名單編排試場(chǎng)．具體編排規(guī)則如下：讀取數(shù)據(jù)庫中學(xué)生的學(xué)號(hào)、姓名以及選考組合，和隨機(jī)產(chǎn)生一個(gè)3位數(shù)，根據(jù)這個(gè)3位數(shù)和選考科目，排定該選考科目的試場(chǎng)，其中a（i）用于存放第i位學(xué)生的學(xué)號(hào)，b（i） 用于存放第i位學(xué)生的 姓名，c（i） 用于存放第i位學(xué)生的選考組合，d（i）用于存放第i位學(xué)生的3位隨機(jī)數(shù)．
程序界面如圖所示，在文本框Text1中輸入選考科目，單擊“開始編排”按鈕（Command1），根據(jù)產(chǎn)生的隨機(jī)數(shù)和選考科目，進(jìn)行試場(chǎng)編排，每30個(gè)人一個(gè)試場(chǎng)．試場(chǎng)顯示格式一律為：試場(chǎng)號(hào)-座位號(hào)．
 
實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
Dim n As Integer'考生數(shù)
Dim a（1000）As String,b（1000）As String,c（1000）As String
Dim d（1000）As Integer,e（1000）As String
Private Sub Form_Load （　　）
'讀取數(shù)據(jù)庫中學(xué)生的信息，分別將學(xué)號(hào)，姓名，選考組合和隨機(jī)數(shù)存入a（i）、b（i）、c（i） d（i）中
End Sub
Private Sub Command1_Click （　　）
 Dim km As String
 km=Mid（Text1．Text,1，1）
 xk=0'選考實(shí)際人數(shù)
 For i=1 To n
   If km=Mid（c（i），1，1）or km=Mid（c（i），2，1）or km=Mid（c（i），3，1）Then
      xk=xk+1
      a（xk）=a（i）
      b（xk）=b（i）
      c（xk）=c（i）
      d（xk）=d（i）
   End If
 Next i
 For i=1 To xk-1
     k=i
     For j=i+1 To xk
         If    Then k=j
     Next j
     If k＜＞i Then
        t=a（k）：a（k）=a（i）：a（i）=t
        t=b（k）：b（k）=b（i）：b（i）=t
        t=c（k）：c（k）=c（i）：c（i）=t
        t=d（k）：d（k）=d（i）：d（i）=t
    End If
 Next i
 For i=1 To xk
     e（i）=
     List1．AddItem a（i）+““+b（i）+““+c（i）+““+Str（d（i））+““+e（i）
 Next i
End Sub.