vb写一个密室逃脱游戏

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