这是我自己做的有代码、工程文件，你可以留下邮箱，我给你发
PubliciAsInteger
PublicjAsInteger
PublicmmAsInteger
PrivateSubCommand1_Click()
i=i+1
Text1=i
Command1.Visible=False
EndSub
PrivateSubCommand2_Click()
i=i+1
Text1=i
Command2.Visible=False
EndSub
PrivateSubCommand3_Click()
i=i+1
Text1=i
Command3.Visible=False
EndSub
PrivateSubCommand4_Click()
i=i+1
Text1=i
Command4.Visible=False
EndSub
PrivateSubCommand5_Click()
i=i+1
Text1=i
Command5.Visible=False
EndSub
PrivateSubCommand6_Click()
i=i+1
Text1=i
Command6.Visible=False
EndSub
PrivateSubImage1_Click()
i=i+1
Text1=i
Image1.Visible=False
EndSub
PrivateSubCommand7_Click()
Timer1.Enabled=True
Timer2.Enabled=True
Timer3.Enabled=True
Label4.Visible=False
mm=0
i=0
Text1=0
EndSub
PrivateSubForm_Load()
j=600
Label3.Caption=最易
Label4.Visible=False
Timer1.Enabled=False
Timer2.Enabled=False
Timer3.Enabled=False
EndSub
PrivateSubTimer1_Timer()
DimxAsInteger
IfCommand1.Top<=3000Then
x=Command1.Top
Command1.Top=x+j*Rnd
ElseIfCommand1.Top>3000Then
Command1.Visible=True
Command1.Left=3000*Rnd
Command1.Top=0
x=Command1.Top
Command1.Top=x+j*Rnd
EndIf
IfCommand2.Top<=3000Then
x=Command2.Top
Command2.Top=x+j*Rnd
Else
Command2.Visible=True
Command2.Left=3000*Rnd
Command2.Top=0
x=Command2.Top
Command2.Top=x+j*Rnd
EndIf
IfCommand3.Top<=3000Then
x=Command3.Top
Command3.Top=x+j*Rnd
Else
Command3.Visible=True
Command3.Left=3000*Rnd
Command3.Top=0
x=Command3.Top
Command3.Top=x+j*Rnd
EndIf
IfCommand4.Top<=3000Then
x=Command4.Top
Command4.Top=x+j*Rnd
Else
Command4.Visible=True
Command4.Left=3000*Rnd
Command4.Top=0
x=Command4.Top
Command4.Top=x+j*Rnd
EndIf
IfCommand1.Top<=3000Then
x=Command5.Top
Command5.Top=x+j*Rnd
Else
Command5.Visible=True
Command5.Left=3000*Rnd
Command5.Top=0
x=Command5.Top
Command5.Top=x+j*Rnd
EndIf
IfCommand1.Top<=3000Then
x=Command6.Top
Command6.Top=x+j*Rnd
Else
Command6.Visible=True
Command6.Left=3000*Rnd
Command6.Top=0
x=Command6.Top
Command6.Top=x+j*Rnd
EndIf
EndSub
PrivateSubTimer2_Timer()
DimmAsInteger
DimnAsInteger
m=Dialog.Text1
Command1.Visible=False
Command2.Visible=False
Command3.Visible=False
Command4.Visible=False
Command5.Visible=False
Command6.Visible=False
Timer1.Enabled=False
Timer2.Enabled=False
Timer3.Enabled=False
Label4.Visible=True
Label4.Caption=速度:&m&Chr(13)&Chr(10)&难度:&Label3.Caption&Chr(13)&Chr(10)&杀猪数:&Text1
EndSub
PrivateSubTimer3_Timer()
DimkkAsInteger
mm=mm+1
kk=mm/10
Label5.Caption=kk
EndSub
PrivateSub极难_Click()
j=3000
Label3.Caption=极难
EndSub
PrivateSub开局_Click()
Timer1.Enabled=True
Timer2.Enabled=True
Timer3.Enabled=True
Label4.Visible=False
mm=0
i=0
Text1=0
EndSub
PrivateSub困难_Click()
j=2400
Label3.Caption=困难
EndSub
PrivateSub容易_Click()
j=1200
Label3.Caption=容易
EndSub
PrivateSub退出_Click()
End
EndSub
PrivateSub中等_Click()
j=1800
Label3.Caption=中等
EndSub
PrivateSub自定义_Click()
Dialog.Visible=True
EndSub
PrivateSub最易_Click()
j=600
Label3.Caption=最易
EndSub
