某地區(qū)有8個城市爆發(fā)疫情，需要發(fā)放救援物資。各城市的相鄰關系用0表示不相鄰，1表示相鄰。例如：圖a的鄰接矩陣對應關系圖如圖b所示。

救援物資一共有4種（第1種口罩、第2種酒精、第3種防護服、第4種耳溫槍），每個城市僅能分配到1種物資，要求相鄰城市所分配到的救援物資各不相同。
算法分析：采用試探法分配物資（每個城市都從第1種物資開始逐個試探）。
第i個城市能否分配第c種物資，關鍵取決于第i個城市的周邊是否有分配到相同物資的城市。如果已有相鄰城市分配到第c種物資，則換第c+1種物資，否則就將第c種物資分配給第i個城市，繼續(xù)探索第i+1個城市。
如果第i個城市，4種物資都無法分配到，則退回到第i-1個城市，調(diào)整第i-1個城市的物資，重新試探下一種物資。直至所有城市的救援物資都分配好。
例如：給城市1分配第1種物資，然后給第2個城市分配物資時，也從第1種物資開始試探，若發(fā)現(xiàn)第1種物資已分配給相鄰城市，則試探第2種物資，以此類推。
小金同學編寫VB程序實現(xiàn)上述功能：程序運行時，各城市之間相鄰關系矩陣顯示在列表框List1中。單擊“分配”按鈕Command1，在列表框List2中顯示物資分配方案。程序運行界面如圖c所示，請回答下列問題。
（1）若按照上述算法，8個城市的相鄰關系矩陣圖如圖a、圖b所示，則城市8所分配到的物資是

酒精

酒精

（填：口罩/酒精/防護服/耳溫槍）
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
PrivateSubCommand1_Click （　?。〤onstn=8
Dima（1Ton*n）AsInteger,t（1Ton）AsInteger,Dimw（1To4）AsStringDimcAsInteger,iAsInteger,jAsInteger,DimfAsBoolean
w（1）=“口罩“：w（2）=“酒精“：w（3）=“防護服“：w（4）=“耳溫槍“
讀取8個城市的鄰接矩陣對應關系，存入a數(shù)組中，并顯示在列表框List1中，代碼略
c=1t（1）=ci=2
DoWhile

①i＜=n

①i＜=n

Forj=1Toi-1
If

②a（（j-1）*n+i）=1 And t（j）=c

②a（（j-1）*n+i）=1 And t（j）=c

ThenExitFor
EndIfNextj
Ifj＜iThen
c=c+1
DoWhilec＞4i=i-1
Ifi=0Then
List2.AddItem“noanswer“ExitSub
EndIf
c=

③t（i）+1

③t（i）+1

Loop
Else
t（i）=ci=i+1c=1
EndIfLoopList2.ClearFori=1Ton
List2.AddItem“城市“&i&“：“&w（t（i））Nexti
EndSub