模拟某新型病毒传播的过程，已知有n*n个格子（1＜=n＜=10），某天其中某些格子由于不知名原因感染了病毒，开始影响周围的格子。传染原理如图a所示：

某3行3列的格子初始状态如图a所示，1表示异常（由于不知名原因感染了病毒且具有传染性），0表示正常。除了边上一圈的格子，每个格子周围有8个格子，第一天某正常格子周围超过半数格子异常，则该格子第二天就会变异常，并且带有传染性。传染过程如图b所示，矩阵中1、2、3、4分别表示该格子第1天、第2天、第3天、第4天被感染，0表示未被感染。可以看出该矩阵格子第4天全部被感染。
编写VB程序，运行程序后，在Text1中输入矩阵规模（不超过10），单击“初始化”命令按钮，在List1中输出第一天所有格子的状态，单击“传播”命令按钮，在List2中输出所有格子的最终状态，并在Label2中输出第几天全部被感染或者“不会被全部感染”。
程序运行界面如图c所示。

（1）已知第一天所有格子状态如图d所示，则第

2

2

天所有格子全部被感染。
（2）实现上述功能程序代码如下，完善横线处语句。