四宫数独规则：在4×4的格子中，根据已知数字，推理出所有剩余空格的数字，并满足每一行、每一列、每一个宫（粗线框区域）内均含1到4的数字并且不重复，每道数独有且仅有唯一答案。
例如，根据规则推理图1数独，在第一宫中4个格子已经3个格子分别是数字1到3，缺的数字为4，因此第一行第一格空缺的数字填4，以此类推，直至将所有格子都推理出来。
（1）根据上述规则推理，数独（图2）第一行A处应是数字

2

2

。
（2）小明编写了四宫数独推算的VB程序，单击“推算”按钮Command1后，在列表框List1中输出数独推算过程和结果，如图3所示。实现推算的VB程序如下，请在横线处填入合适的代码。
Dimd（1To16）AsInteger'数组d逐行存储四宫数独
PrivateSubCommand1_Click （　　）
DimiAsInteger,flagAsBoolean
Fori=1To16
d（i）=0‘值0表示该位置还未填数字
Nexti
‘初始化数独中已知位置的数字
d（2）=4：d（11）=3：d（14）=2：d（16）=4
List1.Clear
'在列表框Li1中输出四宫数独，代码略
flag=False
DoWhileNotflag
①

flag=True

flag=True

Fori=1To16
‘函数check（i）实现对第i位置进行推算
Ifd（i）=0Then
d（i）=check（i）
Ifd（i）＞0Then
flag=False
'Forniat（i,″00″）函数实现将变量i的值按2个字符宽度输出
List1.Addltem“第″&Format（i,″00″&″位置填″&d（i）
EndIf
EndIf
Nexti
Loop
'在列表框Lil中输出四宫数独，代码略
EndSub
根据每一行、第一列、每一个宫的已有数字进行推算
Functioncheck（xAsInteger）AsInteger
Dimt（0To4）AsInteger,mAsInteger
DimrowAsInteger,colAsInteger,nAsInteger,kAsInteger
Form=0To4
t（m）=0
Nextm
'对当前所在行列进行推算
row=（x-1）\4+1
col=（x-1）Mod4+1
Form=1To4
t（d（row-1）*4+m）=1
t（②

（m-1）*4-col

（m-1）*4-col

）=1
Nextm
'进行宫内推算
Ifrow＜=2Andcol＜=2Thent（d（7-x））=1
Ifrow＜=2Andcol＞2Thent（d（11-x）=
Ifrow＞2Andcol＜=2Thent（d（23-x）=1
Ifrow＞2Andcol＞2Thent（d（27-x）=1
k=0
Form=1To4
Ift（m）=0Thenn=mElsek=k+1
Nextm
If③

k=3

k=3

Thencheck=nElsecheck=0
EndFunction