Question

做一个vb程序 打字游戏

（1）题目
打字游戏
（2）系统功能
① 程序开始时，用户需输入用户名方可开始打字练习，并可自行设置练习的难度与打字的速度。难度可分为“小写字母”、“大小写字母”和“所有字符”，速度可分为“快”、“中”和“慢”。
② 开始练习时，屏幕会随机产生各种字符，并从屏幕上方落到下方。在字符落到屏幕底部之前，在键盘上按对相应出现的字符，则该字符消失，并同时产生爆炸声，程序会根据速度和难度的设置自动记录分数并显示在窗口的顶部。
③ 打字练习的过程中，屏幕的顶部显示已用的时间和当前的分数。
④ 用户可查看自己的历史成绩，并可对系统中已保存的成绩进行排序，显示出排行榜的信息。
最好希望给我一份总结资料
①目录
②程序功能描述
③系统的详细设计
ⅰ)数据库
ⅱ）界面设计
ⅲ）主要代码
④调试程序的过程
⑤总结
弄好发我邮箱fyq645510391@qq.com 谢谢！

Answer 1

以前做过一个 好像在我网盘里面有 叫type！~

网盘地址在我个人资料里！~

Option Explicit
Dim score As Integer
Dim speed As Integer
Dim Wrong As Integer

Sub init()
Label1.Caption = Chr(Int(Rnd * 26) + 49)
speed = Int(Rnd * 100 + Val(Label7.Text))
Label1.Left = Int(Rnd * Frame1.Width)
Label1.Top = Frame1.Top
Wrong = Wrong + 1
End Sub

Private Sub Command1_Click()
Wrong = 0
score = 0
init
Timer1.Enabled = True
Timer2.Enabled = True
Command1.Visible = False
Label4.Caption = 0
Label5.Enabled = False
Label7.Enabled = False
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = Label1.Caption Then
init
score = score + 1
Label4.Caption = score
End If
End Sub

Private Sub Form_Load()
Randomize
Timer1.Enabled = False
Timer2.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1.Top = Label1.Top + speed

If Label1.Top > Frame1.Height Then
init
End If
End Sub

Private Sub Timer2_Timer()
Label5.Text = Val(Label5.Text) - 1

If Val(Label5.Text) <= 0 Then
Timer1.Enabled = False

Label1.Caption = ""

MsgBox (score / Wrong) * 100 & "%"

Command1.Visible = True

Label4.Caption = 0
Label5.Text = 60

Label5.Enabled = True
Label7.Enabled = True

Timer1.Enabled = False
Timer2.Enabled = False
End If
End Sub

控件自己加！~

追问

因为我是帮人问的，我完全不懂，能不能详细点，就包含数据库那些全部的，帮帮忙吧，谢谢了！

追答

一点不懂和你说了你也不明白！~

Answer 2

城市学院的？你要是弄完了，给我传过来谢谢，Q824680394