学进去

小诚同学设计了一个智慧公交管理程序：公交线路上共有n个公交站点，编号分别是1，2，…，n，从1个站点行驶到下一个站点均需要5分钟，若某个站点需要上下客，不论有多少人，都按平均停留1分钟计算；该程序可以精准采集到了每个站点将上下车的乘客信息，如果某站点无人上下车，车辆将不再浪费时间停车。
小诚为更高效的执行查询操作，使用优化后的冒泡排序算法，对乘客信息以上车站点为主关键字，以下车站点为次要关键字升序排序，排序效果参考下图。

在文本框Text1中输入要查询的站点编号，点击“查询”按钮后，程序计算到达该站点的时间以及从该站点发出时车辆上的乘客人数。
程序界面如右图，请回答以下问题：
（1）如果希望在程序运行时清空列表框list1中的内容，可执行的语句是__________。
（2）请在划线处填入合适的代码。
①_________________
②_________________
（3）程序中加框处代码有错，请改正。
改正：________
Dim a(1 To 200) As Integer, b(1 To 200) As Integer      '存储第i名乘客的上车站点、下车站点
Dim s(1 To 50) As Integer       '存储第i个站点发车时的人数
Dim t(1 To 50) As Integer       '存储第i个站点前已经停过的站点数量
Dim n As Integer, m As Integer   '共有n个站点, m名乘客
Private Sub Form_Load()
'程序自动读取每名乘客的上下车站点信息,第i名乘客的上车信息存入a(i),下车站点存入b(i),乘客的上下车信息显示在list1中,乘客总人数存入m,站点总数存入n.
' 对乘客信息按上下车信息排序
k = m - 1
For i = 1 To m - 1
flag = False
For j = 1 To k
If   Then
tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmp
tmp = b(j): b(j) = b(j + 1): b(j + 1) = tmp
flag = True
①____________________'填写语句,优化下一轮冒泡的比较范围
End If
Next j
k = p
If flag = False Then Exit For
Next i
' 在list2中输出排序后的乘客上车站点和下车站点等信息
End Sub
Private Sub Command1_Click()
i = 1
x = Val(Text1.Text)
'统计信息
Do While a(i) <= x
s(a(i)) = s(a(i)) + 1
s(b(i)) = s(b(i)) - 1
t(a(i)) = 1
t(b(i)) = 1
i = i + 1
Loop
t(1) = 0
For i = 2 To x
s(i) = ②____________________
t(i) = t(i - 1) + t(i)
Next i
sj = (x - 1) * 5 + t(x - 1)
Label3.Caption = "从起点出发" + Str(sj) + "分钟后达到,发车时车上共" + Str(s(x)) + "人"
End Sub