1~1000まで
外部変形と関係ありませんが・・・・・
1~1000までの数を全て足すと、
(1+1000)X1000÷2=500500です。
計算するスプリクトを作成すると、
fso=new ActiveXObject("Scripting.FileSystemObject")
w=fso.CreateTextFile("calc.txt")
sum=0
for (i=1;i<=1000;i++){
num=i
sum=sum+num}
w.WriteLine(sum)
テキストエディタにコピペして、拡張子 .jsで保存し、
ダブルクリックで実行すると、
計算結果を、ファイル "calc" に書出しします。
| 固定リンク
コメント