用VB如何设计打字程序啊，各位大哥大姐帮帮忙啊。

Question

1．基本要求：
选择不同等级开始练习，窗体上出现多个下落字母。在一定时间内，若单击键盘相应字母，其从窗体上消失，并记录下成绩。详细要求如下：
 编写控制菜单；
 窗体上添加相应控件，两个产生字母的标签放置在Frame或Picture上；
 在标签上随机出现字母，字母位置必须在Frame或Picture内；
 根据级别的不同，产生的字母类型（大写、小写、数字、上档键）也不同，下落的速度随着级别而增加；
 通过敲击键盘，将相应字母从屏幕上消失，同时在Frame或Picture上重新产生新的字母；
 计算出在规定的时间内打字的正确率，并给用户提示信息。
 打字练习可连续进行，当没到规定时间时也可以停止练习，显示的时间、分数恢复到初始状态并给出提示信息。
 练习的时间可以自由设定
2．创新要求：
 可以改变字体的属性；
 在练习开始时，可以输入用户的姓名并在窗体上显示出来；
 记录用户每次练习的成绩，每次结束后将以前所有练习的信息显示给用户；
 用户可以随时查询；
 建立英雄榜。
3．问题描述：
打字练习程序，在窗体上端随机出现一个英文字母，自由下落，在其下落超出窗体的下端前通过敲击键盘打出正确的字母。如果打字正确则字母消失并重新出现一个新的字母，否则继续下落直至超出窗体下端重新出现新的字母。出现的字母数和打字正确的字母数要记下来，并计算出正确率，根据正确率给出用户不同的信息。

Answer 1

添加控件.
command1 frame1 (label1……label6 timer1 timer2)

'窗体代码,测试好的,大概就是这样 稍微改下就可以实现你所说的功能
Option Explicit
Dim score As Integer
Dim speed As Integer

Sub init()
Label1.Caption = Chr(Int(Rnd * 26) + 49) ' / 设定Label1随机显示的字母
speed = Int(Rnd * 100 + 100) '/ 设定Label1随机显示字母的速度
Label1.Left = Int(Rnd * Frame1.Width) '/ 设定Label1代表字母出现的左边位置
Label1.Top = Frame1.Top '/ 设定Label1代表字母出现的顶部位置
End Sub

Sub init1()
Label6.Caption = Chr(Int(Rnd * 26) + 97) '/ 设定Label2随机显示的字母
speed = Int(Rnd * 100 + 100) '/ 设定Label2随机显示字母的速度
Label6.Left = Int(Rnd * Frame1.Width) ' / 设定Label2代表字母出现的左边位置
Label6.Top = Frame1.Top ' / 设定Label2代表字母出现的顶部位置
End Sub

Private Sub Command1_Click()
init ' /调用init子程序
Timer1.Enabled = True '/ 激活Time1控件
Timer2.Enabled = True '/ 激活Time2控件
Command1.Visible = False
Label5.Caption = 200
Label4.Caption = 0
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = Label1.Caption Then ' /校验键盘输入字符和Label1显示的字符
init
score = score + 1 ' / 得分加1
Label4.Caption = score
End If
If Chr(KeyAscii) = Label6.Caption Then ' /校验键盘输入字符和Label2显示的字符
init1
score = score + 1
Label4.Caption = score '/ Label4控件显示得分情况
End If
End Sub

Private Sub Form_Load()
Randomize
Timer1.Enabled = False '/ Time1控件失效
Timer2.Enabled = False '/ Time2控件失效
End Sub

Private Sub Timer1_Timer()
Label1.Top = Label1.Top + speed
If Label1.Top > Frame1.Height Then ' /第一个字母超出屏幕范围的时候调用init子程序重新出现一个字母
init
End If
Label6.Top = Label6.Top + speed
If Label6.Top > Frame1.Height Then '/第二个字母超出屏幕范围的时候调用init1子程序重新出现一个字母
init1
End If
End Sub

Private Sub Timer2_Timer()
Label5.Caption = Val(Label5.Caption) - 1 '/ 扣除剩余个数中的一个
If Val(Label5.Caption) <= 0 Then
Timer1.Enabled = False '/ 剩余个数小于等于0的时候结束练习
Label1.Caption = "" ' / 不显示字母
Label6.Caption = ""
Select Case score
Case Is <= 80
MsgBox vbCrLf + "别放弃，再来一次！" '/ 显示信息框
Case Is < 120
MsgBox vbCrLf + "成绩不错，加油！"
Case Is < 150
MsgBox vbCrLf + "再努力做的更好一些！"
Case Is > 180
MsgBox vbCrLf + "好厉害！最高分呀！"
End Select
Command1.Visible = True
Label4.Caption = 0
Label5.Caption = 200
Timer1.Enabled = False
Timer2.Enabled = False
End If
End Sub

Answer 2

要建立英雄榜的话要用到数据库，你自己到网上找下教程吧！找论坛也行！估计没人给你写源码的

Answer 3

程序员成廉价工具了，20分一个打字测试源码，还要这么详细的！~~~~无语！悲哀！~~~