Dim T As Single
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, tmpStr As String
For i = 1 To 30
j = Int((90 - 65 + 1) * Rnd + 65)
Randomize
tmpStr = tmpStr & Chr(j)
Next
Text1.Text = tmpStr
End Sub
Private Sub Form_Load()
Me.Caption = "打字練習"
Command1.Caption = "結束"
Command2.Caption = "產生"
Text1.Text = "" '原字符
Text2.Text = "" '請鍵入
Text3.Text = "" '時間
Text4.Text = "" '準確率
Timer1.Enabled = False
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
T = T + 0.1
Text3.Text = Format(T, "0.0秒")
End SubPrivate Sub Text2_Change()
Dim tmpStr1 As String, tmpStr2 As String
Dim tmpStr As String, i As Integer, n As Integer
On Error Resume Next
If Not Timer1.Enabled Then
Timer1.Enabled = True
End If
tmpStr1 = Text1.Text
tmpStr2 = Text2.Text
If Len(tmpStr2) >= 30 Then Timer1.Enabled = False
For i = 1 To Len(tmpStr2)
If Mid(tmpStr2, i, 1) = Mid(tmpStr1, i, 1) Then
n = n + 1
End If
Next
Text4.Text = Format(n / Len(tmpStr1), "0.00%")
End Sub