俄罗斯方块的vb代码.pdfVIP

俄罗斯方块的 VB代码 Private n(3), m(3) As Integer n(3) 记录游戏区的四个活动方块的编号 m(3) 记录预览区的四个活动方块的编号 Private situation, situation2, linenum, t As Integer situation 记录游戏区的方块样式 situation2 记录预览区的方块样式 linenum 记录一次消除的行数 Private Sub hidefang(a As Integer) 定义使方块不可见的过程 Select Case a Case 0 a ＝0 使游戏区方块不可见 cmdfang(n(0)).Visible = False cmdfang(n(1)).Visible = False cmdfang(n(2)).Visible = False cmdfang(n(3)).Visible = False Case 1 a ＝1 使预览区方块不可见 cmdfangnext(m(0)).Visible = False cmdfangnext(m(1)).Visible = False cmdfangnext(m(2)).Visible = False cmdfangnext(m(3)).Visible = False End Select End Sub Private Sub showfang(a As Integer) 定义使方块可见的过程 Select Case a Case 0 a ＝0 使游戏区方块可见 cmdfang(n(0)).Visible = True cmdfang(n(1)).Visible = True cmdfang(n(2)).Visible = True cmdfang(n(3)).Visible = True Case 1 a ＝1 使预览区方块不可见 cmdfangnext(m(0)).Visible = True cmdfangnext(m(1)).Visible = True cmdfangnext(m(2)).Visible = True cmdfangnext(m(3)).Visible = True End Select End Sub Private Sub clearline() 定义消除整 行的过程 For i = 190 To 10 Step -10 If cmdfang(i).Visible = True And _ cmdfang(i + 1).Visible = True And _ cmdfang(i + 2).Visible = True And _ cmdfang(i + 3).Visible = True And _ cmdfang(i + 4).Visible = True And _ cmdfang(i + 5).Visible = True And _ cmdfang(i + 6).Visible = True And _ cmdfang(i + 7).Visible = True And _ cmdfang(i + 8).Visible = True And _ cmdfang(i + 9).Visible = True Then For j = i + 4 To i Step -1 t = 1 cmdfang(j).Visible = False cmdfang(2 * i + 9 - j).Visible = False For k = 1 To 4000 DoEvents Next t = 0 Next linenum = linenum + 1 For j = i - 1 To 0 Step -1 If cmdfang(j).Visible = True Then cmdfang(j).Visible = False cmdfang(j + 10).Visible = True End If Next clearline 为了实现 连消数行，这里使用递归调用 End If Next End Sub Private Function downable() As Boolean 自定义函数， 确定方块是否能下降