vb拍蚊子游戏代码

《vb拍蚊子游戏代码》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、DimcAsInteger'记录已打死蚊子个数DimrAsIntegerDimfAsInteger'标记蚊子飞行方向DimsAsInteger'倒计时秒数DimbAsIntegerSubinit()'f=1's=60Image1.Left=-700EndSubPrivateSubForm_Load()f=1s=60b=0Image1.Enabled=TrueImage2.Enabled=FalseImage2.Visible=FalseTimer2.Enabled=FalseWithImage1.Left=0.Top=

2、3000EndWithWithImage2.Left=form1.Width.Top=3000EndWithTimer1.Interval=50Timer2.Interval=50RandomizeEndSubPrivateSubImage1_Click()Image1.Visible=FalseWithImage1.Left=0.Top=3000EndWithWithImage2.Left=form1.Width.Top=3000EndWithTimer1.Enabled=TrueTimer2.Enabled=Fal

3、sec=c+1Label4.Caption=cf=1EndSubPrivateSubImage2_Click()Image2.Visible=Falsef=1WithImage1.Left=0.Top=3000.Height=700.Width=700EndWithWithImage2.Left=form1.Width.Top=3000.Height=700.Width=700EndWithTimer1.Enabled=TrueTimer2.Enabled=Falsec=c+1Label4.Caption=cEndSu

4、bPrivateSubTimer1_Timer()'控制向右飞Iff=2ThenImage2.Enabled=FalseImage2.Visible=FalseImage1.Enabled=TrueImage1.Visible=TrueImage1.Top=Image2.TopImage1.Left=Image2.LeftImage1.Height=Image2.Height-50Image1.Width=Image2.Width-50EndIff=1Image1.Visible=TrueIfImage1.Left<(

5、form1.ScaleWidth-Image1.Width)ThenImage1.Left=Image1.Left+100r=Int((Rnd*2)+1)SelectCaserCase1:Image1.Top=Image1.Top+100Case2:Image1.Top=Image1.Top-100EndSelectEndIfIfImage1.Left>=(form1.ScaleWidth-Image1.Width)ThenTimer1.Enabled=FalseTimer2.Enabled=TrueEndIfEndS

6、ubPrivateSubTimer2_Timer()'控制向左飞Iff=1ThenImage1.Enabled=FalseImage1.Visible=FalseImage2.Enabled=TrueImage2.Visible=TrueImage2.Top=Image1.TopImage2.Left=Image1.LeftImage2.Height=Image1.Height-50Image2.Width=Image1.Width-50EndIff=2Image2.Enabled=TrueIfImage2.Left>

7、0ThenImage2.Left=Image2.Left-100r=Int((Rnd*2)+1)SelectCaserCase1:Image2.Top=Image1.Top+100Case2:Image2.Top=Image1.Top-100EndSelectEndIfIfImage2.Left<=0ThenTimer2.Enabled=FalseTimer1.Enabled=TrueEndIfEndSubPrivateSubTimer3_Timer()'倒计时s=s-1Label2.Caption=sIfs<0The

8、nIfc>=20ThenMsgBox"恭喜你完成任务！",0,"结果"Timer1.Enabled=FalseTimer2.Enabled=FalseTimer3.Enabled=FalseElseMsgBox"对不起，时间已到！你输了！",0,"结果"Timer1.Enabled=FalseTimer2.Enabled=Fals