vb课程设计报告《打字游戏》

《VB程序设计》课程设计任务书

题目： 打字游戏

任务与要求：

编制一个打字练习游戏程序，使用户在游戏过程中进行指法练习。要求程序能完整运行。

时间：2012 年 2月 15 日 至 2012 年 3 月 18日 共 4 周

学生姓名： 王凯 学 号： 1103860333

专业： 化工与制药大类

指导教师： 宋斌

2012年4月 14日

第一章 课程设计目的

根据课堂讲授内容，学生做相应的自主练习，消化课堂所讲解的内容；通过做课程设计积累调试VB程序的经验；通过完成课程设计中的编程题，逐渐培养学生的编程能力、用计算机解决实际问题的能力。本程序设计主要锻炼了对于控件数组，多模块程序设计，键盘事件处理，随机数的生成，文本文件读写，声音的播放。

第二章 课程设计的要求

题目介绍： 在计算机普及的今天，人们使用键盘已变的更加频繁，为了使打

字变得更加熟悉和进一步提高打字速度。本题目要求编写一个打字练习游戏程序，使用户在游戏过程中进行执法练习。

课程设计功能要求：

<1>程序开始时在‘打字游戏设置’窗口中输入用户名，并根据设置窗口调整练习难度与打字速度。在未输入姓名时单击查看成绩可查询历史成绩。

<2>选择好速度与难度之后，单击‘开始练习’按钮。屏幕会随机产生并落下各种字符。在落到屏幕底部之前，击中字符消失同时产生爆炸声，程序根据速度和难度的设置自动记录分数并显示在窗口顶部。

<3>为增加趣味性，在程序中增加背景音乐和打中时打击声。并

BackMusic.mid文件作为控制打字练习的时间长度，

<4>打字练习过程中，屏幕的顶部显示已用的时间和当前的分数，如果按F1功能键，弹出键盘布局窗口,音乐暂停；关闭此窗口，游戏继续进行。

.

第三章 课程设计报告内容

一．打字游戏界面

主窗体及自述文件界面：

打字游戏的部分代码：

产生随机大小写字母编写代码

Public Sub Letter(n As Integer) '根据选择产生英文字母 If frmSet.Lowercase.Value Then

j = Int(Rnd * 26 + 97) '产生小写字母 ElseIf frmSet.Uppercase.Value Then

If n Mod 2 = 0 Then '产生大小写混合字母 j = Int(Rnd * 26 + 65) Else

j = Int(Rnd * 26 + 97) End If

ElseIf frmSet.Mixcase.Value Then

j = Int(Rnd * 79 + 48) '产生混合字母 End If

frmGame.lblLetter.Item(n).Caption = Chr(j)

frmGame.lblLetter.Item(n).ForeColor = RGB(Rnd * 254, Rnd * 254, Rnd * 254) End Sub

根据不同难度产生不同下降速度

Public Sub Speed(n As Integer) '根据选择产生不同的速度

本文来源：https://www.bwwdw.com/article/gm42.html