× [PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
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 PR |
|