UC知道320分求VB打字练习源码，最好把整个文件压缩发到我的邮箱：jwill233@163.com发邮箱也给分！！！
来源：百度知道 编辑：UC知道 时间：2024/07/02 03:58:21
1、设计任务
进行打字练习时熟悉键盘并提高打字速度的好方法。本题目要求编制一个打字练习游戏程序，使用户在游戏过程中进行指法练习。
2、知识要点
（1）控件数组；
（2）键盘事件处理；
（3）文本文件的读写；
（4）多模块程序设计；
（5）随机值的生成；
（6）时钟控件的使用。
（7）声音的播放
3、设计要求
（1）程序开始时，单击菜单“打字设置”，出现如下所示的“打字设置”窗口，在“您的姓名”文本框中输入用户名，输入练习时间若未输入姓名就单击“开始练习”或“查看成绩”按钮，则用MsgBox提示用户输入姓名。在“打字设置”窗口可以设置打字练习的速度和难度，速度和难度等级均分为3档。
（2）进行打字设置之后，单击“开始练习”按钮，以全屏方式显示图2所示的主界面。根据难度的设置，屏幕上随机产生并落下各种字符。若用户在字符落到屏幕底部的某个位置之前敲击了相应的键盘键，则该字符被“击中”然后消失。击中时在字符位置显示一个爆炸效果。程序根据速度和难度的设置自动进行计分，分数和剩余时间实时地显示在窗口的右下角。如图所示。计分标准如下所述：
①慢速+小写字母：打中一个1分；
②慢速+大写字母：打中一个2分；
③慢速+所有字符：打中一个3分；
④中速+小写字母：打中一个4分；
⑤中速+大写字母：打中一个5分；
⑥中速+所有字符：打中一个6分；
⑦快速+小写字母：打中一个7分；
⑧快速+大写字母：打中一个8分；
⑨快速+所有字符：打中一个9分；
“所有字符”包括大小写字母、数字和符号字符。
当下落字符中有相同的字符时，一次只能打掉一个。如果按了屏幕上没有的字符则扣一分，如果有字符落到屏幕底部则扣十分。
（3）为了增强游戏的趣味性，可增加背景音乐和打中时的打击声。用BackMusic.mid文件作为背景音乐，使用gunshot.wav文件作为打击声。
（4）打字练习的时间一到，弹出如下所示消息框显示用户本次练习得分，并将用户的成绩保存在“Score.txt”文件中，
进行打字练习时熟悉键盘并提高打字速度的好方法。本题目要求编制一个打字练习游戏程序，使用户在游戏过程中进行指法练习。
2、知识要点
（1）控件数组；
（2）键盘事件处理；
（3）文本文件的读写；
（4）多模块程序设计；
（5）随机值的生成；
（6）时钟控件的使用。
（7）声音的播放
3、设计要求
（1）程序开始时，单击菜单“打字设置”，出现如下所示的“打字设置”窗口，在“您的姓名”文本框中输入用户名，输入练习时间若未输入姓名就单击“开始练习”或“查看成绩”按钮，则用MsgBox提示用户输入姓名。在“打字设置”窗口可以设置打字练习的速度和难度，速度和难度等级均分为3档。
（2）进行打字设置之后，单击“开始练习”按钮，以全屏方式显示图2所示的主界面。根据难度的设置，屏幕上随机产生并落下各种字符。若用户在字符落到屏幕底部的某个位置之前敲击了相应的键盘键，则该字符被“击中”然后消失。击中时在字符位置显示一个爆炸效果。程序根据速度和难度的设置自动进行计分，分数和剩余时间实时地显示在窗口的右下角。如图所示。计分标准如下所述：
①慢速+小写字母：打中一个1分；
②慢速+大写字母：打中一个2分；
③慢速+所有字符：打中一个3分；
④中速+小写字母：打中一个4分；
⑤中速+大写字母：打中一个5分；
⑥中速+所有字符：打中一个6分；
⑦快速+小写字母：打中一个7分；
⑧快速+大写字母：打中一个8分；
⑨快速+所有字符：打中一个9分；
“所有字符”包括大小写字母、数字和符号字符。
当下落字符中有相同的字符时，一次只能打掉一个。如果按了屏幕上没有的字符则扣一分，如果有字符落到屏幕底部则扣十分。
（3）为了增强游戏的趣味性，可增加背景音乐和打中时的打击声。用BackMusic.mid文件作为背景音乐，使用gunshot.wav文件作为打击声。
（4）打字练习的时间一到，弹出如下所示消息框显示用户本次练习得分，并将用户的成绩保存在“Score.txt”文件中，
这个对于有经验的人不难，不过综合性太强了，老师应该指导下的
打字肯定要用到控件数组，这个在窗体上复制粘贴成一个键盘就行了
声音播放使用sndPlaySound，或者用MMControl播放声音
估计只有的程序即使老师给源代码学生都不一定看得懂，肯定要分析过案例才行
Option Explicit
Dim score As Integer
Dim speed As Integer
Dim typetime As String
'初始化字符1
Sub innt1()
'产生随机大写字母、数字及其他符号
zi1.Caption = Chr(Int(Rnd * 43 + 48))
'起初位置
zi1.Left = Int(Rnd * (mm1.Width - zi1.Width))
zi1.Top = mm1.Top - zi1.Height
End Sub
'初始化字符2
Sub innt2()
'产生随机小写字母
zi2.Caption = Chr(Int(Rnd * 26) + 97)
'起初位置
zi2.Left = Int(Rnd * (mm1.Width - zi2.Width))
zi2.Top = mm1.Top - zi2.Height
End Sub
'开始
Private Sub Command1_Click()
'输入时间
typetime = InputBox("请输入打字时间（单位为秒）：", "设置时间")
If IsNumeric(typetime) Then
Label5.Caption = typetime
Else
Exit Sub