资源描述：
《VB课程设计 打字游戏》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、内容摘要本有游戏主要针对指法练习，并提供字母和单词两种选择。根据用户自身情况，可以进行速度调节，以达到最佳的练习效果。同时本游戏提供显示时间,得分，正确率和失败个数的功能。当失败个数超过一定个数后，游戏结束并提示是否继续。15目录内容摘要11功能描述31.1简单模式31.2复杂模式32概要设计43详细设计53.1窗体控件设计53.2各模块功能63.1.1随机产生字母和选取单词函数63.1.2窗体63.1.3开始按钮73.1.4暂停按钮83.1.5退出按钮83.1.6键盘事件83.1.7计时器193.1.8计时器210
2、3.3程序调试及运行结果113.4效果及存在的问题134心得体会14参考文献15151功能描述图1游戏开始界1.1简单模式本模式提供字母练习。当用户运行游戏，选择简单模式后，点击开始按钮开始练习，并开始计时。游戏开始后，随机掉下一些字母，敲击对应键盘，字母消失。如果字母掉落到底部，则掉落个数增加1个。当掉落个数为26时，游戏结束，并提示用户是否继续。游戏过程中按“暂停”按钮暂停有游戏，按“退出”按钮退出游戏。1.2复杂模式本模式提供单词练习。当用户运行游戏，选择复杂模式后，点击开始按钮开始练习，并开始计时。游戏开始后
3、，随机掉下一些单词，输入对应单词（如果输错，敲空格清除），并敲空格键，单词消失。如果单词掉落到底部，则掉落个数增加1个。当掉落个数为26时，游戏结束，并提示用户是否继续。游戏过程中按“暂停”按钮暂停有游戏，按“退出”按钮退出游戏。152概要设计简单模式调节速度开始字母练习已错过26个，是否继续？是否重新开始游戏游戏开始游戏开始界面运行程序复杂模式开始开始开始单词练习调节速度是否重新开始游戏游戏开始游戏流程图游戏过程中可以按“暂停”按钮暂停有游戏，并且停止计时。按“退出”按钮退出游戏153详细设计3.1窗体控件设计图3
4、.1窗体界面部分窗体控件及其属性对象属性属性值Form1Caption打字游戏KeyPreviewTrueHScroll1Max160Min40Value100表3.1控件及属性值153.2各模块功能3.1.1随机产生字母和选取单词函数PrivateFunctionsuiji()'随机产生字母和随机选取单词函数DimaAsIntegerDimbAsStringRandomizeword=Array("sway","sneak","naked","maple","ample","lough","plasma","tud
5、e","plague","pledge","play","prowl","pluckbandit","gangster","commemorate","solar","elipse","luna","lunatic","tumble","mortal","moral","fade","flinch","spout","sprout","spurn","spoil","sparrow","sprain","plasma","mare","malady","glisten","bereave","glimme","rsl
6、im","crave","amiable","able","blizzard","lizard","bruise","bromide","place","bale")'存放供练习的单词b=Int(Rnd*(UBound(word)+1))'产生单词序号a=Int((122-97+1)*Rnd+97)'产生97到122之间的整数IfOption1.ValueThensuiji=Chr(a)'如果选择简单单选框，则函数的返回值为小写字母Elsesuiji=word(b)'如果选择复杂单选框，则函数的返回值为单词EndIf
7、EndFunction3.1.2窗体PrivateSubForm_Load()Text1.Top=-1000Label6.Caption="正确率：0"Label4.Caption="时间00:00:00"Timer2.Enabled=FalseTimer1.Enabled=FalseLabel2.BackStyle=0Label3.BackStyle=0Label4.BackStyle=0Label5.BackStyle=0Label6.BackStyle=0'将标签2到6的背景设为透明Fori=0ToLabel1
8、.Count-115Label1(i).Visible=False'将标签Label1(1)到Label1(5)的初始状态设为不可见Label1(i).Top=600*(i+1)'设置字母或单词的的位置Label1(i).Caption=suiji'最初出现的字母或者单词Label1(i).FontSize=25'设置字体大小Label1(i)
