vb程序设计报告样本.doc

1、长江大学工程技术学院VB语言程序设计课程设计报告（2010-2011学年 第二学期）系 (部)机械系专业班级机电60902班学生姓名 周中华学号/序号200962252 / 29指导教师/助教完成时间第19周一 、功能描述一级标题 黑体 四号 段前段后0.5行 这是一个简单的打字小游戏。适用于刚开始接触打字的初学者，我们的游戏实现的是单个的字母练习这就降低了难度，我们设有不通的速度等级，当你击中的字母达到规定值时速度就会增加。随之增加难度.但是字母的个数不会改变，还是原来的6个字母下落，同时打字窗口还设有返回上一级菜单的按钮，练习者可以随时停止游戏返回上一级。在打字的过程中如果字母没有被击中就

2、会落下，落下一个字母剩余能量就会减一（我们舍得剩余能量为15.）当剩余能量减到小于零的时候游戏就会结束，打对一个字母旁边的分数栏就会曾加1，我们设定的时间是2分钟，当你进入游戏的同时倒计时也就开始了，如果在规定的2分钟结束时你的剩余能量大于零，你就胜利了。同时会弹出一个窗体显示你的速度等级和得分。胜利后你也可以选择再来一次。重新开始。 正文 宋体小四 行距 固定值 20磅二、概要设计可参考教材第二点概要设计格式编写开始界面结束游戏开始游戏速度选择输入不同的等级进入不同的难度等级进入游戏界面得分等级时间剩余能量击中后分数增加，当到达一定的分数后等级也会改变1级2级3级减为零不为零失败成功显示等级

3、分数再来一次，返回主页面 图1黑体五号 要有图名：打字游戏流程图三、详细设计内容主要为游戏关键程序部分，程序段要有必要的文字注释1、利用一个数组控和一个随机函数来实现字母的随机赋值 Randomize /保证字母是随机抽取的 For i = 0 To 5 /利用循环给数组控件赋值 Label1(i).Caption = Chr$(Rnd * 26 + 97)Times New Roman 小四Next i2、在文本框的单击事件里用for循环实现了打中后字母的重新赋值和重新下落、以及得分的增加等功能代码如下所示For i = 0 To 5 If Right(Text1.Text, 1) = La

4、bel1(i).Caption Then defen = defen + 1 /当打对后得分就加一 Label2.Caption = defen /定义label2的值表示得分 Label1(i).Caption = Chr$(Rnd * 26) + 97) /当打对后字母有重新更换 Label1(i).Top = 400 /打对后字母从top为400的地方开始掉下 Text1.Text = /text进行清空 End If Next i 3、在该游戏中有速度快慢的控制。随着得分的不断增加速度的等级也会不断增加，另外也可以直接选择速度的等级直接进入不同等级的打字游戏。利用一个参数n实现If L

5、abel2.Caption = 30 Then 当打对30个字母时 n = 50 /速度变为50向下落 Label3.Caption = dengji dengji = 2 /等级的值变为2 ElseIf Label2.Caption = 70 Then /当打对70个字母 n = 70 /速度变为70 Label3.Caption = dengji dengji = 3 /等级的值为3 ElseIf Label2.Caption = 100 Then /当打对100个字母时，打字游戏的胜利 Form3.Show /form3窗体显示 Unload Form2 /form2窗体卸载 End I

6、f4、用两个时钟控件实现对字母下落、剩余能量减少、和时间递减的功能。For i = 0 To 5 用循环使控件实现下面的功能 Label1(i).Top = Label1(i).Top + n /字母往下掉的速度 If Label1(i).Top = Form1.Height Then /当字母没有被打中落下 Label9.Caption = Label9.Caption - 1 /落一个剩余能量就减一 m(i) = 0 /定义的数组参数值为零 If m(i) = 0 Then /当参数为零的时候 Label1(i).Top = 400 /空间从400 的高度开始下落 Label1(i).Ca

7、ption = Chr$(Rnd * 26 + 97) /重新赋值改变字母 End IfNext i5、上面的代码是时钟控件一。实现的是前两个功能。下面的是时钟控件2实现的是时间递减的功能。代码如下：Label4.Caption = Label4.Caption - 1 每秒时间就会减一 If Label4.Caption = 0 Then 当时间为零的时候 Form3.Show form3显示 Unload Form2 form2窗体卸载 End If 四、效果分析以及设计方案的完善首先对完成效果进行分析，然后指出其中存在的问题，以及以后如何进行晚上游戏的开始界面 图2游戏的运行界面，有时间

8、、得分、剩余能量等的显示，返回按钮课返回主页面。当字母没有被击中而落下时剩余能量就会减少一。剩余能量为零时游戏就结束了 图3规定的时间不为零，但剩余能量为零了。则游戏结束 图4如果剩余能量不为零，但时间为零了则游戏闯关成功。显示您的等级和分数 图5 在我们的游戏中有等级的难易之分。当打中的个数到达一定数量时即分数到达一定值时速度的等级就会随之增加我们也可以直接选择速度的等级进行游戏。初始的速度默认等级为1。界面如下： 图6存在的问题：当选择速度等级进入游戏时，刚开始速度不会增加。当按键后才会进入相应的速度等级。以后会改进使程序更加完善。五、心得体会要求500字以上这次的visual basic

9、课程设计。通过自己的努力完成了一个简单的打字小游戏。在设计的过程中遇到了不少问题，发现了自己的很多不足。通过不断的改进和完善程序终于有了一个简单的模型。这是学vb以来第一次做程序，虽然我的程序还有很多的缺陷和不足，但在编程中学到了不少东西，也懂得了作为一个编程人员应具备一定的素质。现在我们的专业知识还很少，以后会更加努力的学习专业课，做一个合格的编程人员。六、参考文献至少5个，格式如参考文献1【1】作者. visual basic程序设计教程M.出版社，年份.附 录另起一页，居中 黑体4号程序源代码1、form1窗体。（Form1窗体是开始界面）Private Sub Command1_Cli

10、ck()Form1.Hide form1窗体隐藏Form2.Show form2窗体出现End SubPrivate Sub Command2_Click()End 程序结束End SubPrivate Sub Command3_Click()Form1.HideForm5.ShowEnd Sub2、form2窗体（运行的窗体）Dim i%Dim m%Private Sub Command1_Click() Unload Form2 form2窗体卸载 Form1.Show form1窗体显示 defen = 0 得分重新从0开始End SubPrivate Sub Form_Load() R

11、andomize 保证字母是随机抽取的 For i = 0 To 5 利用循环给数组控件赋值 Label1(i).Caption = Chr$(Rnd * 26 + 97) Next i Label2.Caption = 0 label2的初始值 Label3.Caption = 1 label3的初始值 Label4.Caption = 120 label4的初始值 Label9.Caption = 15 label9的初始值 n = 40 n的初始值（n表示向下掉的速度）End SubPrivate Sub Text1_Change() For i = 0 To 5 利用循环使数字空间实现

12、下面的功能 If Right(Text1.Text, 1) = Label1(i).Caption Then 选择语句的条件是打对字母（和text右边的字母进行比较） defen = defen + 1 当打对后得分就加一 Label2.Caption = defen 定义label2的值表示得分 Label1(i).Caption = Chr$(Rnd * 26) + 97) 当打对后字母有重新更换 Label1(i).Top = 400 打对后字母从top为400的地方开始掉下 Text1.Text = text进行清空 End If 选择的结束语句 Next i 向下个字母循环 If L

13、abel2.Caption = 30 Then 当打对30个字母时 n = 50 速度变为50向下落 Label3.Caption = dengji label3表示等级 dengji = 2 等级的值变为2 ElseIf Label2.Caption = 70 Then 当打对70个字母 n = 70 速度变为70 Label3.Caption = dengji label3表示等级 dengji = 3 等级的值为3 ElseIf Label2.Caption = 100 Then 当打对100个字母时 Form3.Show form3窗体显示 Unload Form2 form2窗体卸载

14、 End If If dengji = 1 Then n = 40 If denfji = 2 Then n = 50 If dengji = 3 Then n = 70End SubPrivate Sub Timer1_Timer()Dim m(5) As Integer 定义一个数组 For i = 0 To 5 用循环使控件实现下面的功能 Label1(i).Top = Label1(i).Top + n 字母往下掉的速度 If Label1(i).Top = Form1.Height Then 当字母没有被打中落下 Label9.Caption = Label9.Caption - 1

15、 落一个剩余能量就减一 m(i) = 0 定义的数组参数值为零 If m(i) = 0 Then 当参数为零的时候 Label1(i).Top = 400 空间从400 的高度开始下落 Label1(i).Caption = Chr$(Rnd * 26 + 97) 重新赋值改变字母 End If End If If Label9.Caption = 0 Then 当剩余能量为零时 Unload Form2 卸载form2 Form4.Show form4窗体显示 Timer2.Enabled = False 时钟控件2不可用 End If Next iEnd SubPrivate Sub Ti

16、mer2_Timer()Label4.Caption = Label4.Caption - 1 每秒时间就会减一 If Label4.Caption = 0 Then 当时间为零的时候 Form3.Show form3显示 Unload Form2 form2窗体卸载 End IfEnd Sub3、form3窗体（显示胜利时的最后得分）Private Sub Form_Load() Text1.Text = defen txet1的内容是显示得分 Text2.Text = dengji text2的内容是显示等级End Sub4、form4窗体（失败后显示的窗体）Private Sub Com

17、mand1_Click()Form4.Hide form4窗体隐藏Form1.Show form1窗体显示Unload Form2 卸载form2End Sub5、form5窗体（速度选择的窗体）Private Sub Command1_Click() Form2.Show Form5.Hide If Val(Text1.Text) = 1 Then dengji = 1 ElseIf Val(Text1.Text) = 2 Then dengji = 2 ElseIf Val(Text1.Text) = 3 Then dengji = 3 End IfEnd Sub 第 12 页 （页码从正文开始，居中）