Question

求vb高手帮做个打字游戏

① 程序开始时，用户需输入用户名方可开始打字练习，并可自行设置练习的难度与打字的速度。难度可分为“小写字母”、“大小写字母”和“所有字符”，速度可分为“快”、“中”和“慢”。
② 开始练习时，屏幕会随机产生各种字符，并从屏幕上方落到下方。在字符落到屏幕底部之前，在键盘上按对相应出现的字符，则该字符消失，并同时产生爆炸声，程序会根据速度和难度的设置自动记录分数并显示在窗口的顶部。
③ 打字练习的过程中，屏幕的顶部显示已用的时间和当前的分数。 ④ 用户可查看自己的历史成绩，并可对系统中已保存的成绩进行排序，显示出排行榜的信息。
发到kkrbd@163.com

vb加access

Answer 1

我可以给你一个小例子！
如果你要全部按照你的要求完成，你得花钱找人做了！~

例子程序可以去我资料里找我网盘的地址，然后在里面可以找到Tpying.rar

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