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

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

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

18

18

。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線(xiàn)處填入合適的代碼

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表示當(dāng)次輸入的購(gòu)票人數(shù)
Dim a（1 to m*n）As Integer'a數(shù)組存放每個(gè)座位的等級(jí)值
Dim b（l to m*n+1）As Integer′b數(shù)組保存當(dāng)前各座位選座情況，選中為1，未選為0
Private Sub Form_Load（　?。?br />'從第1排開(kāi)始，按座位編號(hào)從小到大順序逐排讀取座位等級(jí)值并依次存入數(shù)組a
'同上述順序，讀取選座狀態(tài)存入數(shù)組元素b（1）至b（m*n）中，輸出當(dāng)前選座狀態(tài)。代碼略
End Sub
Function getsum（i As Integer,j As Integer）As Integer
'從第i排第j列開(kāi)始，計(jì)算第i排中滿(mǎn)足r個(gè)觀眾就座的連續(xù)空位等級(jí)值之和。
'若無(wú)法找到足夠的連續(xù)空位時(shí)，則返回-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=“請(qǐng)自主選位”
Else
pos=（newi-1）*n+newj
Fori=③_____
b（i）=1
Next i
Label3.Caption=“推薦座位編號(hào)：”&newi&“排”&newj&”-”&newj+r-1&”座”
End If
End Sub