Question

英文打字练习的完整VB程序代码

在屏幕随机产生英文字母并按一定速度落下，下落过程中敲击主键盘上的按键。当按键与屏幕上出现的字母相同时加十分，限时一分钟

Answer 1

Private Sub Command1_Click()
Static i As Integer
i = i + 1
If i Mod 2 = 0 Then
Command1.Caption = "开始"
Timer1.Enabled = False
Timer3.Enabled = False
End If
If i Mod 2 <> 0 Then
Command1.Caption = "暂停"
Randomize
Label1.Caption = Chr(Int(25 * Rnd + 65))
Randomize
Label1.Left = Int(Rnd * 4641 + 360)
Label1.Top = 360
Timer1.Enabled = True
Timer3.Enabled = True
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
Randomize
If KeyAscii = Asc(LCase(Label1.Caption)) Then Label1.Visible = False: Label1.Top = 360: Label1.Caption = Chr(Int(25 * Rnd + 65)): Label1.Left = Int(Rnd * 4641 + 360): Label1.Visible = True: Label5 = Label5 + 10
End Sub

Private Sub Form_Load()
Form1.Width = 6855
End Sub

Private Sub Timer1_Timer()
Label1.Move Label1.Left, Label1.Top + 100
If Label1.Top > 7800 Then Label1.Top = 360: Label1.Caption = Chr(Int(25 * Rnd + 65)): Label1.Visible = True: Label1.Left = Int(Rnd * 4641 + 360)
End Sub

Private Sub Timer3_Timer()
Static a, c As Integer
a = a + 1
b = 60 - a
Label2.Caption = "剩余" & b & "秒"
If b = 0 Then i = MsgBox("是否继续？", 36, "提示")
If i = 6 Then b = 60: a = 0
If i = 7 Then End
End Sub