一个Label1，一个Timer控件 Dim nDownspeed As Integer '下落速度Dim sString As Integer '下落的字符Private Sub huanyuan()RandomizeWith Label1 .AutoSize = True .Left = Int(Rnd * (Me.Width - Label1.Width)) .Top = 0End WithsString = 97 + Int(Rnd * 26)Label1.Caption = Chr(sString)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii = sString Then Call huanyuanEnd IfEnd SubPrivate Sub Form_Load()Me.Width = 6000Me.Height = 6000Timer1.Interval = 100nDownspeed = 50Call huanyuanLabel1.FontSize = 23End SubPrivate Sub Timer1_Timer()If Label1.Top