大富翁 c语言源码论坛,大富翁源代码.doc

大富翁源代码

大富翁源代码

Dim gongcun1 As Boolean, gongcun2 As Boolean, gongcun3 As Boolean, fakuan As Boolean

Dim b As Integer, e As Integer, c As Integer, s As Integer

Dim land As Integer, police As Integer, shop As Integer, rest As Integer

Dim money As Integer, net As Integer, good As Integer, jianyu1 As Integer, jianyu2 As Integer, jianyu3 As Integer, caipiao As Integer

Dim suiji As Integer, suiji100 As Integer, suim As Integer

Private Sub Command1_Click()

p1 = 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).Top = 6720: Label4(1).Left = 14400: Label4(1).Top = 2880

End Select

Select 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 = True

Case Is = "打酱油的"

Image3(0).Visible = True: Image5(2).Visible = True

End Select

If Image1(0).Visible = True And Image2(0).Visible = True Then

gongcun1 = True

ElseIf Image2(0).Visible = True And Image3(0).Visible = True Then

gongcun2 = True

ElseIf Image3(0).Visible = True And Image1(0).Visible = True Then

gongcun3 = True

End If

Command2.Visible = True

Command1.Visible = False

End Sub

Private Sub Command2_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.Visib