某手机APP为电影观众选座提供了程序推荐和自主选位功能。当观众购票选择程序推荐时，程序根据电影放映厅内每个座位的优先等级（用一个正整数表示其等级值，如图a所示），自第1排1号座开始，按自左向右逐排的顺序查找满足本次购票人数r的最优空位区（最优空位区是指从某个座位开始的同排连续的r个空位，且其等级值之和最高，若有多个最优空位区，则推荐最先找到的）。若找到，则显示出推荐的座位编号；若找不到，则提示自主选位。例如：图a中放映厅内座位有9排10列，第5排10个座位的等级值依次为：1，2，3，4，5，5，4，3，2，1。全部座位为空时，当前购票人数为5，推荐座位编号为5排3-7号；如图b所示已经部分选座状态下，当前购票人数为2，推荐座位编号为6排3-4号。

编写VB程序，模拟上述功能。运行程序，在列表List1中显示目前选座状态，黑点表示已选座，白点表示空位，在文本框Text1中输入购票人数后，单击“推荐”按钮Command1，在标签Label3显示当前购票人座位的推荐结果。程序运行界面如图c所示。

（1）如图a所示，全部座位为空时，第1次购票人数为4人，按程序推荐座位选座，座位等级值之和为

18

18

。
（2）实现上述功能的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表示每排的座位数为10
Dim r As Integer'r表示当次输入的购票人数
Dim a（1 to m*n）As Integer'a数组存放每个座位的等级值
Dim b（l to m*n+1）As Integer′b数组保存当前各座位选座情况，选中为1，未选为0
Private Sub Form_Load（　　）
'从第1排开始，按座位编号从小到大顺序逐排读取座位等级值并依次存入数组a
'同上述顺序，读取选座状态存入数组元素b（1）至b（m*n）中，输出当前选座状态。代码略
End Sub
Function getsum（i As Integer,j As Integer）As Integer
'从第i排第j列开始，计算第i排中满足r个观众就座的连续空位等级值之和。
'若无法找到足够的连续空位时，则返回-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