Question

用VB编写测试打字速度程序

Private Sub Command1_Click()
Dim num As Integer, t0 As Long
num = 0
t0 = Timer
Text1.Text = ""
Label2.Caption = 0
Text1.SetFocus

End Sub

Private Sub Command2_Click()
End

End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_Change()
num = num + 1
Label2.Caption = Int(num * 60 / (Timer - t0))
End Sub

这是我写的代码， 但运行不了， 打字时Label2的caption属性不会改变。
测试不了打字速度。
还有几个问题 帮忙回答下 我再给你另外加分

1.增加测试已用时间和已录入字符数
2.显示录入即时速度
3.消除退格和删除键的影响

Answer 1

将Dim num As Integer, t0 As Long这行提出来放到代码顶上去..

不然这2个变量就是command1过程中的变量了.在text1的change事件中无法使用的.