計(jì)算一個(gè)表達(dá)式的值并返回結(jié)果。
[result = ]Eval(expression)
在 VBScript 中,x = y 可以有兩種解釋。第一種方式是賦值語句,將 y 的值賦予 x。第二種解釋是測(cè)試 x 和 y 是否相等。如果相等,result 為 True;否則 result 為 False。Eval 方法總是采用第二種解釋,而 Execute 語句總是采用第一種。
注意 在Microsoft® JScript™ 中不存在這種比較與賦值的混淆,因?yàn)橘x值運(yùn)算符 (=) 與比較運(yùn)算符 (==) 不同。
下面的例子說明了 Eval 函數(shù)的用法:
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 "祝賀你!猜對(duì)了!"
Exit Sub
Else
Guess = CInt(InputBox("對(duì)不起,請(qǐng)?jiān)僭囈淮?,,0))
End If
Loop Until Guess = 0
End Sub