我用vb编程编写一个打字程序,但是总是提示代码错误:缺少函数或变量,怎么解决?

2024-12-30 14:12:16
推荐回答(1个)
回答1:

Sub zimu()
  Randomize
  Dim i As Integer
  Do
    i = Int(Rnd * 58 + 65)
  Loop While i > 90 And i < 97
  zimuL.Caption = Chr(i)
  zimuL.Left = Rnd * (Me.ScaleWidth - zimuL.Width)
  zimuL.Top = 0
End Sub
Private Sub Command1_Click()
  zimuL.Visible = True
  Timer1.Interval = 200
  Call zimu
  Text1.SetFocus
End Sub
Private Sub Form_Load()
  Text1.Text = ""
  zimuL.Caption = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
  If zimuL.Caption = Chr(KeyAscii) Then
    Call zimu
  End If
  Text1.Text = ""
End Sub
Private Sub Timer1_Timer()
  zimuL.Top = zimuL.Top + 100
  If zimuL.Top >= Me.ScaleHeight Then
    Call zimu
  End If
End Sub