叠方块游戏。在一个10×10的区域内玩叠方块游戏，为方便处理，该区域的行号从下往上依次编号为1，2、……、9、10，列号从右往左依次编号为0、1、……、8、9。方块只有一种形状，如下图a所示，左上角是该方块的中心位置。程序界面如下图b所示，单击“生成数据”按钮Command1，随机生成5个[1，9]范围内的数字，并显示在文本框Text1中，每个数字即为方块的中心位置从该数字表示的列掉下来，若碰到方块就叠上去，若一直掉到底部都没有碰到方块，就停在底部。所有操作结束后，输出整个区域的状态，如图c、图d所示。图e为行、列编号示意图。

算法概述如下：用一个二进制位表示某个位置的状态，0表示该位置没有方块，1表示该位置有方块，每一行的状态存储在数组a中。例如：图c第1行的状态为“1010101010”，则a（1）=682，即2⁹+2⁷+2⁵+2³+2¹=682，根据a（1）\2^1Mod2的结果可判断第1行的第1列是否有方块。
（1）以图d为例，a（1）\2^4Mod2的结果是

1

1

（填数字）。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
DimsAsString
Constn=10
PrivateSubCommand1_Click（　　）'生成数据
DimiAsInteger,tAsInteger
Randomize
s=““
Fori=1Ton\2

t=Int（Rnd*9）+1

t=Int（Rnd*9）+1

'随机生成[1，9]范围内的整数
s=s+CStr（t）'Cstr

（　　）

（　　）

的作用是去掉字符串前面的空格
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循环
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