有多人在不同樓層要乘坐同一部電梯，所有人都是去往更高樓層，電梯初始位置為第一批用戶出發的樓層位置。電梯在運行時，上升一層需耗時3秒，在某一層停留時（含電梯初始位置和電梯結束位置），不論有多少人進出都算8秒。小馬同學利用上述算法編寫了一個VB程序，在列表框list1中顯示所有人的出發與到達樓層，按照出發樓層升序（出發樓層相同按到達樓層升序）排序，在列表框list2中輸出排序后結果，最后在文本框Text1中輸出電梯本次運行的總時間。程序運行界面如圖所示，回答下列問題：

（1）若有5批用戶出發與到達樓層分別是“10-25、5-15、15-20、15-30、5-10”，按照上述電梯運行規則，則電梯本次運行的總時間為

123

123

秒。
（2）給橫線處填上合適代碼，使程序完整。
Dim a（1To10）As Integer,b（1To10）As Integer
Private Sub Command1_Click ____
Dim i As Integer,time As Integer,k As Integer
Dim c（1To20）As Integer,nc As Integer
c（1）=a（1）：nc=1
For i=1 To 9'刪除起點重復數據后添加到數組c
If a（i）＜＞a（i+1）Then
nc=nc+1
①

c（nc）=a（i+1）

c（nc）=a（i+1）

EndIf
Next i
Fori=1To10'刪除終點重復數據后添加到數組c
k=nc
Do While b（i）＜c（k）
k=k-1
Loop
lf  ②

b（i）＜＞c（k）或b（i）＞c（k）

b（i）＜＞c（k）或b（i）＞c（k）

Then'非重復數據（新停靠樓層）添加到數組c
For j=nc To k+1 Step-1
c（j+1）=cj）
Next j
nc=nc+1
c（j+1）=b（i）
End If
Next i
time=（c（nc）-c（1））*3+nc*8
Text1.Text=“總時間--“+Str（time）+“秒”
End Sub
Private Sub Form_Load

（　　）

（　　）

'生成10批人的起止樓層，分別給數組a和b,并在列表框list1輸出，代碼略.
For i=1 To 9
For j=10 To i+1 Step-1
If a（j）＜a（j-1）Or③

a（j）=a（j-1）And b（j）＜b（j-1）

a（j）=a（j-1）And b（j）＜b（j-1）

Then
t=a（j）：a（j）=a（j-1）：a（j-1）=t
t=b（j）：b（j）=b（j-1）：b（j-1）=t
End If
Next j
Next i
For i=1 To 10
List2.AddItem Str（a（i））+Str（b（i））
Next i
End Sub