某校质量检测共n名学生参加，李老师编写了一个试场号座位号编排软件，输入选考科目就能根据该选考科目选考学生的名单编排试场．具体编排规则如下：读取数据库中学生的学号、姓名以及选考组合，和随机产生一个3位数，根据这个3位数和选考科目，排定该选考科目的试场，其中a（i）用于存放第i位学生的学号，b（i） 用于存放第i位学生的 姓名，c（i） 用于存放第i位学生的选考组合，d（i）用于存放第i位学生的3位随机数．
程序界面如图所示，在文本框Text1中输入选考科目，单击“开始编排”按钮（Command1），根据产生的随机数和选考科目，进行试场编排，每30个人一个试场．试场显示格式一律为：试场号-座位号．
 
实现上述功能的VB代码如下，但加框处代码有错，请改正．
Dim n As Integer'考生数
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 （　　）
'读取数据库中学生的信息，分别将学号，姓名，选考组合和随机数存入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'选考实际人数
 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.