メモです

Dim misskazu As Integer
Dim keyrnd As Integer
Dim st
Dim okkazu As Integer

Private Sub cmdend_Click()
End
End Sub

Private Sub cmdstart_Click()
okkazu = 0
st = Timer
frmkeytype.KeyPreview = True
Timer1.Enabled = True
Call rndkey
End Sub

Private Sub Form_Load()
Randomize
End Sub

Private Sub Timer1_Timer()
t = Timer - st
If t > 20 Then
Timer1.Enabled = False
frmkeytype.KeyPreview = False
If okkazu > 20 Then
MsgBox "あなたは優秀です！", 64, "結果"
ElseIf okkazu > 10 And okkazu < 20 Then
MsgBox "まあまあですね！", 64, "結果"
ElseIf okkazu < 10 Then
MsgBox "もう少し練習してね！", 64, "結果"
End If
End If
End Sub

Private Sub Form_keypress(keyascii As Integer)
If keyascii = keyrnd Then
okkazu = okkazu + 1
lblokkazu.Caption = okkazu
Call rndkey
Else
misskazu = misskazu + 1
lblmisskazu.Caption = misskazu
Call rndkey
End If
End Sub

Private Sub rndkey()
keyrnd = Int(Rnd * 26) + 97
lblkey.Caption = Chr(keyrnd)
End Sub