Eval 函数

计算一个表达式的值并返回结果。 [code] [result = ][b]Eval([/b][i]expression[/i][b])[/b][/code] [h3]参数[/h3]result 可选项。 是一个变量，用于接受返回的结果。如果未指定结果，应考虑使用 [b]Execute[/b] 语句代替。 expression 必选项。可以是包含任何有效 VBScript 表达式的字符串。 [h3]说明[/h3]在 VBScript 中，[i]x = y[/i] 可以有两种解释。第一种方式是赋值语句，将 [i]y[/i] 的值赋予 [i]x[/i]。第二种解释是测试 [i]x[/i] 和 [i]y[/i] 是否相等。如果相等，[i]result[/i] 为 [b]True[/b]；否则 [i]result[/i] 为 [b]False[/b]。[b]Eval[/b] 方法总是采用第二种解释，而 [b]Execute[/b] 语句总是采用第一种。 [b]注意[/b]  在Microsoft(R) Visual Basic Scripting Edition 中不存在这种比较与赋值的混淆，因为赋值运算符(=)与比较运算符 (==)不同。 下面的例子说明了 [b]Eval[/b] 函数的用法：

[code]Sub GuessANumber  Dim Guess, RndNum  RndNum = Int((100) * Rnd(1) + 1)  Guess = CInt(InputBox("Enter your guess:",,0))  Do    If [b]Eval([/b]"Guess = RndNum"[b])[/b] Then      MsgBox "[/code]祝贺你！猜对了！[code]"[/code][code]      Exit Sub[/code][code]    Else[/code][code]      Guess = CInt(InputBox("[/code]对不起，请再试一次[code]",,0))[/code][code]    End If[/code][code]  Loop Until Guess = 0[/code][code]End Sub[/code]