题目

小李设计“移数游戏”程序，实现如下功能：在列表框中有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=30rx=50ry=30ry=5Then            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 ‘其他按钮所实现功能的代码略 答案： 【1】)↓⑤ 【1】(i- 1)\7+1或(i+6)\7【2】k(t) =8或k(t)>=8【3】a((i -2) *7 + j)或a(5*7+j)或a(35+j)或a(38) 或a(p*7+j)

查看本题答案和解析