资源描述:
《大富翁源代码》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、大富翁源代码.txt有没有人像我一样在听到某些歌的时候会忽然想到自己的往事_______如果我能回到从前,我会选择不认识你。不是我后悔,是我不能面对没有你的结局。DimaAsInteger,p1AsString,p2AsString,zkAsBoolean,kjAsBoolean,jzAsBooleanDimgongcun1AsBoolean,gongcun2AsBoolean,gongcun3AsBoolean,fakuanAsBooleanDimbAsInteger,eAsInteger,cAsInteger,sAsIntegerDimland
2、AsInteger,policeAsInteger,shopAsInteger,restAsIntegerDimmoneyAsInteger,netAsInteger,goodAsInteger,jianyu1AsInteger,jianyu2AsInteger,jianyu3AsInteger,caipiaoAsIntegerDimsuijiAsInteger,suiji100AsInteger,suimAsIntegerPrivateSubCommand1_Click()p1=InputBox$("玩家一选择:","人物选择")p2=Input
3、Box$("玩家二选择:","人物选择")SelectCasep1CaseIs="章家骐"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)
4、.Top=2880EndSelectSelectCasep2CaseIs="章家骐"Image1(0).Visible=True:Image5(0).Visible=True:Label4(0).Left=14400:Label4(0).Top=6720:Label4(1).Left=14400:Label4(1).Top=2880CaseIs="科比"Image2(0).Visible=True:Image5(1).Visible=TrueCaseIs="打酱油的"Image3(0).Visible=True:Image5(2).Visible=
5、TrueEndSelectIfImage1(0).Visible=TrueAndImage2(0).Visible=TrueThengongcun1=TrueElseIfImage2(0).Visible=TrueAndImage3(0).Visible=TrueThengongcun2=TrueElseIfImage3(0).Visible=TrueAndImage1(0).Visible=TrueThengongcun3=TrueEndIfCommand2.Visible=TrueCommand1.Visible=FalseEndSubPriv
6、ateSubCommand2_Click()Label1.Visible=Trueagain:Randomizepolice=Int(Rnd*13)+1shop=Int(Rnd*19)+1caipiao=Int(Rnd*19)+1rest=Int(Rnd*19)+1Label2(caipiao).BackColor=&HC0C000:Label2(caipiao).Caption="随机"Label2(shop).BackColor=vbRed:Label2(shop).Caption="商店"Label2(police).BackColor=vb
7、Black:Label2(police).Caption="警局":Label2(police).ForeColor=vbWhiteLabel2(rest).BackColor=&H8000000F:Label2(rest).Caption="休息"Command1.Visible=FalseCommand2.Visible=False'Ifgongcun1=TrueThenEndSubPrivateSubForm_Load()Command2.Visible=FalseLabel6.Visible=FalseFori=0To19Image1(i)
8、.Visible=FalseImage2(i).Visible=FalseImage3(i).Visible=FalseL