飞机大战程序代码.pptxVIP

飞机大战;目录;;游戏规则及说明;按键作用;界面设计;界面设计;代码;Form2 Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Integer Dim f1 As Integer Dim f2 As Boolean Dim f3 As Integer Private Sub C1_Click() Text1.SetFocus End Sub Private Sub C2_Click() Text1.SetFocus End Sub Private Sub Form_Activate() Text1.SetFocus End Sub Private Sub Form_Click() If Label6.Visible = False Then If f3 0 Then L1.Visible = True Timer1.Enabled = True f3 = f3 - 1 Label5.Caption = f3 End If End If End Sub;Text1.Text = Text1.SetFocus ElseIf KeyAscii = Asc(e) Then End ElseIf KeyAscii = Asc(w) Then C2.Top = C2.Top - 250 L1.Y2 = C2.Top L1.Y1 = C2.Top - 840 If C2.Top 0 Then C2.Top = 0 End If ElseIf KeyAscii = Asc(r) Then Call GAMESTART ElseIf KeyAscii = Asc(s) Then C2.Top = C2.Top + 250 L1.Y2 = C2.Top L1.Y1 = C2.Top - 840 If C2.Top + C2.Height form1.Height Then C2.Top = form1.Height - C2.Height End If ElseIf KeyAscii = Asc(l) Then Form_Click ElseIf KeyAscii = Asc(y) Then f3 = f3 + 1 Label5.Caption = f3 ElseIf KeyAscii = Asc(o) Then e = e + 1 Label3.Caption = e If C2.Top + C2.Height form1.ScaleHeight Then C2.Top = form1.ScaleHeight - C2.Height End If End If End Sub;L1.Y1 = C2.Top - 840 L1.Y2 = C2.Top L1.X1 = C2.Left + C2.Width / 2 L1.X2 = C2.Left + C2.Width / 2 f2 = True Timer1.Enabled = False End If End Sub Private Sub Timer2_Timer() Randomize f1 = Int(((form1.ScaleWidth - L6.Width) * Rnd)) If f1 Mod 2 = 0 Then C1.Left = C1.Left + 300 If C1.Left + C1.Width / 2 = form1.ScaleWidth Then C1.Left = 0 End If Else C1.Left = C1.Left - 300 If C1.Left + C1.Width 0 Then C1.Left = form1.ScaleWidth - C1.Width End If End If End Sub;Timer4.Enabled = False f3 = f3 + 1 Label5.Caption = f3 L1.Visible = True End If If L6.Top - L6.Height form1.ScaleHeight Then If f3 = 0 Then Call GAMEOVER End If L6.Visible = False Timer4.Enabled = False End If End Sub Sub GAMEOVER() Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = False L1.Visible = False Label6.Visible = True Label6.Caption = GAME OVER C2.Visi