Simone编写一个英文打字速度测试程序
的有关信息介绍如下：
都不给点分的啊 Dim x As IntegerPrivate Sub Command1_Click()Label2.Caption = ""Text2.Text = ""For i = 1 To 30 Label2 = Label2 & Chr(Int(Rnd() * 26) + 97)Next iEnd SubPrivate Sub Text2_Change()Dim r As IntegerIf Len(Text2.Text) = 30 Then Timer1.Enabled = False Text2.Enabled = False For i = 1 To 30 If Mid(Text2.Text, i, 1) = Mid(Label2.Caption, i, 1) Then r = r + 1 Label3.Caption = r / 30 * 100 Next iEnd IfEnd SubPrivate Sub Text2_GotFocus()Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()x = x + 1Label1 = xEnd Sub
