疊方塊游戲。在一個10×10的區(qū)域內(nèi)玩疊方塊游戲，為方便處理，該區(qū)域的行號從下往上依次編號為1，2、……、9、10，列號從右往左依次編號為0、1、……、8、9。方塊只有一種形狀，如下圖a所示，左上角是該方塊的中心位置。程序界面如下圖b所示，單擊“生成數(shù)據(jù)”按鈕Command1，隨機生成5個[1，9]范圍內(nèi)的數(shù)字，并顯示在文本框Text1中，每個數(shù)字即為方塊的中心位置從該數(shù)字表示的列掉下來，若碰到方塊就疊上去，若一直掉到底部都沒有碰到方塊，就停在底部。所有操作結(jié)束后，輸出整個區(qū)域的狀態(tài)，如圖c、圖d所示。圖e為行、列編號示意圖。

算法概述如下：用一個二進制位表示某個位置的狀態(tài)，0表示該位置沒有方塊，1表示該位置有方塊，每一行的狀態(tài)存儲在數(shù)組a中。例如：圖c第1行的狀態(tài)為“1010101010”，則a（1）=682，即2⁹+2⁷+2⁵+2³+2¹=682，根據(jù)a（1）\2^1Mod2的結(jié)果可判斷第1行的第1列是否有方塊。
（1）以圖d為例，a（1）\2^4Mod2的結(jié)果是

1

1

（填數(shù)字）。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
DimsAsString
Constn=10
PrivateSubCommand1_Click（　?。?生成數(shù)據(jù)
DimiAsInteger,tAsInteger
Randomize
s=““
Fori=1Ton\2

t=Int（Rnd*9）+1

t=Int（Rnd*9）+1

'隨機生成[1，9]范圍內(nèi)的整數(shù)
s=s+CStr（t）'Cstr

（　?。?/div>

（　?。?/div>的作用是去掉字符串前面的空格
Nexti
Text1.Text=s
EndSub
PrivateSubCommand2_Click （　　）'開始游戲
Dima（n）AsInteger
DimiAsInteger,kAsInteger,tAsInteger
DimansAsString
Fori=0Ton
a（i）=0
Nexti
Fork=1ToLen（s）
t=Val（Mid（s,k,1））
Fori=n-2To0Step-1'i=0時該方塊可以直接到達底部
Ifa（i）\2^tMod2=1Ora（i+1）\2^（t-1）Mod2=1Ori=0Then

a（i+1）=a（i+1）+2^t

a（i+1）=a（i+1）+2^t

a（i+2）=a（i+2）+2^t+2^（t-1）
ExitFor'ExitFor為退出For循環(huán)
EndIf
Nexti
Nextk
List1.Clear
ans=″″
Fori=10To1Step-1
Fork=0To9
Ifa（i）Mod2=1Then
ans=″■″+ans
Else
ans=″″+ans
EndIf

a（i）=a（i）\2

a（i）=a（i）\2

Nextk
List1.AddItemans
ans=″″
Nexti
EndSub