学进去

某手机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人，按程序推荐座位选座，座位等级值之和为____________。
(2)实现上述功能的VB程序如下，请在划线处填入合适的代码___、____、_____。

'从第1排开始，按座位编号从小到大顺序逐排读取座位等级值并依次存入数组a
'同上述顺序，读取选座状态存入数组元素b(1)至b(m*n)中，输出当前选座状态。代码略

'从第i排第j列开始，计算第i排中满足r个观众就座的连续空位等级值之和。
'若无法找到足够的连续空位时，则返回-1