内容发布更新时间 : 2024/11/14 14:56:50星期一 下面是文章的全部内容请认真阅读。
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
四．