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