声明:本空间的内容不全部是原创,如有雷同只为学习与借鉴之方便,别无它意,来者是朋友,愿通过此平台结交天下测试达狼!

VBS教程:函数-Eval 函数

上一篇 / 下一篇  2010-05-18 15:55:55 / 个人分类:QTP

计算一个表达式的值并返回结果。
[result = ]Eval(expression)
参数
*b O W s/Gam&W-zv0result
可选项。 是一个变量,用于接受返回的结果。如果未指定结果,应考虑使用 Execute 语句代替。
expression
必选项。可以是包含任何有效 VBScript. 表达式的字符串。
说明51Testing软件测试网+P?X3o6? QG6h"g8hf!~
在 VBScript. 中,x = y 可以有两种解释。第一种方式是赋值语句,将 y 的值赋予 x。第二种解释是测试 x 和 y 是否相等。如果相等,result 为 True;否则 result 为 False。Eval 方法总是采用第二种解释,而 Execute 语句总是采用第一种。
注意 在Microsoft(R) Visual Basic Scripting Edition 中不存在这种比较与赋值的混淆,因为赋值运算符(=)与比较运算符 (==)不同。
下面的例子说明了 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 = 0End Sub51Testing软件测试网H9wDnm_&F C
详细出处参考:http://www.jb51.net/article/4626.htm

TAG:

 

评分:0

我来说两句

Open Toolbar