用vb做一个简单的射击游戏OptionExplicitDimRandXAsSingleDimRandYAsSingleDimScoreAsSingleDimThisscoreAsSingleDimAverageAsSingleDimShotAsIntegerDimAppearAsBooleanDimDistanceAsSinglePrivateSubCommand1_Click()Timer1.Enabled=TrueCommand3.Enabled=TrueIfCommand1.Enabled=TrueThenCommand3.Caption="