怎么用VB编制打字练习程序？

建立一个随机库a="AB。CD...",然后产生50以内的随机数，从1循环到随机数，用mid循环从字库里截取一个字符。开始计时

键入框每输入一个字符change事件来判断是否和产生框字符是否一样多，如果一键谨猛样多停止计时。然后又循环加mid进行对比，一样的个数/总数，得出准晌肆确稿桥率

Dim k

Private Sub Command1_Click()

Form1.Cls

time1 = 圆桥竖Val(Label1.Caption)

length = Len(Text1.Text)

If length = 0 Then

MsgBox "请在文本框中输入文字或字母！"

Else

ave = time1 / length

Print ("你的打字速度为"消碰 & ave & "秒/个")

End If

Text1.Text = ""

Label1.Caption = 0

k = 0

End Sub

Private Sub Form_Load()

Timer1.Enabled = True

Label2.Caption = Time$

Timer1.Interval = 1000 '1秒触发一次timer事件

End Sub

Private Sub Timer1_Timer()

k = k + 1

Label1.Caption = k

End Sub

窗体中有两个橘大label控件

最简单的，在A1是要输入的文字，测试的时候A2进行输入。

Public a

Sub fff()

a = Now

Cells(1, 1) = "请输入：这是一段测试文字"

Cells(2, 1).Select

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Cells(2, 1) = Mid(Cells(1, 1), 5) And Cells(1, 1) <> "" Then

    颤袭宽茄亮b = Now

    c = Second(b - a)

    Cells(1, 1).Clear

    Cells(2, 1).Clear

    MsgBox c

   禅裂 End If

End Sub

---