小誠同學(xué)設(shè)計了一個智慧公交管理程序：公交線路上共有n個公交站點，編號分別是1，2，…，n,從1個站點行駛到下一個站點均需要5分鐘，若某個站點需要上下客，不論有多少人，都按平均停留1分鐘計算；該程序可以精準(zhǔn)采集到了每個站點將上下車的乘客信息，如果某站點無人上下車，車輛將不再浪費時間停車。
小誠為更高效的執(zhí)行查詢操作，使用優(yōu)化后的冒泡排序算法，對乘客信息以上車站點為主關(guān)鍵字，以下車站點為次要關(guān)鍵字升序排序，排序效果參考如圖。

在文本框Text1中輸入要查詢的站點編號，點擊“查詢”按鈕后，程序計算到達(dá)該站點的時間以及從該站點發(fā)出時車輛上的乘客人數(shù)。
程序界面如右圖，請回答以下問題：
（1）如果希望在程序運(yùn)行時清空列表框list1中的內(nèi)容，可執(zhí)行的語句是

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個站點發(fā)車時的人數(shù)
Dim t（1 To 50）As Integer'存儲第i個站點前已經(jīng)停過的站點數(shù)量
Dim n As Integer,m As Integer'共有n個站點，m名乘客
Private Sub Form_Load （　　）
'程序自動讀取每名乘客的上下車站點信息，第i名乘客的上車信息存入a（i），下車站點存入b（i），乘客的上下車信息顯示在list1中，乘客總?cè)藬?shù)存入m,站點總數(shù)存入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
①____'填寫語句，優(yōu)化下一輪冒泡的比較范圍
End If
Next j
k=p
If flag=False Then Exit For
Next i
'在list2中輸出排序后的乘客上車站點和下車站點等信息
End Sub
Private Sub Command1_Click （　?。?br />i=1
x=Val（Text1.Text）
'統(tǒng)計信息
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=“從起點出發(fā)“+Str（sj）+“分鐘后達(dá)到，發(fā)車時車上共“+Str（s（x））+“人“
End Sub