摘要本题通过设计经典游戏“俄罗斯方块游戏”，运用VB制作完成了一个小型的休闲游戏软件。
VB面向对象的编程语言，通过编写窗体、对象和控件设计出了如下的小程序。
背景Visual Basic继承了basic语言易学易用的特点，特别适合于初学者学习windows系统编程。
随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了使用户在繁忙的日程工作中得到放松,于是出现了各种各样的休闲软件,如聊天工具,游戏等等。
于是我们小组着手设计开始一个这样的游戏软件。
通过这学期来Visual Basic的学习，我初步掌握了Visual Basic语言的最基本的知识，于是在化希耀张兵等老师的指导下动手用Visual Basic编写俄罗斯方块游戏。
无可争议，《俄罗斯方块》是有史以来最伟大的游戏之一。
它是永恒的娱乐经典，但它实际上又和那些传统的经典娱乐方式不同，因为它的本质是电子化的，所以它的确属于现代产物。
《俄罗斯方块》举世闻名的游戏性，在该游戏新鲜出炉时就显得非常直观。
某些与坠落的玩具碎片和它们的形状有关的东西，使得哪怕新手也会很自然地企图把它们排列起来，并加以适当组合，就好似《俄罗斯方块》触动了我们某些内在的感官，使得哪怕是我们当中最杂乱无章的人也要把事情整理妥当。
在曾经发布过的所有游戏中，《俄罗斯方块》还被认为是仅有的一个能够真正吸引广泛人群的作品。
某些批评家也许会声称，《俄罗斯方块》要比过去二十年间出现的任何东西都要浪费人们的时间。
至于我们，则要欣然提名它为GameSpot评选出的历史上最伟大游戏之一。
为了怀念经典，也为了能够给大多的计算机用户在工作之余找到一个休闲、娱乐的一个方式，我们小组开始着手用VB语言开发一个经典的俄罗斯方块游戏。
1系统分析1.1 项目名称俄罗斯方块游戏1.2程序设计思想游戏是用来给大家娱乐的，所以要能在使用的过程中给大家带来快乐，消除大家的疲劳，所以我们在游戏中添加了漂亮的场景和动听的音乐，设置了过关升级的功能，激发大家的娱乐激情。
从游戏的基本玩法出发，主要就是俄罗斯方块的形状和旋转，我们在设计中在一个图片框中构造了一个4*4的网状小块，由这些小块组合成新的形状，每四个小块连接在一起就可以构造出一种造型，因此我们总共设计了7中造型，每种造型又可以通过旋转而变化出2到4种形状，利用随机函数在一个预览窗体中提前展示形状供用户参考，然后将展示的形状复制到游戏窗体中进行摆放，在游戏窗体中用户就可以使用键盘的方向键来控制方块的运动，然后利用递归语句对每一行进行判断，如果有某行的方块是满的，则消除这行的方块，并且使上面的方块自由下落，其中，方块向下的速度是有时钟控件控制的，在游戏中，用户也可以使用向下键加快下落速度，定义一个变量，对消除的函数进行记录，最后就可以得出用户的分数，用if 语句对分数判断，达到一定的积分就可以升级到下一个档次。
俄罗斯方块游戏设计的主要步骤为以下10个方面：（1）游戏界面的设计。
（2）俄罗斯方块的造型。
（3）俄罗斯方块的旋转。
（4）俄罗斯方块的运动情况（包括向左，向右和向下）。
（5）俄罗斯方块的自动消行功能。
（6）游戏级别的自由选择。
（7）游戏速度的自由选择。
（8）游戏得分的计算。
（9）游戏菜单选项的设计及功能实现。
（10）游戏的背景音乐。
1.3运用的控件和主要对象我们在设计过程中主要用到的控件有:command控件，image控件，picture 控件，label控件，timer控件，text控件，windows media player控件等等。
1.4主要实现的功能我们开发的俄罗斯方块游戏，主要实现了以下几种功能：1.可以灵活控制方块在图形框中运动。
2.游戏过程中方块可以自由旋转。
3.当某一行的方块排列满时，将自动将这一行方块消除，然后将上面所有方块向下移动，可以支持连续消行。
4.游戏前可以选择游戏的速度和游戏的等级，游戏速度既为方块下落速度，游戏等级为初始游戏时在基层随机生成一定行数的无规律方块，生成的行数由你来选择，每行至少产生5个以上的无规律方块，这样增加了游戏难度，对于游戏高手来说，无疑不是一个新的挑战。
5.游戏的得分支持积分，并且按照公式：得分 = 原来分数+ 100 * (2 ^ 同时消除的行数-1)这样，你同一时间消除的行数越多，你的得分也就越高，当游戏积分到了一定时可以自动升级，这个升级指速度升级。
6.游戏中提供了一个漂亮的场景和动听的音乐，给你带来无限激情。
2系统设计2.1俄罗斯方块的造型相信朋友们都玩过俄罗斯方块，对这个游戏的玩法和方块形状都比较熟悉。
我们这个游戏只选择了最基本的7中造型，包括长条型，正方型，正S型，反S 型，正7型，反7型，T型。
如果需要我们可以添加更多的造型。
将游戏界面的游戏区图片框分割成10*20的小块，每个小块放置一个command控件，预览区图片框按同样比例分割成4*4的小块，同样有command控件构成，我们可以把预览区图片框看作是从游戏区图片框中选取的一个部分，游戏区的小方块编号和预览区编号如下图：1 2 3 4 5 6 7 8 9… … … … … … … … … …… … … … … … … … … …90 91 92 93 94 95 96 97 98 99游戏区编号 预览区编号利用Select 将方块的7中造型列出，比如长条型的设计，在欲览区中分别有3.4.5.6和5.15.25.35四个方块构成两中形态，用数组为：m(0) = 3: m(1) = 4: m(2) = 5: m(3) = 6: situation2 = 0m(0) = 5: m(1) = 15: m(2) = 25: m(3) = 35: situation2 = 1将它的形状编号为0和1，在后面方便调用，其他的方块造型同样的方法。
2.2俄罗斯方块的旋转俄罗斯方块的旋转主要将方块的位置加以变换得到的，例如上述范例，长条型有两中样式，根据小方块的编号变动来实现整个造型的旋转，比如：If n(0) - 18 >= 2 And n(3) + 9 <= 198 ThenIf cmdfang(n(0) - 18).Visible = False And _cmdfang(n(1) - 9).Visible = False And _cmdfang(n(3) + 9).Visible = False Thenhidefang 0n(0) = n(0) - 18n(1) = n(1) - 9n(3) = n(3) + 9showfang 0situation = 1End IfEnd If方块的造型在旋转的时候存在一个公式，当然首先要判断是否满足旋转的要求，以上是一个长条型由横着变成竖立状态的旋转，我们以它的造型中的第三个小方块n(3)为中心旋转，这样，在开始运动的时候，长条形要发生旋转最少要运动到第三行，才能由横着变成竖立状态，游戏区图形框中第三行的第一个方块的编号为20，所以长条造型的第一个小方块的编号n(0)必须要大于20。
同样，长条型方块在下落到底部的时候也有限制。
如果长条下落到最后一行也将无法由横着变成竖立状态。
2.3如何实现方块的运动和自动消除满行的方块我们的这个俄罗斯方块游戏主要是利用command 控件的visible 属性完成效果的，其实在游戏区图形框可以看成是由许多的command 小方块组成，方块运动的过程就是造型里方块显示或者隐藏，就像现在的霓虹灯效果一样，由时钟控件控制visible 属性改变的速度，上一层的消失，下一层的显示，这样，从视觉效果可以看到方块的下落运动效果。
方块在下落的过程中会自动判断每一行方块的visible 属性，如果全部为true 时，就会将这一行小方块的visible 属性全部变成false ，在将上面的小方块向下移动，利用for 语句进行循环判断，将所有这样情况的行改变小方块3 4 5 6 13 14 15 16 23 24 25 26 33 34 35 36visible属性。
当有多行同时出现这样情况时使用递归调用，实现连续消行。
具体程序代码如下：For i = 190 To 10 Step -10If 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 ThenFor j = i + 4 To i Step -1t = 1cmdfang(j).Visible = Falsecmdfang(2 * i + 9 - j).Visible = FalseFor k = 1 To 4000DoEventsNextt = 0Nextlinenum = linenum + 1For j = i - 1 To 0 Step -1If cmdfang(j).Visible = True Thencmdfang(j).Visible = Falsecmdfang(j + 10).Visible = TrueEnd IfNextclearline '为了实现连消数行，这里使用递归调用End IfNext2.4游戏速度和游戏级别自由选择游戏速度的自由选择无非就是改变时钟控件的频率，我们在菜单中添加了选择速度的功能，还有添加了考验功能，将欲览窗中的方块造型隐藏，给玩家提高了难度，如果你不愿意接受考验也可以点击显示还原成原来状态。
游戏级别的自由选择是让用户选择游戏开始时候，游戏区底部出现一定行数的随机方块，同样给玩家增加了难度，功能代码如下：For i = 19 To 20 - Val(txthard.Text) Step -1For j = i * 10 To i * 10 + 9If Rnd >= 0.5 Then cmdfang(j).Visible = TrueNextNext可以根据你选择的难度系数在底层的每一行随机产生超过半数（即5个以上）以上的小方块，这样适合喜欢高难度的玩家。