大富翁源代码.docx
- 文档编号:18568230
- 上传时间:2023-08-19
- 格式:DOCX
- 页数:23
- 大小:16.98KB
大富翁源代码.docx
《大富翁源代码.docx》由会员分享,可在线阅读,更多相关《大富翁源代码.docx(23页珍藏版)》请在冰点文库上搜索。
大富翁源代码
DimaAsInteger,p1AsString,p2AsString,zkAsBoolean,kjAsBoolean,jzAsBoolean
Dimgongcun1AsBoolean,gongcun2AsBoolean,gongcun3AsBoolean,fakuanAsBoolean
DimbAsInteger,eAsInteger,cAsInteger,sAsInteger
DimlandAsInteger,policeAsInteger,shopAsInteger,restAsInteger
DimmoneyAsInteger,netAsInteger,goodAsInteger,jianyu1AsInteger,jianyu2AsInteger,jianyu3AsInteger,caipiaoAsInteger
DimsuijiAsInteger,suiji100AsInteger,suimAsInteger
PrivateSubCommand1_Click()
p1=InputBox$("Íæ¼ÒһѡÔñ£º","ÈËÎïÑ¡Ôñ")
p2=InputBox$("Íæ¼Ò¶þÑ¡Ôñ£º","ÈËÎïÑ¡Ôñ")
SelectCasep1
CaseIs="Õ¼Òæë"
Image1(0).Visible=True:
Image4(0).Visible=True:
CaseIs="¿Æ±È"
Image2(0).Visible=True:
Image4
(1).Visible=True:
CaseIs="´ò½´Ó͵Ä"
Image3(0).Visible=True:
Image4
(2).Visible=True:
Label4(0).Left=14400:
Label4(0).Top=6720:
Label4
(1).Left=14400:
Label4
(1).Top=2880
EndSelect
SelectCasep2
CaseIs="Õ¼Òæë"
Image1(0).Visible=True:
Image5(0).Visible=True:
Label4(0).Left=14400:
Label4(0).Top=6720:
Label4
(1).Left=14400:
Label4
(1).Top=2880
CaseIs="¿Æ±È"
Image2(0).Visible=True:
Image5
(1).Visible=True
CaseIs="´ò½´Ó͵Ä"
Image3(0).Visible=True:
Image5
(2).Visible=True
EndSelect
IfImage1(0).Visible=TrueAndImage2(0).Visible=TrueThen
gongcun1=True
ElseIfImage2(0).Visible=TrueAndImage3(0).Visible=TrueThen
gongcun2=True
ElseIfImage3(0).Visible=TrueAndImage1(0).Visible=TrueThen
gongcun3=True
EndIf
Command2.Visible=True
Command1.Visible=False
EndSub
PrivateSubCommand2_Click()
Label1.Visible=True
again:
Randomize
police=Int(Rnd*13)+1
shop=Int(Rnd*19)+1
caipiao=Int(Rnd*19)+1
rest=Int(Rnd*19)+1
Label2(caipiao).BackColor=&HC0C000:
Label2(caipiao).Caption="Ëæ»ú"
Label2(shop).BackColor=vbRed:
Label2(shop).Caption="É̵ê"
Label2(police).BackColor=vbBlack:
Label2(police).Caption="¾¯¾Ö":
Label2(police).ForeColor=vbWhite
Label2(rest).BackColor=&H8000000F:
Label2(rest).Caption="ÐÝÏ¢"
Command1.Visible=False
Command2.Visible=False
'Ifgongcun1=TrueThen
EndSub
PrivateSubForm_Load()
Command2.Visible=False
Label6.Visible=False
Fori=0To19
Image1(i).Visible=False
Image2(i).Visible=False
Image3(i).Visible=False
Label2(i).BackColor=vbGreen
Label2(i).Caption="¿ÕµØ"
Label2(i).FontSize=30
Nexti
Label2(0).Caption="ÐÝÏ¢Õ¾"
Timer1.Enabled=False
Timer1.Interval=10
Timer2.Enabled=False
Timer3.Enabled=False
Label1.Visible=False
s=0:
c=0:
jianyu1=0:
jianyu2=0:
jianyu3=0
Fori=0To2
Image4(i).Visible=False
Image5(i).Visible=False
Image6(i).Visible=False
Nexti
EndSub
PrivateSubLabel1_Click()
IfImage1(0).Visible=TrueAndImage2(0).Visible=TrueThen
gongcun1=True
ElseIfImage2(0).Visible=TrueAndImage3(0).Visible=TrueThen
gongcun2=True
ElseIfImage3(0).Visible=TrueAndImage1(0).Visible=TrueThen
gongcun3=True
EndIf
Timer1.Enabled=Not(Timer1.Enabled)
IfTimer1.Enabled=FalseThen
IfImage6(0).Visible=TrueThenjianyu1=jianyu1+1
IfImage6
(1).Visible=TrueThenjianyu2=jianyu2+1
IfImage6
(2).Visible=TrueThenjianyu3=jianyu3+1
Ifgongcun1=TrueThen'zjqkobe
Ifzk=FalseThen
b=s+a
Fori=0To19
IfImage1(i).Visible=TrueThen
Image1(i).Visible=False
Ifb<20Then
Image1(b).Visible=True
s=b
Else:
Image1(b-20).Visible=True
s=b-20
qidian=MsgBox("¾¹ýÆðµã+1500",vbOKOnly,"Æðµã")
Ifqidian=1ThenLabel4(0).Caption=Label4(0).Caption+1500
Ifjianyu1>5Thenb=police+a
EndIf
EndIf
Nexti
zk=True
Else
e=c+a
Fori=0To19
IfImage2(i).Visible=TrueThen
Image2(i).Visible=False
Ife<20Then
Image2(e).Visible=True
c=e
Else:
Image2(e-20).Visible=True
c=e-20
qidian=MsgBox("¾¹ýÆðµã+1500",vbOKOnly,"Æðµã")
Ifqidian=1ThenLabel4
(1).Caption=Label4
(1).Caption+1500
Ifjianyu2>5Thene=police+a
EndIf
EndIf
Nexti
zk=False
EndIf
''''''''''''''''''''''''''''''''''''''''''''''''''''''kobejiangyou
ElseIfgongcun2=TrueThen
Ifkj=FalseThen
b=s+a
Fori=0To19
IfImage3(i).Visible=TrueThen
Image3(i).Visible=False
Ifb<20Then
Image3(b).Visible=True
s=b
Else:
Image3(b-20).Visible=True
s=b-20
qidian=MsgBox("¾¹ýÆðµã+1500",vbOKOnly,"Æðµã")
Ifqidian=1ThenLabel4
(1).Caption=Label4
(1).Caption+1500
Ifjianyu3>5Thenb=police+a
EndIf
EndIf
Nexti
kj=True
Else
e=c+a
Fori=0To19
IfImage2(i).Visible=TrueThen
Image2(i).Visible=False
Ife<20Then
Image2(e).Visible=True
c=e
Else:
Image2(e-20).Visible=True
c=e-20
qidian=MsgBox("¾¹ýÆðµã+1500",vbOKOnly,"Æðµã")
Ifqidian=1ThenLabel4(0).Caption=Label4(0).Caption+1500
Ifjianyu2>5Thene=police+a
EndIf
EndIf
Nexti
kj=False
EndIf
'''''''''''''''''''''''''''''''''''''''''''''''''''''''jiangyouzjq
ElseIfgongcun3=TrueThen
Ifjz=FalseThen
b=s+a
Fori=0To19
IfImage1(i).Visible=TrueThen
Image1(i).Visible=False
Ifb<20Then
Image1(b).Visible=True
s=b
Else:
Image1(b-20).Visible=True
s=b-20
qidian=MsgBox("¾¹ýÆðµã+1500",vbOKOnly,"Æðµã")
Ifqidian=1ThenLabel4(0).Caption=Label4(0).Caption+1500
Ifjianyu1>5Thenb=police+a
EndIf
EndIf
Nexti
jz=True
Else
e=c+a
Fori=0To19
IfImage3(i).Visible=TrueThen
Image3(i).Visible=False
Ife<20Then
Image3(e).Visible=True
c=e
Else:
Image3(e-20).Visible=True
c=e-20
qidian=MsgBox("¾¹ýÆðµã+1500",vbOKOnly,"Æðµã")
Ifqidian=1ThenLabel4
(1).Caption=Label4
(1).Caption+1500
Ifjianyu3>5Thene=police+a
EndIf
EndIf
Nexti
jz=False
EndIf
EndIf
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ÓÎÏ·¹¦ÄÜ
'·£¿îÏîÄ¿
Timer2.Enabled=True
EndIf
EndSub
PrivateSubLabel6_Click()
Label1.Visible=False
Timer3.Enabled=Not(Timer3.Enabled)
IfTimer3.Enabled=FalseThen'Ëæ»ú
suim=MsgBox("Ôö¼Ó½ðÇ®"&suiji100,,"Ëæ»ú")
Ifsuim=1Then
Ifgongcun1=TrueThen
Ifzk=TrueThen
Label4(0).Caption=Label4(0).Caption+suiji100
Else
Label4
(1).Caption=Label4
(1).Caption+suiji100
EndIf
ElseIfgongcun2=TrueThen
Ifkj=FalseThen
Label4(0).Caption=Label4(0).Caption+suiji100
Else
Label4
(1).Caption=Label4
(1).Caption+suiji100
EndIf
ElseIfgongcun3=TrueThen
Ifjz=TrueThen
Label4(0).Caption=Label4(0).Caption+suiji100
Else
Label4
(1).Caption=Label4
(1).Caption+suiji100
EndIf
EndIf
EndIf
Label6.Caption=""
Label6.Visible=False
Label1.Visible=True
EndIf
EndSub
PrivateSubLabel8_Click()'·µ»Ø
Forr=0To19
Image1(r).Visible=False:
Image2(r).Visible=False:
Image3(r).Visible=False
Label2(r).BackColor=vbGreen:
Label2(r).FontSize=30:
Label2(r).Caption="¿ÕµØ":
Label2(r).ForeColor=vbBlack
Nextr
Forr=0To1
Label4(r).Caption="12000"
Nextr
Forr=0To2
Image4(r).Visible=False
Image5(r).Visible=False
Image6(r).Visible=False
Nextr
Command1.Visible=True
Label1.Caption=""
Form4.Visible=False
Form2.Visible=True
EndSub
PrivateSubLabel9_Click()
End
EndSub
PrivateSubTimer1_Timer()
Randomize
a=Int(Rnd*6)+1
Label1.Caption=a
EndSub
PrivateSubTimer2_Timer()
'³ö¼àÓü
Ifjianyu1>5ThenImage1(police+a).Visible=True:
Image6(0).Visible=False:
jianyu1=0
Ifjianyu2>5ThenImage2(police+a).Visible=True:
Image6
(1).Visible=False:
jianyu2=0
Ifjianyu3>5ThenImage3(police+a).Visible=True:
Image6
(2).Visible=False:
jianyu3=0
Ifgongcun1=TrueThen
Ifzk=TrueThen
Fori=1To19
IfImage1(i).Visible=TrueThen
IfLabel2(i).BackColor=vbYellowOrLabel2(i).BackColor=vbWhiteThen'´³ÃñÕ¬
money=MsgBox("˽´³ÃñÕ¬--·£¿î1000",vbOKOnly,"±ðÈ˵ļÒ")'Ö÷È˽ðÇ®
Label4(0).Caption=Label4(0).Caption-1000
Label4
(1).Caption=Label4
(1).Caption+1000
ElseIfLabel2(i).BackColor=vbBlackThen'¾¯¾Ö
net=MsgBox("½øÍø°ÉÍæÕ¼ÒæëµÄÓÎÏ·£¬±»´øµ½¾¯²ì¾Ö",,"¾¯¾Ö")'ʱ¼ä
Image6(0).Visible=True:
Image1(police).Visible=False:
jianyu=0
ElseIfLabel2(i).BackColor=vbRedThen'É̵ê
good=MsgBox("È¥É̵êÂò¶«Î÷¡»¨·Ñ500",,"ºÚµê")
Label4(0).Caption=Label4(0).Caption-500
ElseIfLabel2(i).BackColor=&HC0C000ThenLabel6.Visible=True'³öÏÖËæ»ú
EndIf
''''''''''''''''''''
Forj=1To19
'ÍÁµØÂòÂô
IfImage1(j).Visible=TrueThen
IfLabel2(j).BackColor=vbGreenThen
land=MsgBox("ÄúÒªÂòÏÂÕâ¿éµØÂ𣿽ð¶î3000",vbOKCancel,"ÍÁµØÂòÂô")
Ifland=1Then
IfImage1(j).Visible=TrueThenLabel2(j).BackColor=vbBlue:
Label2(j).Caption="Õ¼ÒæëÎÂÜ°µÄСÎÝ":
Label2(j).FontSize=25:
Label4(0).Caption=Label4(0).Caption-3000
'IfImage2(j).Visible=TrueThenLabel2(j).BackColor=vbYellow:
Label2(j).Caption="¿Æ±ÈµÄ±ðÊû":
Label2(j).FontSize=25:
Label4(0).Caption=Label4(0).Caption-3000
'IfImage3(j).Visible=TrueThenLabel2(j).BackColor=vbWhite:
Label2(j).Caption="½´ÓÍÎÝ":
Label2(j).FontSize=30:
Label4(0).Caption=Label4(0).Caption-3000
EndIf
EndIf
EndIf
Nextj
'''''''''''''''''''''''''''''''''''''''''''''''
EndIf
Nexti
Else
Fori=1To19
IfImage2(i).Visible=TrueThen
IfLabel2(i).BackColor=vbBlueOrLabel2(i).BackColor=vbWhiteThen
money=MsgBox("˽´³ÃñÕ¬--·£¿î1000",vbOKOnly,"±ðÈ˵ļÒ")'Ö÷È˽ðÇ®
Label4
(1).Caption=Label4
(1).Caption-1000
Label4(0).Caption=Label4(0).Caption+1000
ElseIfLabel2(i).BackColor=vbBlackThen
net=MsgBox("½øÍø°ÉÍæÕ¼ÒæëµÄÓÎÏ·£¬±»´øµ½¾¯²ì¾Ö",,"¾¯¾Ö")'ʱ¼
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 大富翁 源代码