form1.frm

大富翁游戏的源代码.zip

   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "筒一超商1800"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   1
      Left            =   1320
      TabIndex        =   1
      Tag             =   "1800"
      Top             =   720
      Width           =   855
   End
   Begin VB.Shape Shape1 
      FillColor       =   &H00C0C0FF&
      FillStyle       =   0  'Solid
      Height          =   1095
      Index           =   1
      Left            =   1200
      Top             =   120
      Width           =   1095
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "由此去得2000"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   0
      Left            =   240
      TabIndex        =   0
      Tag             =   "0"
      Top             =   720
      Width           =   855
   End
   Begin VB.Shape Shape1 
      FillColor       =   &H0000C000&
      FillStyle       =   0  'Solid
      Height          =   1095
      Index           =   0
      Left            =   120
      Top             =   120
      Width           =   1095
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'资料整理：VB编程乐园　http://www.vbeden.com
'VB小富翁 简易范例

Dim PlayerMoney As Long
Dim ComputerMoney As Long
Dim PlayerPos As Byte
Dim ComputerPos As Byte

Private Sub CmdPlay_Click()
    CmdPlay.Enabled = False
    Command1.Enabled = False
        
    Randomize

'玩家

    PlayerPos = PlayerPos + Int(Rnd * 4) + 1
    If PlayerPos > 19 Then
        PlayerPos = PlayerPos - 19
        MsgBox "经过由此去，玩家得2000", 64
        PlayerMoney = PlayerMoney + 2000
    End If
    CmdPlayer.Move Shape1(PlayerPos).Left, Shape1(PlayerPos).Top
    
    If Shape1(PlayerPos).Tag = "" And Val(Label1(PlayerPos).Tag) > 100 Then
        R = MsgBox("请问玩家！你要买下" & Label1(PlayerPos).Caption & "吗？", vbQuestion + vbYesNo)
        If R = vbYes Then
            Shape1(PlayerPos).Tag = "p"
            PlayerMoney = PlayerMoney - Val(Label1(PlayerPos).Tag)
        End If
    End If
    
    If Shape1(PlayerPos).Tag = "c" Then
        MsgBox Label1(PlayerPos).Caption & "是电脑的，所以玩家要付钱给电脑", 64
        PlayerMoney = PlayerMoney - Val(Label1(PlayerPos).Tag)
        ComputerMoney = ComputerMoney + Val(Label1(PlayerPos).Tag)
    End If
    
    If Label1(PlayerPos).Tag = "1" Then
        R = Int(Rnd * 9)
        If R = 0 Then
            MsgBox "遇到流氓，向玩家收保护费1000元", 16
            PlayerMoney = PlayerMoney - 1000
        End If
        If R = 5 Then
            MsgBox "遇到流氓，向玩家收保护费5000元", 16
            PlayerMoney = PlayerMoney - 5000
        End If
    End If
    If Label1(PlayerPos).Tag = "2" Then
        MsgBox "休息站，向玩家收费1000元", 16
        PlayerMoney = PlayerMoney - 1000
        If Int(Rnd * 2) = 1 Then
            MsgBox "玩家买名产，花掉300元", 16
            PlayerMoney = PlayerMoney - 3000
        End If
        If Int(Rnd * 10) = 7 Then
            MsgBox "玩家住五星级饭店，花掉10000元", 16
            PlayerMoney = PlayerMoney - 10000
        End If
    End If
    If Label1(PlayerPos).Tag = "3" Then
        R = Int(Rnd * 6)
        If R = 0 Then
            MsgBox "下相棋输给老阿公，老阿公向玩家收2000元", 16
            PlayerMoney = PlayerMoney - 2000
        End If
        If R = 5 Then
            MsgBox "摆地铺，玩家赚到1500元", 64
            PlayerMoney = PlayerMoney + 1500
        End If
    End If
    If Label1(PlayerPos).Tag = "4" Then
        Select Case Int(Rnd * 7)
            Case 0
                MsgBox "玩家掉入水沟，医药费1500元", 16
                PlayerMoney = PlayerMoney - 1500
            Case 1
                MsgBox "玩家被扒走3000元", 16
                PlayerMoney = PlayerMoney - 3000
            Case 2
                MsgBox "玩家被骗走2000元", 16
                PlayerMoney = PlayerMoney - 2000
            Case 3
                MsgBox "玩家发票中奖共得5000元", 64
                PlayerMoney = PlayerMoney + 5000
            Case 4
                MsgBox "玩家中彩卷共得10000元", 64
                PlayerMoney = PlayerMoney + 10000
            Case 5
                MsgBox "玩家捡到钱共得3000元", 64
                PlayerMoney = PlayerMoney + 3000
            Case 6
                MsgBox "今天是电脑的生日，玩家送1500元给电脑", 16
                PlayerMoney = PlayerMoney - 1500
                ComputerMoney = ComputerMoney + 1500
        End Select
    End If
    If Label1(PlayerPos).Tag = "5" Then
        R = Int(Rnd * 4)
        If R = 0 Then
            MsgBox "玩家缴牌照税500元", 16
            PlayerMoney = PlayerMoney - 500
        End If
        If R = 1 Then
            MsgBox "玩家缴地价税1000元", 16
            PlayerMoney = PlayerMoney - 1000
        End If
        If R = 2 Then
            MsgBox "玩家缴所得税10%", 16
            PlayerMoney = PlayerMoney - Int(PlayerMoney * 0.1)
        End If
        If R = 3 Then
            MsgBox "玩家缴健保费300", 16
            PlayerMoney = PlayerMoney - 300
        End If
    End If
    Label2.Caption = "玩家资金：" & PlayerMoney
    Label3.Caption = "电脑资金：" & ComputerMoney
    
    If PlayerMoney < 0 Then
        MsgBox "玩家破产，电脑获胜！", 16
        Exit Sub
    End If
    
    T = Timer
    Do Until Timer - T > 0.5
        If T > Timer Then T = T - 86400
    Loop
    DoEvents




'电脑

    ComputerPos = ComputerPos + Int(Rnd * 5) + 1
    If ComputerPos > 19 Then
        MsgBox "经过由此去，电脑得2000", 48
        ComputerPos = ComputerPos - 19
        ComputerMoney = ComputerMoney + 2000
    End If
    CmdComputer.Move Shape1(ComputerPos).Left + Shape1(ComputerPos).Width - CmdComputer.Width, Shape1(ComputerPos).Top
    
    If Shape1(ComputerPos).Tag = "" And Val(Label1(ComputerPos).Tag) > 100 Then
        If ComputerMoney >= 4000 Then
            Shape1(ComputerPos).Tag = "c"
            ComputerMoney = ComputerMoney - Val(Label1(ComputerPos).Tag)
            MsgBox "电脑买下" & Label1(ComputerPos).Caption, 48
        End If
    End If
    
    If Shape1(ComputerPos).Tag = "p" Then
        MsgBox Label1(ComputerPos).Caption & "是玩家的，所以电脑要付钱给玩家", 64
        PlayerMoney = PlayerMoney + Val(Label1(ComputerPos).Tag)
        ComputerMoney = ComputerMoney - Val(Label1(ComputerPos).Tag)
    End If
    
    If Label1(ComputerPos).Tag = "1" Then
        R = Int(Rnd * 9)
        If R = 0 Then
            MsgBox "遇到流氓，向电脑收保护费1000元", 48
            ComputerMoney = ComputerMoney - 1000
        End If
        If R = 5 Then
            MsgBox "遇到流氓，向电脑收保护费5000元", 48
            ComputerMoney = ComputerMoney - 5000
        End If
    End If
    If Label1(ComputerPos).Tag = "2" Then
        MsgBox "休息站，向电脑收费1000元", 48
        ComputerMoney = ComputerMoney - 1000
        If Int(Rnd * 2) = 1 Then
            MsgBox "电脑买名产，花掉300元", 16
            ComputerMoney = ComputerMoney - 300
        End If
        If Int(Rnd * 10) = 7 Then
            MsgBox "电脑住五星级饭店，花掉10000元", 16
            ComputerMoney = ComputerMoney - 10000
        End If
    End If
    If Label1(PlayerPos).Tag = "3" Then
        R = Int(Rnd * 6)
        If R = 0 Then
            MsgBox "电脑下相棋输给老阿公，老阿公向电脑收2000元", 48
            ComputerMoney = ComputerMoney - 2000
        End If
        If R = 5 Then
            MsgBox "摆地铺，电脑赚到1200元", 48
            compuerMoney = ComputerMoney + 1200
        End If
    End If
    If Label1(ComputerPos).Tag = "4" Then
        Select Case Int(Rnd * 7)
            Case 0
                MsgBox "电脑掉入水沟，医药费1500元", 48
                ComputerMoney = ComputerMoney - 1500
            Case 1
                MsgBox "电脑被扒走3000元", 48
                ComputerMoney = ComputerMoney - 3000
            Case 2
                MsgBox "电脑被骗走2000元", 48
                ComputerMoney = ComputerMoney - 2000
            Case 3
                MsgBox "电脑发票中奖共得5000元", 48
                ComputerMoney = ComputerMoney + 5000
            Case 4
                MsgBox "电脑中彩卷共得10000元", 48
                ComputerMoney = ComputerMoney + 10000
            Case 5
                MsgBox "电脑捡到钱共得3000元", 48
                ComputerMoney = ComputerMoney + 3000
            Case 6
                MsgBox "今天是玩家的生日，电脑送1500元给玩家", 64
                PlayerMoney = PlayerMoney + 1500
                ComputerMoney = ComputerMoney - 1500
        End Select
    End If
    If Label1(ComputerPos).Tag = "5" Then
        R = Int(Rnd * 4)
        If R = 0 Then
            MsgBox "电脑缴牌照税500元", 48
            ComputerMoney = ComputerMoney - 500
        End If
        If R = 1 Then
            MsgBox "电脑缴地价税1000元", 48
            ComputerMoney = ComputerMoney - 1000
        End If
        If R = 2 Then
            MsgBox "电脑缴所得税10%", 48
            ComputerMoney = ComputerMoney - Int(PlayerMoney * 0.1)
        End If
        If R = 3 Then
            MsgBox "电脑缴健保费300", 48
            ComputerMoney = ComputerMoney - 300
        End If
    End If
    Label2.Caption = "玩家资金：" & PlayerMoney
    Label3.Caption = "电脑资金：" & ComputerMoney

    If ComputerMoney < 0 Then
        MsgBox "电脑破产，玩家获胜！", 64
        Exit Sub
    End If
    T = Timer
    Do Until Timer - T > 0.5
        If T > Timer Then T = T - 86400
    Loop

    CmdPlay.Enabled = True
    Command1.Enabled = True
End Sub

Private Sub Command1_Click()
    CmdPlayer.Move Shape1(0).Left, Shape1(0).Top
    CmdComputer.Move 720, Shape1(0).Top
    PlayerPos = 0
    ComputerPos = 0
    PlayerMoney = 30000
    ComputerMoney = 30000
    For Each Shp In Shape1
        Shp.Tag = ""
    Next
End Sub

Private Sub Form_Load()
    PlayerMoney = 30000
    ComputerMoney = 30000
End Sub