国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板: 沙坪坝区| 宁陵县| 克山县| 穆棱市| 齐齐哈尔市| 莱西市| 长寿区| 宝坻区| 湛江市| 长汀县| 太谷县| 临泉县| 新密市| 汶上县| 德安县| 长丰县| 北辰区| 赤壁市| 顺昌县| 通化市| 台中市| 娄底市| 河北区| 武胜县| 龙口市| 仙桃市| 珠海市| 临洮县| 浑源县| 灯塔市| 三门县| 驻马店市| 治多县| 金昌市| 同仁县| 靖远县| 治县。| 正阳县| 蒙城县| 普定县| 巴马|