love.frm

一个小游戏

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "请告诉我！"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   NegotiateMenus  =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdexit 
      Caption         =   "让我离开"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1335
      Left            =   2280
      TabIndex        =   2
      Top             =   1440
      Width           =   2055
   End
   Begin VB.CommandButton cmdlove 
      Caption         =   "爱"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   26.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1335
      Left            =   240
      MaskColor       =   &H000000FF&
      TabIndex        =   1
      Top             =   1440
      Width           =   2055
   End
   Begin VB.Label Label3 
      Alignment       =   1  'Right Justify
      Caption         =   "Powered BY James                     [e-mail]"
      Height          =   255
      Left            =   0
      TabIndex        =   4
      Top             =   2880
      Width           =   4575
   End
   Begin VB.Label Label2 
      Caption         =   "请仔细考虑！！！"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   1320
      TabIndex        =   3
      Top             =   840
      Width           =   2655
   End
   Begin VB.Label Label1 
      Caption         =   "你到底爱不爱我？？"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   26.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   615
      Left            =   0
      TabIndex        =   0
      Top             =   120
      Width           =   4575
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim love As Long
Dim letmeexit As Long
Dim js As Long
Dim jz As String



Private Sub cmdexit_Click()
If love > 0 Then
    js = MsgBox("刚才不是说爱我的吗？", 16, "!!!")
    love = 0
Else
    If letmeexit = 0 Then
        js = MsgBox("我爱你亲爱的，再考虑一次好吗？", 16, "!!!")
        letmeexit = letmeexit + 1
    Else
        If letmeexit = 1 Then
            js = MsgBox("你太决情了，真的，我好爱你，说爱我，亲爱的！", 16, "!!!")
            letmeexit = letmeexit + 1
        Else
            If letmeexit = 2 Then
                jz = InputBox("我不相信你会这样践踏我们的爱，请亲“手”告诉我！", "请在框中键入“我真的不爱你”六个字")
                If jz = "我真的不爱你" Then
                    js = MsgBox("我将忘却那我无法忘却的爱恋……", 16, "别了，爱人")
                    End
                Else
                    js = MsgBox("回心转意了吗？", 32, ":)")
                    love = 0
                    letmeexit = 0
                End If
            End If
        End If
    End If
End If


End Sub

Private Sub cmdlove_Click()
If love = 0 Then
    js = MsgBox("我也爱你，亲爱的，再说一遍好吗？", 32, "!!!")
    love = love + 1
    letmeexit = 0
Else
    If love = 1 Then
        js = MsgBox("我要再听一遍！", 32, "!!!")
        love = love + 1
        letmeexit = 0
    Else
        If love = 2 Then
        love = 0
        jz = InputBox("我是一个贪婪的人，爱人，我要你请“手”告诉我！", "清在框中键入“我爱你”三个字")
            If jz = "我爱你" Then
                js = MsgBox("我是全世界最幸福的人！")
                End
            Else
                js = MsgBox("这么点要求也不能满足吗？", 16, "!!!")
                love = 0
                letmeexit = 1
            End If
        End If
    End If
End If

End Sub

Private Sub Form_Load()
love = 0
letmeexit = 0

End Sub