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

VB测试打字速度改进 需要一个测试打字速度的软件 求一种测试打字速度的软件 测试打字速度的软件有哪些 打字速度测试准确 谁可以告诉我一个可以测试打字速度的软件? 如何用VB制作一个测试打字速度的程序？高手帮帮忙啊`~！！ 急需一个测试打字速度和准确率的VB程序原代码 软件测试用例设计对测试效率的影响 有什么软件是测试打字速度的，介绍个给我啊