打字练习代码.doc

最近发现很对人需要打字程序的代码，新作了一个，还有些小功能可以自己补充。ZIP发不上来，只能让大家自己复制下去了。 Option Explicit Sub cswz() 产生位置 Randomize wz = Rnd() * (Picture1.Width - 200)End SubSub cszm() Randomize If nd = 1 Then zm = Chr(Int(26 * Rnd + 65)Label1(0).Caption = Chr(Int(90 - 65 + 1) * Rnd + 65) 产生一个介于65到90之间的随机数ElseIf nd = 2 Thenzm = Chr(Int(58 * Rnd + 65)Elsezm = Chr(Int(75 * Rnd + 48)End IfEnd Sub Private Sub Command1_Click() df = 0 Command4.Visible = False Command1.Visible = False sdsd 调用产生速度设定值 Timer1.Interval = sd1 syt = 200 Picture1.SetFocus cswz 调用产生位置子程序 Label1(0).Left = wz cswz 调用产生位置子程序 Label1(1).Left = wz cswz 调用产生位置子程序 Label1(2).Left = wz cswz 调用产生位置子程序 Label1(3).Left = wz cswz 调用产生位置子程序 Label1(4).Left = wz cswz 调用产生位置子程序 Label1(5).Left = wz cszm 调用产生字母子程序 Label1(0).Caption = zm cszm 调用产生字母子程序 Label1(1).Caption = zm cszm 调用产生字母子程序 Label1(2).Caption = zm cszm 调用产生字母子程序 Label1(3).Caption = zm cszm 调用产生字母子程序 Label1(4).Caption = zm cszm 调用产生字母子程序 Label1(5).Caption = zm Timer1.Enabled = True 激活Time1控件 Timer2.Enabled = True 激活Time2控件 Label3.Caption = 当前得分： & df Label4.Caption = 剩余时间： & syt Label2.Caption = 当前难度等级： & nd Label5.Caption = 当前速度等级： & sd End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Command4_Click()Form2.ShowEnd Sub Private Sub Form_Load() Randomize Timer1.Enabled = False Time1控件失效 Timer2.Enabled = False Time2控件失效 Command1.Visible = False End SubPrivate Sub Picture1_KeyPress(KeyAscii As Integer)If Chr(KeyAscii) = Label1(0).Caption Thendf = df + 1BeepLabel3.Caption = 当前得分： & dfcszmcswzLabel1(0).Left = wzLabel1(0).Caption = zmLabel1(0).Top = 0ElseIf Chr(KeyAscii) = Label1(1).Caption Thendf = df + 1BeepLabel3.Caption = 当前得分： & dfcszmcswzLabel1(1).Left = wzLabel1(1).Caption = zmLabel1(1).Top = 0ElseIf Chr(KeyAscii) = Label1(2).Caption Thendf = df + 1BeepLabel3.Caption = 当前得分： & dfcszmcswzLabel1(2).Left = wzLabel1(2).Caption = zmLabel1(2).Top = 0ElseIf Chr(KeyAscii) = Label1(3).Caption Thendf = df + 1Label3.Caption = 当前得分： & dfcszmcswzBeepLabel1(3).Left = wzLabel1(3).Caption = zmLabel1(3).Top = 0ElseIf Chr(KeyAscii) = Label1(4).Caption Thendf = df + 1BeepLabel3.Caption = 当前得分： & dfcszmcswzLabel1(4).Left = wzLabel1(4).Caption = zmLabel1(4).Top = 0ElseIf Chr(KeyAscii) = Label1(5).Caption Thendf = df + 1BeepLabel3.Caption = 当前得分： & dfcszmcswzLabel1(5).Left = wzLabel1(5).Caption = zmLabel1(5).Top = 0End IfEnd SubPrivate Sub Timer1_Timer()Label1(0).Top = Label1(0).Top + Rnd * 300Label1(1).Top = Label1(1).Top + Rnd * 300Label1(2).Top = Label1(2).Top + Rnd * 300Label1(3).Top = Label1(3).Top + Rnd * 300Label1(4).Top = Label1(4).Top + Rnd * 300Label1(5).Top = Label1(5).Top + Rnd * 300If Label1(0).Top Picture1.Height ThencszmcswzLabel1(0).Left = wzLabel1(0).Caption = zmLabel1(0).Top = 0End IfIf Label1(1).Top Picture1.Height ThencszmcswzLabel1(1).Left = wzLabel1(1).Caption = zmLabel1(1).Top = 0End If If Label1(2).Top Picture1.Height ThencszmcswzLabel1(2).Left = wzLabel1(2).Caption = zmLabel1(2).Top = 0End IfIf Label1(3).Top Picture1.Height ThencszmcswzLabel1(3).Left = wzLabel1(3).Caption = zmLabel1(3).Top = 0End If If Label1(4).Top Picture1.Height ThencszmcswzLabel1(4).Left = wzLabel1(4).Caption = zmLabel1(4).Top = 0End IfIf Label1(5).Top Picture1.Height ThencszmcswzLabel1(5).Left = wzLabel1(5).Caption = zmLabel1(5).Top = 0End IfEnd Sub Private Sub Timer2_Timer() 剩余时间扣除计时 syt = syt - 1 扣除剩余个数中的一个 Label4.Caption = 剩余时间： & syt If syt = 0 Then Timer1.Enabled = False 剩余个数小于等于0的时候结束练习 Label1.Caption = 不显示字母 Label6.Caption = Select Case df Case Is = 80 MsgBox vbCrLf + 别放弃，再来一次！ 显示信息框 Case Is 120 MsgBox vbCrLf + 成绩不错，加油！ Case Is 180 MsgBox vbCrLf + 好厉害！最高分呀！ End Select Command4.Visible = True Timer1.Enabled = False Timer2.Enabled = False Label1(0).Caption = Label1(1).Caption = Label1(2).Caption = Label1(3).Caption = Label1(4).Caption = Label1(5).Caption = Label1(0).Top = 0 Label1(1).Top = 0 Label1(2).Top = 0 Label1(3).Top = 0 Label1(4).Top = 0 Label1(5).Top = 0 End IfEnd Sub设定窗口代码：Option ExplicitPrivate Sub Command1_Click()If Option1.Value = True Thennd = 1ElseIf Option2.Value = True Thennd = 2Elsend = 3End IfIf Option4.Value = True Thensd = 1ElseIf Option5.Value = True Thensd = 2Elsesd = 3End IfForm2.HideForm1.Command1.Visible = TrueEnd SubPrivate Sub Form_Load()Option1.Value = TrueOption4.Value = TrueEnd SubPrivate Sub Form_Unload(Cancel As Integer)Form2.HideEnd Sub模块代码：Option Exp