Sub Escape()

'定义变量
Dim Door As Integer, Key As Integer, Safe As Integer

'游戏开始，输出游戏介绍文字
MsgBox "你被困在一个密室里，必须找到门的钥匙和保险箱的密码才能逃出去" & vbCrLf & "你有三次机会来尝试打开门或者保险箱"

'循环3次，让用户尝试打开门和保险箱
For i = 1 To 3

    '输入Door和Key变量的值（1-4之间）
    Door = InputBox("请输入1-4之间的数字来尝试打开门")
    Key = InputBox("请再次输入1-4之间的数字来尝试使用钥匙")

    '如果Door变量与Key变量相同（都是2时表示正确）则显示“你已成功打开了大门”并退出循环 
    If Door = 2 And Key = 2 Then 
        MsgBox "你已成功打开了大门" 
        Exit For 

        '如果Door变量不与Key变量相同则显示“你未能成功使用钥匙” 
    ElseIf Door <> 2 Or Key <> 2 Then 
        MsgBox "你未能成功使用钥匙"  

        '如果i=3时表明此时是最后一次尝试，此时把Safe变量的值也要进行判断  
        If i = 3 Then  

            Safe = InputBox("进入保险店中, 请输入1-4之间的数字来尝试打开保险店")  

            '如果Safe变量为3时表明正常逃出去                                   If Safe = 3 Then   MsgBox "你已逃出去了!" Else: MsgBox "很遗憾, 你失败了!" End If End Sub