16.模擬某新型病毒傳播的過程,已知有n*n個格子(1<=n<=10),某天其中某些格子由于不知名原因感染了病毒,開始影響周圍的格子。傳染原理如圖a所示:
某3行3列的格子初始狀態(tài)如圖a所示,1表示異常(由于不知名原因感染了病毒且具有傳染性),0表示正常。除了邊上一圈的格子,每個格子周圍有8個格子,第一天某正常格子周圍超過半數(shù)格子異常,則該格子第二天就會變異常,并且?guī)в袀魅拘?。傳染過程如圖b所示,矩陣中1、2、3、4分別表示該格子第1天、第2天、第3天、第4天被感染,0表示未被感染??梢钥闯鲈摼仃嚫褡拥?天全部被感染。
編寫VB程序,運行程序后,在Text1中輸入矩陣規(guī)模(不超過10),單擊“初始化”命令按鈕,在List1中輸出第一天所有格子的狀態(tài),單擊“傳播”命令按鈕,在List2中輸出所有格子的最終狀態(tài),并在Label2中輸出第幾天全部被感染或者“不會被全部感染”。
程序運行界面如圖c所示。
(1)已知第一天所有格子狀態(tài)如圖d所示,則第
天所有格子全部被感染。
(2)實現(xiàn)上述功能程序代碼如下,完善橫線處語句。