1.2关键问题

(1)方块的组成。

(2)如何控制方块的移动。

(3)如何使方块变形。

(4)如何控制方块在一定范围内移动。

(5)当所累的方块满一行后，如何使方块消行。

2   具体设计

Option Explicit        

Dim i, txjl, bhtx, num(11, 1 To 19) As Integer, fangkuai(1 To 10, 1 To 18) As Object, fenshu As Long, x1, y1 As Single                   'i为记录现在出的方块为第i个，bhtx为每种图形的4种变换,txjl为所加载的图形的类型，num是将frame分为18*10个区域的一个二维数组，fangkuai为定义10*18个二维方块矩阵，记录每个地方所放的控件数组名字,fenshu为记录得分，x1为记录按下鼠标后的横坐标，y1为记录按下鼠标后的纵坐标。

上面为定义的全局变量，以及各变量的作用。

Private Sub Form_Load()

cmd1(i).Visible = False                        '初始化方块为不可见

cmd2(i).Visible = False

cmd3(i).Visible = False

cmd4(i).Visible = False

End Sub