Eval 
һʽֵؽ

[result = ]Eval(expression)

result 
ѡһڽܷصĽδָӦʹ Execute 档 
expression 
ѡǰκЧ VBScript ʽַ 
˵
 VBScript Уx = y ֽ͡һַʽǸֵ䣬 y ֵ xڶֽǲ x  y Ƿȡȣresult Ϊ True result Ϊ FalseEval ǲõڶֽͣ Execute ǲõһ֡

ע   Microsoft? JScript? вֱȽ븳ֵĻΪֵ (=) Ƚ (==) ͬ
˵ Eval ÷ 

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
