VBScript中If块内变量赋值后外部取值异常问题

你的代码核心问题是变量声明时机错误，导致loginSuccess在不同分支中无法正确共享值。VBScript是解释型语言，Dim语句只有执行到它时才会完成变量声明；你把loginSuccess的声明放在If分支内部，当进入Else分支时，代码没执行到Dim语句，会隐式创建一个新的loginSuccess变量，两个分支的变量实际并未共享。当输入admin时，虽然If分支内给loginSuccess赋值为True，但后续判断时调用的是初始为Empty的隐式变量（VBScript中Empty会被当作False处理），所以最终弹出“Login failed”。

修正后的代码 #

Dim username, loginSuccess
username = InputBox("Enter your name:")

If username = "admin" Then
    loginSuccess = True
    MsgBox "Welcome, admin!"
Else
    loginSuccess = False
    MsgBox "Access Denied"
End If

If loginSuccess Then
    MsgBox "You're logged in"
Else
    MsgBox "Login failed"
End If

关键修改说明 #

• 将Dim loginSuccess移到脚本最开头，确保变量在所有分支执行前就被声明，所有分支操作的都是同一个变量。
• 这样无论进入哪个分支，loginSuccess的赋值都会直接作用于同一个脚本级变量，后续的判断就能正确读取到之前设置的值。

内容的提问来源于stack exchange，提问作者Nona Tnoucca