某手機APP為電影觀眾選座提供了程序推薦和自主選位功能。當觀眾購票選擇程序推薦時，程序根據(jù)電影放映廳內每個座位的優(yōu)先等級（用一個正整數(shù)表示其等級值，如圖a所示），自第1排1號座開始，按自左向右逐排的順序查找滿足本次購票人數(shù)r的最優(yōu)空位區(qū)（最優(yōu)空位區(qū)是指從某個座位開始的同排連續(xù)的r個空位，且其等級值之和最高，若有多個最優(yōu)空位區(qū)，則推薦最先找到的）。若找到，則顯示出推薦的座位編號；若找不到，則提示自主選位。例如：圖a中放映廳內座位有9排10列，第5排10個座位的等級值依次為：1，2，3，4，5，5，4，3，2，1。全部座位為空時，當前購票人數(shù)為5，推薦座位編號為5排3-7號；如圖b所示已經部分選座狀態(tài)下，當前購票人數(shù)為2，推薦座位編號為6排3-4號。

編寫VB程序，模擬上述功能。運行程序，在列表List1中顯示目前選座狀態(tài)，黑點表示已選座，白點表示空位，在文本框Text1中輸入購票人數(shù)后，單擊“推薦”按鈕Command1，在標簽Label3顯示當前購票人座位的推薦結果。程序運行界面如圖c所示。

（1）如圖a所示，全部座位為空時，第1次購票人數(shù)為4人，按程序推薦座位選座，座位等級值之和為

18

18

。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼

sum+a（k）或sum+a（（i-1）*n+p）

sum+a（k）或sum+a（（i-1）*n+p）

、

t=getsum（i,j）

t=getsum（i,j）

、

posTopos+r-1或pos+r-1ToposStep-1

posTopos+r-1或pos+r-1ToposStep-1

。
Constm=9'm表示座位有9排
Constn=10′n表示每排的座位數(shù)為10
Dim r As Integer'r表示當次輸入的購票人數(shù)
Dim a（1 to m*n）As Integer'a數(shù)組存放每個座位的等級值
Dim b（l to m*n+1）As Integer′b數(shù)組保存當前各座位選座情況，選中為1，未選為0
Private Sub Form_Load（　　）
'從第1排開始，按座位編號從小到大順序逐排讀取座位等級值并依次存入數(shù)組a
'同上述順序，讀取選座狀態(tài)存入數(shù)組元素b（1）至b（m*n）中，輸出當前選座狀態(tài)。代碼略
End Sub
Function getsum（i As Integer,j As Integer）As Integer
'從第i排第j列開始，計算第i排中滿足r個觀眾就座的連續(xù)空位等級值之和。
'若無法找到足夠的連續(xù)空位時，則返回-1
Dim p As Integer,sum As Integer,k As Integer
sum=0
p=j：k=（i-1）*n+p
Do Whilep＜=j+r-l And b（k）=0
sum=①____
p=p+1：k=k+1
Loop
If p=j+r Then getsum=sum Else getsum=-1
End Function
Private Sub Command1_Click）
Dim iAs Integer,jAs Integer,s As String,max As Integer
Dim t As Integer,newi As Integer,newj As Integer,pos As Integer
r=Val（Textl.Text）
max=0
For i=1To m
Forj=l To n-r+1
②____-
If max＜t Then max=t：newi=i：newj=j
Next j
Next i
If max=0 Then
Label3.Caption=“請自主選位”
Else
pos=（newi-1）*n+newj
Fori=③_____
b（i）=1
Next i
Label3.Caption=“推薦座位編號：”&newi&“排”&newj&”-”&newj+r-1&”座”
End If
End Sub