Eval 方法

在 VBScript 中，x = y 可以有两种解释。第一种方式是赋值语句，将 y 的值赋予 x。第二种解释是测试
x 和 y 是否相等。如果相等，result 为 True；否则
result 为 False。Eval 方法总是采用第二种解释，而
Execute 语句总是采用第一种。

注意  在Microsoft(R) JScript 中不存在这种比较与赋值的混淆，因为赋值运算符(=)与比较运算符 (==)不同。

 

Sub GuessANumber

  Dim Guess, RndNum

  RndNum = Int((100) * Rnd(1) + 1)

  Guess = CInt(InputBox("Enter your guess:",,0))

  Do

    If Eval("Guess = RndNum") Then

      MsgBox "祝贺你！猜对了！"

      Exit Sub

    Else

      Guess = CInt(InputBox("对不起，请再试一次",,0))

    End If

  Loop Until Guess = 0

End Sub