VBS 式の評価 Eval(String expression)

（引数に指定した）式を評価します

Eval(String expresstion)

数値の計算を10回行う

Dim i

For i = 1 to 10

ec i & " * " & i & " -> " & eval(i & " * " & i)
'[2008/10/07 23:01:22]1 * 1 -> 1
'[2008/10/07 23:01:22]2 * 2 -> 4
'[2008/10/07 23:01:22]3 * 3 -> 9
'[2008/10/07 23:01:22]4 * 4 -> 16
'[2008/10/07 23:01:22]5 * 5 -> 25
'[2008/10/07 23:01:22]6 * 6 -> 36
'[2008/10/07 23:01:22]7 * 7 -> 49
'[2008/10/07 23:01:22]8 * 8 -> 64
'[2008/10/07 23:01:22]9 * 9 -> 81
'[2008/10/07 23:01:22]10 * 10 -> 100

Next


'メッセージ表示用
Sub ec(strmsg)

Wscript.Echo "[" & Date & " " & time & "]" & strmsg

end Sub