窗体上放一个Timer控件Private Sub Form_Load()Me.AutoRedraw = TrueTimer1.Interval = 50End SubPrivate Sub Timer1_Timer()Static x As Long, y As Long, c As StringIf x + y = 0 Thenc = Chr(Asc("A") + Int(Rnd * 26))x = Int(Rnd * Me.ScaleWidth)ElseClsy = y + 100If y > Me.ScaleHeight Then
c = Chr(Asc("A") + Int(Rnd *...