資源描述：
《大富翁源代碼》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、大富翁源代碼.txt有沒(méi)有人像我一樣在聽(tīng)到某些歌的時(shí)候會(huì)忽然想到自己的往事_______如果我能回到從前，我會(huì)選擇不認(rèn)識(shí)你。不是我后悔，是我不能面對(duì)沒(méi)有你的結(jié)局。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="隨機(jī)"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
