大家好,小福来为大家解答以上的问题。中文打字速度测试软件,英文打字速度测试这个很多人还不知道,现在让我们一起来看看吧!
1、都不给点分的啊 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你妈含含糊糊。
本文到此分享完毕,希望对大家有所帮助。