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

在文本框Text1中输入要查询的站点编号，点击“查询”按钮后，程序计算到达该站点的时间以及从该站点发出时车辆上的乘客人数。
程序界面如右图，请回答以下问题：
（1）如果希望在程序运行时清空列表框list1中的内容，可执行的语句是

List1.Clear

List1.Clear

。
（2）请在横线处填入合适的代码。
①

p=j

p=j

②

s（i）+s（i-1）

s（i）+s（i-1）

（3）程序中加框处代码有错，请改正。
改正：

a（j）＞a（j+1）Or a（j）=a（j+1）And b（j）＞b（j+1）

a（j）＞a（j+1）Or a（j）=a（j+1）And b（j）＞b（j+1）

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 a （j）＞a （j+1）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