《大富翁源代码.doc》由会员分享，可在线阅读，更多相关《大富翁源代码.doc（16页珍藏版）》请在金锄头文库上搜索。
1、大富翁源代码.txt有没有人像我一样在听到某些歌的时候会忽然想到自己的往事_如果我能回到从前，我会选择不认识你。不是我后悔，是我不能面对没有你的结局。Dim a As Integer, p1 As String, p2 As String, zk As Boolean, kj As Boolean, jz As BooleanDim gongcun1 As Boolean, gongcun2 As Boolean, gongcun3 As Boolean, fakuan As BooleanDim b As Integer, e As Integer, c As Integer, s As I
2、ntegerDim land As Integer, police As Integer, shop As Integer, rest As IntegerDim money As Integer, net As Integer, good As Integer, jianyu1 As Integer, jianyu2 As Integer, jianyu3 As Integer, caipiao As IntegerDim suiji As Integer, suiji100 As Integer, suim As IntegerPrivate Sub Command1_Click()p1
3、= InputBox$(玩家一选择：, 人物选择)p2 = InputBox$(玩家二选择：, 人物选择)Select Case p1 Case Is = 章家骐 Image1(0).Visible = True: Image4(0).Visible = True: Case Is = 科比 Image2(0).Visible = True: Image4(1).Visible = True: Case Is = 打酱油的 Image3(0).Visible = True: Image4(2).Visible = True: Label4(0).Left = 14400: Label4(0).
4、Top = 6720: Label4(1).Left = 14400: Label4(1).Top = 2880End SelectSelect Case p2 Case Is = 章家骐 Image1(0).Visible = True: Image5(0).Visible = True: Label4(0).Left = 14400: Label4(0).Top = 6720: Label4(1).Left = 14400: Label4(1).Top = 2880 Case Is = 科比 Image2(0).Visible = True: Image5(1).Visible = Tru
5、e Case Is = 打酱油的 Image3(0).Visible = True: Image5(2).Visible = TrueEnd SelectIf Image1(0).Visible = True And Image2(0).Visible = True Then gongcun1 = TrueElseIf Image2(0).Visible = True And Image3(0).Visible = True Then gongcun2 = TrueElseIf Image3(0).Visible = True And Image1(0).Visible = True Then
6、 gongcun3 = TrueEnd IfCommand2.Visible = TrueCommand1.Visible = FalseEnd SubPrivate Sub Command2_Click()Label1.Visible = Trueagain:Randomizepolice = Int(Rnd * 13) + 1shop = Int(Rnd * 19) + 1caipiao = Int(Rnd * 19) + 1rest = Int(Rnd * 19) + 1 Label2(caipiao).BackColor = &HC0C000: Label2(caipiao).Capt
7、ion = 随机 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 = FalseCommand2.Visible = FalseIf gongcun1 = True Then
8、End SubPrivate Sub Form_Load()Command2.Visible = FalseLabel6.Visible = FalseFor i = 0 To 19 Image1(i).Visible = False Image2(i).Visible = False Image3(i).Visible = False Label2(i).BackColor = vbGreen Label2(i).Caption = 空地 Label2(i).FontSize = 30Next iLabel2(0).Caption = 休息站Timer1.Enabled = FalseTim
9、er1.Interval = 10Timer2.Enabled = FalseTimer3.Enabled = FalseLabel1.Visible = Falses = 0: c = 0: jianyu1 = 0: jianyu2 = 0: jianyu3 = 0For i = 0 To 2 Image4(i).Visible = False Image5(i).Visible = False Image6(i).Visible = FalseNext iEnd SubPrivate Sub Label1_Click()If Image1(0).Visible = True And Ima
10、ge2(0).Visible = True Then gongcun1 = TrueElseIf Image2(0).Visible = True And Image3(0).Visible = True Then gongcun2 = TrueElseIf Image3(0).Visible = True And Image1(0).Visible = True Then gongcun3 = TrueEnd IfTimer1.Enabled = Not (Timer1.Enabled) If Timer1.Enabled = False ThenIf Image6(0).Visible =
11、 True Then jianyu1 = jianyu1 + 1If Image6(1).Visible = True Then jianyu2 = jianyu2 + 1If Image6(2).Visible = True Then jianyu3 = jianyu3 + 1 If gongcun1 = True Then zjq kobe If zk = False Then b = s + a For i = 0 To 19 If Image1(i).Visible = True Then Image1(i).Visible = False If b 5 Then b = police
12、 + a End If End If Next i zk = True Else e = c + a For i = 0 To 19 If Image2(i).Visible = True Then Image2(i).Visible = False If e 5 Then e = police + a End If End If Next i zk = False End Ifkobe jiangyou ElseIf gongcun2 = True Then If kj = False Then b = s + a For i = 0 To 19 If Image3(i).Visible = True Then Image3(i).Visible = False If b 20 Then Image3(b).Visible = True s = b Else: Image3(b - 20).Visible = True s = b - 20 qidian = MsgBox(经过起点+1500, vbOKOnly, 起点) If qidian = 1 Then Label4(1).Caption = Label4(1).
