大家好,小福来为大家解答以上的问题。中文打字速度测试软件，英文打字速度测试这个很多人还不知道,现在让我们一起来看看吧！

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你妈含含糊糊。

本文到此分享完毕，希望对大家有所帮助。

版权说明： 本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。

标签：