1
銆?/p>
a = 1 : execute ("a=2*a"),a
鐨勫�间负
? C. 2 2
銆?/p>
鑴氭湰涓彧鏈変竴琛屼唬鐮?/p>
DimEnv a:MsgBox a,
寮瑰嚭鐨勫�间负
3,
鍙兘鐨勫師鍥犳槸
?
B.
鍏朵粬鑴氭湰涓粰鐜鍙橀噺
a
璧嬪�间簡
3
銆?/p>
浠ヤ笅浠ｇ爜鍦ㄤ簨浠惰Е鍙戞椂寮瑰嚭鐨?/p>
a
鐨勫�间负
?C.
绌?/p>
UserVar a=0 "
璁剧疆鍐呭
" Sub OnScriptLoad() MsgBox a End Sub 4
銆?/p>
涓�鑸悗鍙板寮�鑴氭湰鏄�氳繃浠�涔堟妧鏈墜娈靛疄鐜扮殑
? D.
鍚庡彴
+
澶氱嚎绋?/p>
5
銆?/p>
鍏充簬鑷畾涔夊彉閲忕殑鎻忚堪閿欒鐨勬槸
?
D.
鑷畾涔夊彉閲忓彲浠ュ湪鑴氭湰杞藉叆浜?/p>
浠朵腑璇诲彇
6
銆?/p>
鍏充簬绾跨▼鍋滄浜嬩欢瀛愮▼搴忔弿杩版纭殑鏄?/p>
?
D.
绾跨▼鍋滄浜嬩欢瀛愮▼搴忎細
鍦ㄤ换鎰忕嚎绋嬪仠姝㈡椂瑙﹀彂
7
銆?/p>
璇烽棶浠ヤ笅鑴氭湰
a
鐨勫脊鍑哄�兼槸澶氬皯
?D.
5
DimEnv
a
a
=
30
Call
xfun(a)
MsgBox a Function xfun(x1) x1=15 a=5 x1=x1+a End Function 8
銆?/p>
鍒ゆ柇涓�涓瓧绗︿覆鏄惁涓烘暟瀛楀彲浠ヤ娇鐢ㄤ互涓嬪摢涓嚱鏁?/p>
? A. IsNumeric 9
銆?/p>