内容发布更新时间 : 2025/1/1 6:19:19星期一 下面是文章的全部内容请认真阅读。

VB语言程序设计报告

系（院）： 计算机科学与技术 专业班级： 计科1006

学号（序号）： 04101191（26） 学生姓名： 杨娜 指导老师： 王博

完成日期： 2012

1

年5月26日

一． 要求分析

俄罗斯方块游戏是一款适合大众的游戏软件，它适合不同年龄的人玩。本软件要实现的功能如下：

（1）游戏区：玩家可以在游戏区中堆积方块，并能够在游戏过程中随时了解得分情况。 （2）游戏控制：玩家可以通过游戏控制功能来选择开始新的一局游戏，暂停或退出游戏。 （3） 级别设置：玩家可以根据自己的需要自行设定游戏的开始级别，级别越高，游戏

的速度越快，难度越大。

二． 概要设计

显示玩家操作 游戏区 显示操作结果 开始 俄罗斯方块游戏 暂停/继续 游戏控制 提高等级 降低等级 退出 三． 详细设计

1. 游戏区模块

创建游戏区 游戏区模块 处理玩家游戏操作 显示游戏结果

2

2. 控制区模块

开始游戏 暂停游戏 游戏控制模块 初始级别设置 退出游戏

3. 系统流程

开始 设置初始级别 随机选择方块类创建游戏区 是否到顶部 游戏开局 方块下落一行 否 是 游戏结束

是否到顶部 3

4. 系统操作界面

5.游戏界面

4

编码实现

Dim GameNum(3) As Integer Dim PreviewNum(3) As Integer Dim PreviewSituation As Integer Dim GameSituation As Integer Dim LineNum As Integer Dim t As Integer

'定义使方块不可见的过程

Private Sub HideFanku(HideNum As Integer) '按参数确定隐藏游戏区或预览区方块 Select Case HideNum

'HideNum=0时使游戏区方块不可见 Case 0

Command1(GameNum(0)).Visible = False Command1(GameNum(1)).Visible = False Command1(GameNum(2)).Visible = False Command1(GameNum(3)).Visible = False 'HideNum=1时使预览区方块不可见 Case 1

Command2(PreviewNum(0)).Visible = False Command2(PreviewNum(1)).Visible = False Command2(PreviewNum(2)).Visible = False Command2(PreviewNum(3)).Visible = False End Select End Sub

'定义使方块可见的过程

Private Sub ShowFanku(ShowNum As Integer) '按参数确定显示游戏区或预览区方块 Select Case ShowNum

'ShowNum=0时使游戏区方块可见 Case 0

Command1(GameNum(0)).Visible = True Command1(GameNum(1)).Visible = True Command1(GameNum(2)).Visible = True Command1(GameNum(3)).Visible = True 'ShowNum=1时使预览区方块可见 Case 1

5

四．