模擬某新型病毒傳播的過程，已知有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）實現上述功能程序代碼如下，完善橫線處語句。