用vb设计打字速度测试软件 详细步骤、代码。谢谢！【追加100，骗你不是人】

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控件