运行环境：分辨率：1440×900 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.21.10865

Dim zi   Event Form1.Timer1.Timer    Randomize       if Form1.Label1.top>=Form1.Height then :Call 初始1() :else :Form1.Label1.Top = Form1.Label1.Top + 1:end if       if Form1.Label2.top>=Form1.Height then :call 初始2() :else :Form1.Label2.Top = Form1.Label2.Top + 1:end if       if Form1.Label3.top>=Form1.Height then :call 初始3() :else :Form1.Label3.Top = Form1.Label3.Top + 1:end if       if Form1.Label4.top>=Form1.Height then :call 初始4() :else :Form1.Label4.Top = Form1.Label4.Top + 1:end if       if Form1.Label5.top>=Form1.Height then :call 初始5() :else :Form1.Label5.Top = Form1.Label5.Top + 1:end if       if Form1.Label6.top>=Form1.Height then :call 初始6() :else :Form1.Label6.Top = Form1.Label6.Top + 1:end if       if Form1.Label7.top>=Form1.Height then :call 初始7() :else :Form1.Label7.Top = Form1.Label7.Top + 1:end if       if Form1.Label8.top>=Form1.Height then :call 初始8() :else :Form1.Label8.Top = Form1.Label8.Top + 1:end if       if Form1.Label9.top>=Form1.Height then :call 初始9() :else :Form1.Label9.Top = Form1.Label9.Top + 1:end if       if Form1.Label10.top>=Form1.Height then :call 初始10() :else :Form1.Label10.Top = Form1.Label10.Top + 1:end if   End Event      Event Form1.Timer2.Timer       fen=0       变量 = GetLastKey       'msgbox Chr(变量) & "     " & 变量       If Chr(变量) = Form1.Label1.Caption Then fen=fen+1:Call 初始1()       If Chr(变量) = Form1.Label2.Caption Then fen=fen+1:Call 初始2()       If Chr(变量) = Form1.Label3.Caption Then fen=fen+1:Call 初始3()       If Chr(变量) = Form1.Label4.Caption Then fen=fen+1:Call 初始4()       If Chr(变量) = Form1.Label5.Caption Then fen=fen+1:Call 初始5()       If Chr(变量) = Form1.Label6.Caption Then fen=fen+1:Call 初始6()       If Chr(变量) = Form1.Label7.Caption Then fen=fen+1:Call 初始7()       If Chr(变量) = Form1.Label8.Caption Then fen=fen+1:Call 初始8()       If Chr(变量) = Form1.Label9.Caption Then fen=fen+1:Call 初始9()       If Chr(变量) = Form1.Label10.Caption Then fen=fen+1:Call 初始10()       Form1.Label11.Caption="得分: " & Split(Form1.Label11.Caption, ": ")(1)+fen       变量=""   End Event      Event Form1.Button1.Click   If Form1.Button1.Caption="开始打字游戏" then Form1.OptionBox1.Enabled=True:Form1.OptionBox2.Enabled=True:Form1.OptionBox3.Enabled=True: Form1.Timer1.Enabled = True:Form1.Timer2.Enabled = True:Form1.Button1.Caption="结束打字游戏" else Form1.OptionBox1.Enabled=false:Form1.OptionBox2.Enabled=false:Form1.OptionBox3.Enabled=false:Form1.Timer1.Enabled = false:Form1.Timer2.Enabled = false:Form1.Button1.Caption="开始打字游戏"   End Event   Event Form1.Load       zi = Split("0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z", " ")   End Event      Sub 初始1()           Randomize       Form1.Label1.Top=0:Form1.Label1.Left = Int((470 * Rnd) + 1):Form1.Label1.Caption =zi(Int(Rnd*35))   End Sub   Sub 初始2()           Randomize       Form1.Label2.Top=0:Form1.Label2.Left = Int((470 * Rnd) + 1) :Form1.Label2.Caption =zi(Int(Rnd*35))   End Sub   Sub 初始3()           Randomize       Form1.Label3.Top=0:Form1.Label3.Left = Int((470 * Rnd) + 1) :Form1.Label3.Caption =zi(Int(Rnd*35))   End Sub   Sub 初始4()           Randomize       Form1.Label4.Top=0:Form1.Label4.Left = Int((470 * Rnd) + 1) :Form1.Label4.Caption =zi(Int(Rnd*35))   End Sub   Sub 初始5()           Randomize       Form1.Label5.Top=0:Form1.Label5.Left = Int((470 * Rnd) + 1) :Form1.Label5.Caption =zi(Int(Rnd*35))   End Sub   Sub 初始6()           Randomize       Form1.Label6.Top=0:Form1.Label6.Left = Int((470 * Rnd) + 1) :Form1.Label6.Caption =zi(Int(Rnd*35))   End Sub   Sub 初始7()           Randomize       Form1.Label7.Top=0:Form1.Label7.Left = Int((470 * Rnd) + 1) :Form1.Label7.Caption =zi(Int(Rnd*35))   End Sub   Sub 初始8()           Randomize       Form1.Label8.Top=0:Form1.Label8.Left = Int((470 * Rnd) + 1) :Form1.Label8.Caption =zi(Int(Rnd*35))   End Sub   Sub 初始9()           Randomize       Form1.Label9.Top=0:Form1.Label9.Left = Int((470 * Rnd) + 1) :Form1.Label9.Caption= zi(Int(Rnd*35))   End Sub   Sub 初始10()           Randomize       Form1.Label10.Top=0:Form1.Label10.Left = Int((470 * Rnd) + 1) :Form1.Label10.Caption =zi(Int(Rnd*35))   End Sub      Event Form1.OptionBox1.Click   Form1.Timer1.Interval=40   End Event   Event Form1.OptionBox2.Click   Form1.Timer1.Interval=20   End Event   Event Form1.OptionBox3.Click   Form1.Timer1.Interval=10   End Event