学进去

小李设计“移数游戏”程序，实现如下功能：在列表框中有24个数字（8个“1”，8个“2”，8个“3”）随机排成“井”字形方阵，通过单击游戏界面中的八个按钮实现往箭头方向循环移动所在行（或列）的数据，例如“→③”按钮所在行的数据依次为2，2，3，3，3，2，1 ，若单击一次“→③”按钮后，该行的数据向右循环移动一次，依次变为1，2，2，3，3，3，2 。玩家通过按钮移动数据，最终若使游戏界面中虚线框内的八个数字为相同数字则完成游戏。程序运行界面如图所示。

（1）在如图所示的游戏界面中，单击某按钮一次后，即可完成游戏，则该按钮的Caption属性值是_______________。
（2）程序部分代码如下，请在划线处填入合适的代码。
Dim a(1 To 49) As String
Private Sub Form_Load()
Dim k(1 To 3) As Integer
Randomize t = 0
For i = 1 To 49 x=_______________y = (i - 1) Mod 7 +1
If x = 3 Or x = 5 Or y = 3 Or y = 5
Then t = Int(Rnd * 3) + 1
Do While_______________
t = t Mod 3 + 1
Loop
k(t) = k(t) + 1 a(i) = Str(t)
Else
a(i) = "    " End If
Next i
’在列表框中输出数据，得到“井”字形方阵。代码略 End Sub
’下面为单击“↑①”按钮，实现数据的移动
Private Sub Command1_Click()
j = 3
temp = a(6 * 7 + j) For i = 1 To 6
p = i - 1
If p < 1 Then p = 7
a((p - 1) * 7 + j) = a((i - 1) * 7 + j) Next i

_____________= temp

’在列表框中输出数据，更新“井”字形方阵。代码略
End Sub

’其他按钮所实现功能的代码略