怎样用VB编写打字小游戏

[电脑打字员简历]目前所在：汕尾年龄： 24 户口所在：广州国籍：中国婚姻状况：未婚民族：汉族求职意向人才类型：本站应聘职位：英语翻译：翻译，贸易/进出口专员/助理：助理，电脑操作员/打字员：打...+阅读

我2年前写的，有点幼稚。别见笑VERSION 5.00Begin VB.Form Form1 AutoRedraw = -1 'True Caption = ＂打字游戏小游戏而已＂ ClientHeight = 4800 ClientLeft = 60 ClientTop = 750 ClientWidth = 5610 LinkTopic = ＂Form1＂ ScaleHeight = 4800 ScaleWidth = 5610 StartUpPosition = 1 '所有者中心 Begin VB.Timer Timer1 Left = 0 Top = 3600 End Begin VB.Label Label1 Caption = ＂Label1＂ Height = 735 Index = 0 Left = 1320 TabIndex = 0 Top = 600 Width = 855 End Begin VB.Menu MenuGame Caption = ＂数量（&N）＂ Index = 0 End Begin VB.Menu MenuGame Caption = ＂速度（&P）＂ Index = 1 End Begin VB.Menu MenuGame Caption = ＂重置（&R）＂ Index = 2 End Begin VB.Menu MenuGame Caption = ＂开始（&S）＂ Index = 3 End Begin VB.Menu MenuGame Caption = ＂输赢（&W）＂ Index = 4 End Begin VB.Menu MenuGame Caption = ＂帮助（&H）＂ Index = 5 EndEndAttribute VB_Name = ＂Form1＂Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseDim StartPause As BooleanDim n As IntegerDim Speed As IntegerDim Down As Integer, Hit As IntegerDim DownLost As Integer, HitWin As IntegerRem 自定义函数效率不高啊。

。。Private Sub Form_Initialize()Speed = 10DownLost = 100HitWin = 100End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)RandomizeFor Index = 0 To n If Chr(KeyCode) = Label1(Index).Caption Then With Label1(Index) .Top = Me.ScaleTop .Caption = Chr(Int(Rnd * 26) + 65) .Left = Rnd * (Me.ScaleWidth - Label1(Index).Width) .ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End With Hit = Hit + 1 Me.Caption = ＂打字游戏＂ & ＂掉落：＂ & Down & ＂命中：＂ & Hit End IfNext IndexEnd SubPrivate Sub Form_Load()On Error Resume NextTimer1.Interval = 10Timer1.Enabled = False RandomizeWith Label1(0) .Top = Me.ScaleTop .Caption = Chr(Int(Rnd * 26) + 65) .ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) .Left = Rnd * (Me.ScaleWidth - Label1(0).Width) .FontSize = 30 .BackStyle = 0End WithFor Index = 1 To n Load Label1(Index) With Label1(Index) .Visible = True .FontSize = 30 .BackStyle = 0 .Top = Me.ScaleTop .Caption = Chr(Int(Rnd * 26) + 65) .Left = Rnd * (Me.ScaleWidth - Label1(Index).Width) .ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End WithNext IndexEnd SubPrivate Sub MenuGame_Click(Index As Integer)On Error Resume NextSelect Case Index Case 0 n = Int(InputBox（＂输入数量，建议输入1至5，如果输入0或者按取消，将会去缺省值1＂，＂输入数量＂） - 1) Form_Load StartPause = False: MenuGame(3).Caption = ＂开始（&S）＂ Case 1 Speed = Int(Val(InputBox（＂输入速度参数，建议5-20，如果输入0或按取消，将会取缺省值0，就是不会移动＂，＂输入速度参数＂））） Timer1.Enabled = False StartPause = False: MenuGame(3).Caption = ＂开始（&S）＂ Case 2 Hit = 0 Down = 0 Form_Load StartPause = False: MenuGame(3).Caption = ＂开始（&S）＂ Case 3 StartPause = Not StartPause If StartPause = True Then MenuGame(3).Caption = ＂暂停（&P）＂ Timer1.Enabled = True ElseIf StartPause = False Then MenuGame(3).Caption = ＂开始（&S）＂ Timer1.Enabled = False End If Case 4 HitWin = Int(InputBox（＂输入数字，当命中数等于该数时即为胜利。

＂，＂输入数字＂）） DownLost = Int(InputBox（＂输入数字，当掉落数等于该数时即为胜利。＂，＂输入数字＂）） Case 5 MsgBox ＂目前没有编辑帮助＂ End SelectEnd SubPrivate Sub Timer1_Timer()RandomizeFor Index = 0 To n Label1(Index).Top = Label1(Index).Top + Speed If Label1(Index).Top >= Me.ScaleHeight Then With Label1(Index) .Top = Me.ScaleTop .Caption = Chr(Int(Rnd * 26) + 65) .Left = Rnd * (Me.ScaleWidth - Label1(Index).Width) .ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End With Down = Down + 1 Me.Caption = ＂打字游戏＂ & ＂掉落＂ & Down & ＂命中＂ & Hit End IfNext IndexIf Down >= DownLost Then MsgBox ＂你输啦！＂， vbOKOnly, ＂You lost＂: EndIf Hit >= HitWin Then MsgBox ＂你赢啦！＂， vbOKOnly, ＂You Win＂: EndEnd Sub