学进去

某会议室收到10场会议使用申请，会议室使用安排要求：①会议时间不冲突；②一天内安排的会议场数最多；③优先安排结束时间早的会议，小李编写了一个VB程序，在List1中显示按结束时间升序排序的10场会议，List2中显示最终会议安排方案，运行界面如图所示。已知每场会议的开始、结束时间分别保存在数组a和数组b中，比如第i场会议，开始时间保存在a(i)中，结束时间保存在b(i)中。
               
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim a (1 To 20) As Single
Dim b (1 To 20) As Single
Dim i As Integer
Const kaishi=8       '会议室开门时间
Const jieshu=17      '会议室关门时间
'此处代码实现分别录入每场会议的开始、结束时间并存人相应数组,代码略
For i=1 To 9
k=i
For j=i+1 To 10
If   Then k=j             '(1)________

Next j

If k <> i Then

t=a(i):a(i)=a(k):a(k)=t
t=b(i):b(i)=b(k):b(k)=t
End If
Next i
For i=1 To 10
List1.AddItem a(i) &"点"& "-" & b(i) & "点"
Next i
k=1
Do While(k)<kaishi

k=k+1

Loop
t=b(k)
List2.AddItem(k) &"点"& "-" & b(k) & "点"
'输出第一场会议的时间
For i=k+1 To 10
If b(i)<=jieshu Then
If a(i)>=t Then
List2.AddItem a(i) &"点"& "-" & b(i) & "点"
                     '(2)________

End If

End If
Next i
End Sub