课程设计---俄罗斯方块游戏程序设计

《课程设计---俄罗斯方块游戏程序设计》由会员分享，可在线阅读，更多相关《课程设计---俄罗斯方块游戏程序设计（37页珍藏版）》请在毕设资料网上搜索。

1、 2010 级课程设计 俄罗斯方块游戏俄罗斯方块游戏程序程序设计设计 说明书说明书 学生姓名 学 号 专 业 信息管理与信息系统 班 级 2010 级信管（一）班 指导教师 教师职称 一一、设计目的、设计目的 1. 综合 Visual Basic 相关知识制作简单的可视化应用程序 2. 灵活对程序代码进行利用，修改和编写； 3. 熟练将 Visual Basic 所学知识和其它知识相结合 二、功能描述功能描述 利用 VB设计简单的小游戏，并且成功调试运行。 三、程序代码三、程序代码 Dim toptop(0 To 11) Dim t As Integer Dim l As Integer Di

2、m tt As Integer Dim ll As Integer Dim Goline As Long Dim Total As Long *停止出方格底色变为白色停止出方格底色变为白色* Sub changchang(a, b) For i = 0 To 431 If s1(i).Top = a And s1(i).Left = b Then s1(i).BackStyle = 1 Exit For End If Next i End Sub *重新规定各列底线重新规定各列底线* Sub newnew() t1.Enabled = False For j = 0 To 11 For i =

3、 420 + j To 0 + j Step -20 If s1(i).BackStyle = 1 Then toptop(j) = s1(i).Top - 360 GoTo aaa End If Next i toptop(j) = s1(0).Top aaa: Next j t1.Enabled = True End Sub 满行变透明色（待用）满行变透明色（待用） Sub xiaohang(c) For i = 0 To 11 s1(i + c).BackStyle = 0 Next i Call nuohang(c) End Sub *撤除一行撤除一行* Sub nuohang(c)

4、Goline = Goline + 1 l1.Caption = Goline For j = c To 400 Step 20 For i = 0 To 11 s1(j + i).BackStyle = s1(j + i + 20).BackStyle Next i Next j Call newnew End Sub *各种图形形状控制各种图形形状控制* Sub follow(l, t) -follow If l = 1 Then 正正 L For i = 1 To 4 c(i).Picture = z(1).Picture Next i If t = 1 Then c(3).Top =

5、c(2).Top + 360: c(3).Left = c(2).Left c(1).Top = c(2).Top - 360: c(1).Left = c(2).Left c(4).Top = c(2).Top + 360: c(4).Left = c(2).Left + 360 End If If t = 4 Then c(3).Top = c(2).Top: c(3).Left = c(2).Left - 360 c(1).Top = c(2).Top: c(1).Left = c(2).Left + 360 c(4).Top = c(2).Top + 360: c(4).Left = c(2).Left - 360 End If If t = 3 Then c(3).Top = c(2).Top + 360: c(3).Left = c(2).Left c(1).Top = c(2).Top - 360: c(1).Left