vb小游戏制作.docVIP

Vb制作小游戏 一、射击游戏 Option Explicit Dim RandX As Single Dim RandY As Single Dim Score As Single Dim Thisscore As Single Dim Average As Single Dim Shot As Integer Dim Appear As Boolean Dim Distance As Single Private Sub Command1_Click() Timer1.Enabled = True Command3.Enabled = True If Command1.Enabled = True Then Command3.Caption = 暂停 End If Command4.Enabled = True End Sub Private Sub Command2_Click() If Command4.Enabled = True Then MsgBox 请先结束游戏, 48, 警告 Else End End If End Sub Private Sub Command3_Click() Command1.Enabled = False Command3.Caption = 继续 Timer1.Enabled = No