vb.net实现简单的俄罗斯方块小游戏

    博主大二，最近刚完成vb.net的期末大作业，做的是一个简单的俄罗斯方块小游戏，运行效果如下：

（本来是画了网格线的，但是闪的厉害，双缓冲也没用，最后干脆就删了）

以下是源代码：

Public Class Form1
    Dim curCube As FatherCube  '当前方块
    Dim nextCube As FatherCube '下一个方块
    Dim time As Integer = 1000    '时间间隔
    Dim map(11, 16) As Integer '网格
    Dim g As Graphics   'panel1画布
    Dim g2 As Graphics 'panel2画布
    Dim myPen As New Pen(Color.Black, 0.5F)
    Dim myBrush As New SolidBrush(Color.Yellow)
    Dim s As New Size(30, 30)
    Dim myScore As Integer = 0
    Dim myClear As Integer = 0
    Dim myLevel As Integer = 1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Left = 500
        Me.Top = 50
        Me.DoubleBuffered = True
        Me.KeyPreview = True
        Timer1.Enabled = True
        Call Init()
    End Sub
    Private Sub Init()
        Call RaiseCube()
        Call RaiseNextCube()
        g = Me.Panel1.CreateGraphics
        g2 = Me.Panel2.CreateGraphics
        TextBox1.Text = Str(myScore)
        TextBox2.Text = Str(myClear)
        TextBox3.Text = Str(myLevel)
    End Sub '初始化

    Private Sub RaiseCube()
        Dim Temps() As FatherCube = {New Cube_I, New Cube_J, New Cube_L, New Cube_O, New Cube_S, New Cube_T, New Cube_Z}
        Randomize()
        Dim n As Integer = Int(Rnd() * 7)
        curCube = Temps(n)
        curCube.Reset()
        curCube.Setmap(map)
    End Sub '随机创建一个方块

    Private Sub RaiseNextCube()
        Dim Temps() As FatherCube = {New Cube_I, New Cube_J, New Cube_L, New Cube_O, New Cube_S, New Cube_T, New Cube_Z}
        Randomize()
        Dim n As Integer = Int(Rnd() * 7)
        nextCube = Temps(n)
        nextCube.Reset()
    End Sub '创建下一个方块

    Private Sub PaintCube()
        For i = 0 To 3
            Dim x As Integer = curCube.小方块(i).左坐标
            Dim y As Integer = curCube.小方块(i).上坐标
            Dim pt As New Point(x * 30, y * 30)
            Dim rec As New Rectangle(pt, s)
            g.FillRectangle(myBrush, rec)
        Next
    End Sub  '将方块涂上颜色

    Private Sub PaintNextCube()
        For i = 0 To 3
            Dim x As Integer = nextCube.小方块(i).左坐标 - 3
            Dim y As Integer = nextCube.小方块(i).上坐标 + 1
            Dim pt As New Point(x * 30, y * 30)
            Dim rec As New Rectangle(pt, s)
            g2.FillRectangle(myBrush, rec)
        Next
    End Sub  '给下一个方块涂色

    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        g.Clear(Color.Cyan)
        g2.Clear(Color.Cyan)
        Call PaintCube()
        Call PaintNextCube()
        'For i = 0 To 12
        '    g.DrawLine(myPen, i * 30, 0, i * 30, 18 * 30)
        'Next
        'For i = 0 To 16
        '    g.DrawLine(myPen, 0, i * 30, 12 * 30, i * 30)
        'Next '画网格线，不过闪烁比较厉害

        For i = 0 To 11
            For j = 0 To 16
                If map(i, j) = 1 Then
                    g.FillRectangle(myBrush, i * 30, j * 30, 30, 30)
                End If
            Next  '重绘前面落下固定的方块
        Next
    End Sub  '在此处实现所有涂色的代码

    Private Sub ClearCube()
        Dim curScore As Integer = 0 '本次得分
        Dim clearRow As Integer = 0 '本次消行
        Dim Occupy(16) As Integer
        For i = 0 To 16
            Occupy(i) = 0
        Next
        For j = 0 To 16
            For i = 0 To 11
                If map(i, j) = 1 Then
                    Occupy(j) = Occupy(j) + 1
                End If
            Next
        Next    '计算每行已有格子总数
        For i = 16 To 0 Step -1
            If Occupy(i) = 12 Then
                clearRow = clearRow + 1
                For j = i To 1 Step -1
                    For k = 0 To 11
                        map(k, j) = map(k, j - 1) '上面的放格下落
                    Next
                Next
                'i = i + 1   '再检查一遍当前行
            End If  '行满则消
        Next
        For i = 0 To 11
            map(i, 0) = 0
        Next
        curScore = clearRow * clearRow * 10
        myScore = myScore + curScore
        myClear = myClear + clearRow
        myLevel = Int(myScore / 1000) + 1
        TextBox1.Text = Str(myScore)
        TextBox2.Text = Str(myClear)
        TextBox3.Text = Str(myLevel)
        time = time * (11 - myLevel) / 10
    End Sub  '消除满行，更新数据

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Interval = time
        If curCube.canMoveDown() Then
            curCube.moveDown()
            Call Form1_Paint(sender, New PaintEventArgs(g, New Rectangle))
        Else
            For i = 0 To 3
                Dim m As Integer = curCube.小方块(i).左坐标
                Dim n As Integer = curCube.小方块(i).上坐标
                map(m, n) = 1
            Next
            Call ClearCube()
            Call Form1_Paint(sender, New PaintEventArgs(g, New Rectangle))
            curCube = nextCube
            'curCube.Reset()
            curCube.Setmap(map)
            Call RaiseNextCube()
        End If
    End Sub  '游戏运行

    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Left And curCube.canMoveLeft Then
            curCube.moveLeft()
        ElseIf e.KeyCode = Keys.Right And curCube.canMoveRight Then
            curCube.moveRight()
        ElseIf e.KeyCode = Keys.Down And curCube.canMoveDown Then
            curCube.moveDown()
        ElseIf e.KeyCode = Keys.Up And curCube.canTurn Then
            curCube.Turn()
        ElseIf e.KeyCode = Keys.P And Timer1.Enabled = True Then
            Timer1.Enabled = False
            Label9.Text = "开始(S)"
        ElseIf e.KeyCode = Keys.S And Timer1.Enabled = False Then
            Timer1.Enabled = True
            Label9.Text = "暂停(P)"
        ElseIf e.KeyCode = Keys.R Then
            myClear = 0
            myScore = 0
            myLevel = 1
            For i = 0 To 11
                For j = 0 To 16
                    map(i, j) = 0
                Next
            Next
            curCube.Reset()
        ElseIf e.KeyCode = Keys.Escape Then
            Me.Close()
        End If
    End Sub  '键盘操纵方块移动

    Private Sub Label9_MouseDown(sender As Object, e As MouseEventArgs) Handles Label9.MouseDown
        Label9.BorderStyle = BorderStyle.Fixed3D
    End Sub

    Private Sub Label9_MouseUp(sender As Object, e As MouseEventArgs) Handles Label9.MouseUp
        If Timer1.Enabled = True Then
            Timer1.Enabled = False
            Label9.BorderStyle = BorderStyle.FixedSingle
            Label9.Text = "开始(S)"
        Else
            Timer1.Enabled = True
            Label9.BorderStyle = BorderStyle.FixedSingle
            Label9.Text = "暂停(P)"
        End If
    End Sub   '暂停与开始按钮
    Private Sub Label11_MouseDown(sender As Object, e As MouseEventArgs) Handles Label11.MouseDown
        Label11.BorderStyle = BorderStyle.Fixed3D
    End Sub

    Private Sub Label11_MouseUp(sender As Object, e As MouseEventArgs) Handles Label11.MouseUp
        Label11.BorderStyle = BorderStyle.FixedSingle
        Me.Close()
    End Sub '退出游戏按钮

    Private Sub Label10_MouseDown(sender As Object, e As MouseEventArgs) Handles Label10.MouseDown
        Label10.BorderStyle = BorderStyle.Fixed3D
    End Sub

    Private Sub Label10_MouseUp(sender As Object, e As MouseEventArgs) Handles Label10.MouseUp
        myClear = 0
        myScore = 0
        myLevel = 1
        TextBox1.Text = Str(myScore)
        TextBox2.Text = Str(myClear)
        TextBox3.Text = Str(myLevel)
        For i = 0 To 11
            For j = 0 To 16
                map(i, j) = 0
            Next
        Next
        curCube.Reset()
        Label10.BorderStyle = BorderStyle.FixedSingle
    End Sub  '重玩按钮
End Class

Class Cube
    Private x As Integer
    Private y As Integer
    Public Property 左坐标 As Integer
        Get
            Return x
        End Get
        Set(value As Integer)
            x = value
        End Set
    End Property
    Public Property 上坐标 As Integer
        Get
            Return y
        End Get
        Set(value As Integer)
            y = value
        End Set
    End Property
End Class '小方格类

Class FatherCube
    Private cube(4) As Cube
    Private state As Integer
    Private map As Integer(,)
    Public Property 小方块() As Cube()
        Get
            Return cube
        End Get
        Set(value As Cube())
            cube = value
        End Set
    End Property
    Public Property 状态() As Integer
        Get
            Return state
        End Get
        Set(value As Integer)
            state = value
        End Set
    End Property
    Public Property 地图 As Integer(,)
        Get
            Return map
        End Get
        Set(value As Integer(,))
            map = value
        End Set
    End Property
    Public Sub New()
        For i = 0 To 3
            cube(i) = New Cube
        Next
    End Sub '构造函数
    Public Sub Setmap(ByVal map As Integer(,))
        Me.map = map
    End Sub
    Public Overridable Sub Reset()

    End Sub
    Public Overridable Sub Turn()

    End Sub
    Public Overridable Function canTurn() As Boolean
        Return True
    End Function

    Public Function canMoveLeft() As Boolean
        For i = 0 To 3
            Dim m As Integer = Me.小方块(i).左坐标 - 1
            Dim n As Integer = Me.小方块(i).上坐标
            If (m < 0 Or m > 11 Or n < 0 Or n > 16) Then
                Return False
            ElseIf map(m, n) = 1 Then
                Return False
            End If
        Next
        Return True
    End Function
    Public Function canMoveRight() As Boolean
        For i = 0 To 3
            Dim m As Integer = Me.小方块(i).左坐标 + 1
            Dim n As Integer = Me.小方块(i).上坐标
            If (m < 0 Or m > 11 Or n < 0 Or n > 16) Then
                Return False
            ElseIf map(m, n) = 1 Then
                Return False
            End If
        Next
        Return True
    End Function
    Public Function canMoveDown() As Boolean
        For i = 0 To 3
            Dim m As Integer = Me.小方块(i).左坐标
            Dim n As Integer = Me.小方块(i).上坐标 + 1
            If (m < 0 Or m > 11 Or n < 0 Or n > 16) Then
                Return False
            ElseIf map(m, n) = 1 Then
                Return False
            End If
        Next
        Return True
    End Function
    Public Sub moveLeft()
        For i = 0 To 3
            Me.小方块(i).左坐标 = Me.小方块(i).左坐标 - 1
        Next
    End Sub
    Public Sub moveRight()
        For i = 0 To 3
            Me.小方块(i).左坐标 = Me.小方块(i).左坐标 + 1
        Next
    End Sub
    Public Sub moveDown()
        For i = 0 To 3
            Me.小方块(i).上坐标 = Me.小方块(i).上坐标 + 1
        Next
    End Sub

End Class '方块父类

Class Cube_I
    Inherits FatherCube
    Public Overrides Sub Reset()
        Me.状态() = Int(Rnd() * 2)
        If Me.状态 = 0 Then
            For i = 0 To 3
                Me.小方块(i).左坐标 = 4 + i
                Me.小方块(i).上坐标 = 0
            Next
        Else
            For i = 0 To 3
                Me.小方块(i).左坐标 = 5
                Me.小方块(i).上坐标 = i
            Next
        End If
    End Sub

    Public Overrides Sub Turn()
        If Me.状态() = 0 Then
            Dim m As Integer = Me.小方块(0).左坐标 + 1
            Dim n As Integer = Me.小方块(0).上坐标 - 1
            For i = 0 To 3
                Me.小方块(i).左坐标 = m
                Me.小方块(i).上坐标 = n + i
            Next
            Me.状态() = 1
        Else
            Dim m As Integer = Me.小方块(0).左坐标 - 1
            Dim n As Integer = Me.小方块(0).上坐标 + 1
            For i = 0 To 3
                Me.小方块(i).左坐标 = m + i
                Me.小方块(i).上坐标 = n
            Next
            Me.状态() = 0
        End If
    End Sub

    Public Overrides Function canTurn() As Boolean
        Dim m As Integer = Me.小方块(1).左坐标 - 1
        Dim n As Integer = Me.小方块(1).上坐标 - 1
        For i = m To m + 3
            For j = n To n + 3
                If (i < 0 Or i > 11 Or j < 0 Or j > 16) Then
                    Return False
                ElseIf Me.地图(i, j) = 1 Then
                    Return False
                End If
            Next
        Next
            Return True
    End Function


End Class 'I型

Class Cube_O
    Inherits FatherCube
    Public Overrides Sub Reset()
        Me.状态() = 0
        Me.小方块(0).左坐标 = 4
        Me.小方块(0).上坐标 = 0
        Me.小方块(1).左坐标 = 5
        Me.小方块(1).上坐标 = 0
        Me.小方块(2).左坐标 = 4
        Me.小方块(2).上坐标 = 1
        Me.小方块(3).左坐标 = 5
        Me.小方块(3).上坐标 = 1
    End Sub
    Public Overrides Function canTurn() As Boolean
        Return False
    End Function


End Class 'O型

Class Cube_S
    Inherits FatherCube
    Public Overrides Sub Reset()
        Me.状态() = Int(Rnd() * 2)
        If Me.状态 = 0 Then
            Me.小方块(0).左坐标 = 5
            Me.小方块(0).上坐标 = 0
            Me.小方块(1).左坐标 = 6
            Me.小方块(1).上坐标 = 0
            Me.小方块(2).左坐标 = 4
            Me.小方块(2).上坐标 = 1
            Me.小方块(3).左坐标 = 5
            Me.小方块(3).上坐标 = 1
        Else
            Me.小方块(0).左坐标 = 5
            Me.小方块(0).上坐标 = 1
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 0
            Me.小方块(2).左坐标 = 6
            Me.小方块(2).上坐标 = 2
            Me.小方块(3).左坐标 = 6
            Me.小方块(3).上坐标 = 1
        End If
    End Sub

    Public Overrides Sub Turn()
        If Me.状态() = 0 Then
            Dim m As Integer = Me.小方块(0).左坐标
            Dim n As Integer = Me.小方块(0).上坐标
            Me.小方块(1).左坐标 = m
            Me.小方块(1).上坐标 = n - 1
            Me.小方块(2).左坐标 = m + 1
            Me.小方块(2).上坐标 = n + 1
            Me.小方块(3).左坐标 = m + 1
            Me.小方块(3).上坐标 = n
            Me.状态() = 1
        Else
            Dim m As Integer = Me.小方块(0).左坐标
            Dim n As Integer = Me.小方块(0).上坐标
            Me.小方块(1).左坐标 = m + 1
            Me.小方块(1).上坐标 = n
            Me.小方块(2).左坐标 = m - 1
            Me.小方块(2).上坐标 = n + 1
            Me.小方块(3).左坐标 = m
            Me.小方块(3).上坐标 = n + 1
            Me.状态() = 0
        End If
    End Sub

    Public Overrides Function canTurn() As Boolean
        Dim m As Integer = Me.小方块(0).左坐标 - 1
        Dim n As Integer = Me.小方块(0).上坐标 - 1
        For i = m To m + 2
            For j = n To n + 3
                If (i < 0 Or i > 11 Or j < 0 Or j > 16) Then
                    Return False
                ElseIf Me.地图(i, j) = 1 Then
                    Return False
                End If
            Next
        Next
        Return True
    End Function


End Class 'S型

Class Cube_Z
    Inherits FatherCube
    Public Overrides Sub Reset()
        Me.状态() = Int(Rnd() * 2)
        If Me.状态 = 0 Then
            Me.小方块(0).左坐标 = 5
            Me.小方块(0).上坐标 = 0
            Me.小方块(1).左坐标 = 4
            Me.小方块(1).上坐标 = 0
            Me.小方块(2).左坐标 = 6
            Me.小方块(2).上坐标 = 1
            Me.小方块(3).左坐标 = 5
            Me.小方块(3).上坐标 = 1
        Else
            Me.小方块(0).左坐标 = 6
            Me.小方块(0).上坐标 = 1
            Me.小方块(1).左坐标 = 6
            Me.小方块(1).上坐标 = 0
            Me.小方块(2).左坐标 = 5
            Me.小方块(2).上坐标 = 2
            Me.小方块(3).左坐标 = 5
            Me.小方块(3).上坐标 = 1
        End If
    End Sub

    Public Overrides Sub Turn()
        If Me.状态() = 0 Then
            Dim m As Integer = Me.小方块(0).左坐标
            Dim n As Integer = Me.小方块(0).上坐标
            Me.小方块(1).左坐标 = m
            Me.小方块(1).上坐标 = n - 1
            Me.小方块(2).左坐标 = m - 1
            Me.小方块(2).上坐标 = n + 1
            Me.小方块(3).左坐标 = m - 1
            Me.小方块(3).上坐标 = n
            Me.状态() = 1
        Else
            Dim m As Integer = Me.小方块(0).左坐标
            Dim n As Integer = Me.小方块(0).上坐标
            Me.小方块(1).左坐标 = m - 1
            Me.小方块(1).上坐标 = n
            Me.小方块(2).左坐标 = m + 1
            Me.小方块(2).上坐标 = n + 1
            Me.小方块(3).左坐标 = m
            Me.小方块(3).上坐标 = n + 1
            Me.状态() = 0
        End If
    End Sub

    Public Overrides Function canTurn() As Boolean
        Dim m As Integer = Me.小方块(1).左坐标 - 1
        Dim n As Integer = Me.小方块(1).上坐标 - 1
        For i = m To m + 2
            For j = n To n + 3
                If (i < 0 Or i > 11 Or j < 0 Or j > 16) Then
                    Return False
                ElseIf Me.地图(i, j) = 1 Then
                    Return False
                End If
            Next
        Next
        Return True
    End Function


End Class 'Z型

Class Cube_L
    Inherits FatherCube
    Public Overrides Sub Reset()
        Me.状态() = Int(Rnd() * 4)
        If Me.状态 = 0 Then
            Me.小方块(0).左坐标 = 5
            Me.小方块(0).上坐标 = 0
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 5
            Me.小方块(2).上坐标 = 2
            Me.小方块(3).左坐标 = 6
            Me.小方块(3).上坐标 = 2
        ElseIf Me.状态() = 1 Then
            Me.小方块(0).左坐标 = 4
            Me.小方块(0).上坐标 = 1
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 6
            Me.小方块(2).上坐标 = 1
            Me.小方块(3).左坐标 = 6
            Me.小方块(3).上坐标 = 0
        ElseIf Me.状态() = 2 Then
            Me.小方块(0).左坐标 = 5
            Me.小方块(0).上坐标 = 2
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 5
            Me.小方块(2).上坐标 = 0
            Me.小方块(3).左坐标 = 4
            Me.小方块(3).上坐标 = 0
        ElseIf Me.状态() = 3 Then
            Me.小方块(0).左坐标 = 6
            Me.小方块(0).上坐标 = 1
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 4
            Me.小方块(2).上坐标 = 1
            Me.小方块(3).左坐标 = 4
            Me.小方块(3).上坐标 = 2
        End If
    End Sub

    Public Overrides Sub Turn()
        Dim m As Integer = Me.小方块(1).左坐标
        Dim n As Integer = Me.小方块(1).上坐标
        If Me.状态() = 0 Then
            Me.小方块(0).左坐标 = m - 1
            Me.小方块(0).上坐标 = n
            Me.小方块(2).左坐标 = m + 1
            Me.小方块(2).上坐标 = n
            Me.小方块(3).左坐标 = m + 1
            Me.小方块(3).上坐标 = n - 1
            Me.状态() = 1
        ElseIf Me.状态() = 1 Then
            Me.小方块(0).左坐标 = m
            Me.小方块(0).上坐标 = n + 1
            Me.小方块(2).左坐标 = m
            Me.小方块(2).上坐标 = n - 1
            Me.小方块(3).左坐标 = m - 1
            Me.小方块(3).上坐标 = n - 1
            Me.状态() = 2
        ElseIf Me.状态() = 2 Then
            Me.小方块(0).左坐标 = m + 1
            Me.小方块(0).上坐标 = n
            Me.小方块(2).左坐标 = m - 1
            Me.小方块(2).上坐标 = n
            Me.小方块(3).左坐标 = m - 1
            Me.小方块(3).上坐标 = n + 1
            Me.状态() = 3
        ElseIf Me.状态() = 3 Then
            Me.小方块(0).左坐标 = m
            Me.小方块(0).上坐标 = n - 1
            Me.小方块(2).左坐标 = m
            Me.小方块(2).上坐标 = n + 1
            Me.小方块(3).左坐标 = m + 1
            Me.小方块(3).上坐标 = n + 1
            Me.状态() = 0
        End If
    End Sub

    Public Overrides Function canTurn() As Boolean
        Dim m As Integer = Me.小方块(1).左坐标 - 1
        Dim n As Integer = Me.小方块(1).上坐标 - 1
        For i = m To m + 2
            For j = n To n + 2
                If (i < 0 Or i > 11 Or j < 0 Or j > 16) Then
                    Return False
                ElseIf Me.地图(i, j) = 1 Then
                    Return False
                End If
            Next
        Next
        Return True
    End Function


End Class 'L型

Class Cube_J
    Inherits FatherCube
    Public Overrides Sub Reset()
        Me.状态() = Int(Rnd() * 4)
        If Me.状态 = 0 Then
            Me.小方块(0).左坐标 = 5
            Me.小方块(0).上坐标 = 0
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 5
            Me.小方块(2).上坐标 = 2
            Me.小方块(3).左坐标 = 4
            Me.小方块(3).上坐标 = 2
        ElseIf Me.状态() = 1 Then
            Me.小方块(0).左坐标 = 4
            Me.小方块(0).上坐标 = 1
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 6
            Me.小方块(2).上坐标 = 1
            Me.小方块(3).左坐标 = 6
            Me.小方块(3).上坐标 = 2
        ElseIf Me.状态() = 2 Then
            Me.小方块(0).左坐标 = 5
            Me.小方块(0).上坐标 = 2
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 5
            Me.小方块(2).上坐标 = 0
            Me.小方块(3).左坐标 = 6
            Me.小方块(3).上坐标 = 0
        ElseIf Me.状态() = 3 Then
            Me.小方块(0).左坐标 = 6
            Me.小方块(0).上坐标 = 1
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 4
            Me.小方块(2).上坐标 = 1
            Me.小方块(3).左坐标 = 4
            Me.小方块(3).上坐标 = 0
        End If
    End Sub

    Public Overrides Sub Turn()
        Dim m As Integer = Me.小方块(1).左坐标
        Dim n As Integer = Me.小方块(1).上坐标
        If Me.状态() = 0 Then
            Me.小方块(0).左坐标 = m - 1
            Me.小方块(0).上坐标 = n
            Me.小方块(2).左坐标 = m + 1
            Me.小方块(2).上坐标 = n
            Me.小方块(3).左坐标 = m + 1
            Me.小方块(3).上坐标 = n + 1
            Me.状态() = 1
        ElseIf Me.状态() = 1 Then
            Me.小方块(0).左坐标 = m
            Me.小方块(0).上坐标 = n + 1
            Me.小方块(2).左坐标 = m
            Me.小方块(2).上坐标 = n - 1
            Me.小方块(3).左坐标 = m + 1
            Me.小方块(3).上坐标 = n - 1
            Me.状态() = 2
        ElseIf Me.状态() = 2 Then
            Me.小方块(0).左坐标 = m + 1
            Me.小方块(0).上坐标 = n
            Me.小方块(2).左坐标 = m - 1
            Me.小方块(2).上坐标 = n
            Me.小方块(3).左坐标 = m - 1
            Me.小方块(3).上坐标 = n - 1
            Me.状态() = 3
        ElseIf Me.状态() = 3 Then
            Me.小方块(0).左坐标 = m
            Me.小方块(0).上坐标 = n - 1
            Me.小方块(2).左坐标 = m
            Me.小方块(2).上坐标 = n + 1
            Me.小方块(3).左坐标 = m - 1
            Me.小方块(3).上坐标 = n + 1
            Me.状态() = 0
        End If
    End Sub

    Public Overrides Function canTurn() As Boolean
        Dim m As Integer = Me.小方块(1).左坐标 - 1
        Dim n As Integer = Me.小方块(1).上坐标 - 1
        For i = m To m + 2
            For j = n To n + 2
                If (i < 0 Or i > 11 Or j < 0 Or j > 16) Then
                    Return False
                ElseIf Me.地图(i, j) = 1 Then
                    Return False
                End If
            Next
        Next
        Return True
    End Function


End Class 'J型

Class Cube_T
    Inherits FatherCube
    Public Overrides Sub Reset()
        Me.状态() = Int(Rnd() * 4)
        If Me.状态 = 0 Then
            Me.小方块(0).左坐标 = 4
            Me.小方块(0).上坐标 = 1
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 6
            Me.小方块(2).上坐标 = 1
            Me.小方块(3).左坐标 = 5
            Me.小方块(3).上坐标 = 0
        ElseIf Me.状态() = 1 Then
            Me.小方块(0).左坐标 = 5
            Me.小方块(0).上坐标 = 2
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 5
            Me.小方块(2).上坐标 = 0
            Me.小方块(3).左坐标 = 4
            Me.小方块(3).上坐标 = 1
        ElseIf Me.状态() = 2 Then
            Me.小方块(0).左坐标 = 6
            Me.小方块(0).上坐标 = 1
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 4
            Me.小方块(2).上坐标 = 1
            Me.小方块(3).左坐标 = 5
            Me.小方块(3).上坐标 = 2
        ElseIf Me.状态() = 3 Then
            Me.小方块(0).左坐标 = 5
            Me.小方块(0).上坐标 = 0
            Me.小方块(1).左坐标 = 5
            Me.小方块(1).上坐标 = 1
            Me.小方块(2).左坐标 = 5
            Me.小方块(2).上坐标 = 2
            Me.小方块(3).左坐标 = 6
            Me.小方块(3).上坐标 = 1
        End If
    End Sub

    Public Overrides Sub Turn()
        Dim m As Integer = Me.小方块(1).左坐标
        Dim n As Integer = Me.小方块(1).上坐标
        If Me.状态() = 0 Then
            Me.小方块(0).左坐标 = m
            Me.小方块(0).上坐标 = n + 1
            Me.小方块(2).左坐标 = m
            Me.小方块(2).上坐标 = n - 1
            Me.小方块(3).左坐标 = m - 1
            Me.小方块(3).上坐标 = n
            Me.状态() = 1
        ElseIf Me.状态() = 1 Then
            Me.小方块(0).左坐标 = m + 1
            Me.小方块(0).上坐标 = n
            Me.小方块(2).左坐标 = m - 1
            Me.小方块(2).上坐标 = n
            Me.小方块(3).左坐标 = m
            Me.小方块(3).上坐标 = n + 1
            Me.状态() = 2
        ElseIf Me.状态() = 2 Then
            Me.小方块(0).左坐标 = m
            Me.小方块(0).上坐标 = n - 1
            Me.小方块(2).左坐标 = m
            Me.小方块(2).上坐标 = n + 1
            Me.小方块(3).左坐标 = m + 1
            Me.小方块(3).上坐标 = n
            Me.状态() = 3
        ElseIf Me.状态() = 3 Then
            Me.小方块(0).左坐标 = m - 1
            Me.小方块(0).上坐标 = n
            Me.小方块(2).左坐标 = m + 1
            Me.小方块(2).上坐标 = n
            Me.小方块(3).左坐标 = m
            Me.小方块(3).上坐标 = n - 1
            Me.状态() = 0
        End If
    End Sub

    Public Overrides Function canTurn() As Boolean
        Dim m As Integer = Me.小方块(1).左坐标 - 1
        Dim n As Integer = Me.小方块(1).上坐标 - 1
        For i = m To m + 2
            For j = n To n + 2
                If (i < 0 Or i > 11 Or j < 0 Or j > 16) Then
                    Return False
                ElseIf Me.地图(i, j) = 1 Then
                    Return False
                End If
            Next
        Next
        Return True
    End Function


End Class 'T型