国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

VBS教程:函數(shù)-Eval 函數(shù)

2020-06-26 18:02:20
字體:
供稿:網(wǎng)友

Eval 函數(shù)

計(jì)算一個(gè)表達(dá)式的值并返回結(jié)果。

 [result = ]Eval(expression)

參數(shù)

result

可選項(xiàng)。 是一個(gè)變量,用于接受返回的結(jié)果。如果未指定結(jié)果,應(yīng)考慮使用 Execute 語句代替。

expression

必選項(xiàng)。可以是包含任何有效 VBScript 表達(dá)式的字符串。

說明

在 VBScript 中,x = y 可以有兩種解釋。第一種方式是賦值語句,將 y 的值賦予 x。第二種解釋是測試 x 和 y 是否相等。如果相等,result 為 True;否則 result 為 FalseEval 方法總是采用第二種解釋,而 Execute 語句總是采用第一種。

注意  在Microsoft(R) Visual Basic Scripting Edition 中不存在這種比較與賦值的混淆,因?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 "祝賀你!猜對了!"      Exit Sub    Else      Guess = CInt(InputBox("對不起,請?jiān)僭囈淮?code style="margin: 3px auto 0px; padding: 0px 0px 0px 5px; width: 640px; clear: both; border-left-color: rgb(108, 226, 108); border-left-width: 3px; border-left-style: solid;">",,0))    End If  Loop Until Guess = 0End Sub
發(fā)表評論 共有條評論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 儋州市| 和林格尔县| 绥滨县| 美姑县| 石阡县| 中牟县| 长泰县| 拜城县| 张家界市| 从江县| 连州市| 历史| 天长市| 磴口县| 嘉荫县| 平安县| 沂源县| 开平市| 昆明市| 岑巩县| 安阳市| 蒙阴县| 房产| 台中市| 泾阳县| 胶南市| 平泉县| 昆明市| 天等县| 柳河县| 连南| 铜鼓县| 阳春市| 贵德县| 马尔康县| 玛沁县| 望奎县| 大渡口区| 原阳县| 弥渡县| 双峰县|