Visual Basic Scripting Edition | ÕZ(y¨³)ÑÔ…¢¿¼ |
Ó‹(j¨¬)ËãÒ»‚€(g¨¨)±íß_(d¨¢)ʽµÄÖµ²¢·µ»Ø½Y(ji¨¦)¹û¡£
[result = ]Eval(expression)
result
¿Éßxí—(xi¨¤ng)¡£ ÊÇÒ»‚€(g¨¨)׃Á¿£¬ÓÃÓÚ½ÓÊÜ·µ»ØµÄ½Y(ji¨¦)¹û¡£Èç¹ûδָ¶¨½Y(ji¨¦)¹û£¬‘ª(y¨©ng)¿¼‘]ʹÓà Execute ÕZ(y¨³)¾ä´úÌæ¡£
expression
±Øßxí—(xi¨¤ng)¡£¿ÉÒÔÊǰüº¬ÈκÎÓÐЧ VBScript ±íß_(d¨¢)ʽµÄ×Ö·û´®¡£
ÔÚ VBScript ÖУ¬x = y ¿ÉÒÔÓЃɷN½âጡ£µÚÒ»·N·½Ê½ÊÇÙxÖµÕZ(y¨³)¾ä£¬Œ¢ y µÄÖµÙxÓè x¡£µÚ¶þ·N½âáŒÊÇœy(c¨¨)Ô‡ x ºÍ y ÊÇ·ñÏàµÈ¡£Èç¹ûÏàµÈ£¬result žé True£»·ñ„t result žé False¡£Eval ·½·¨¿‚ÊDzÉÓõڶþ·N½âáŒ?zhu¨¡n)¬¶?Execute ÕZ(y¨³)¾ä¿‚ÊDzÉÓõÚÒ»·N¡£
×¢Òâ ÔÚMicrosoft(R) Visual Basic Scripting Edition Öв»´æÔÚß@·N±ÈÝ^ÅcÙxÖµµÄ»ìÏý£¬Òò?y¨¤n)éÙxÖµß\(y¨´n)Ëã·û(=)Åc±ÈÝ^ß\(y¨´n)Ëã·û (==)²»Í¬¡£
ÏÂÃæµÄÀý×ÓÕf(shu¨)Ã÷ÁË 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 "
×£ÙRÄ㣡²ÂŒ¦(du¨¬)ÁË£¡"
Exit Sub
Else
Guess = CInt(InputBox("
Œ¦(du¨¬)²»Æð£¬Õˆ(q¨«ng)?ji¨¡n)ÙÔ‡Ò»´?CODE>",,0))End If
Loop Until Guess = 0
End Sub