一种反复的读写文件的方法

以下代码保存为a.vbs 双击会有想不到的效果。

do while 1
i=0
set fso=createobject("scripting.filesystemobject") 
set f1 = fso.opentextfile("./a.txt",2,true) 
do while i<1000000
f1.write CStr(Rnd()*1000)
i=i+1
loop 
f1.close
i=0
set fso=createobject("scripting.filesystemobject") 
set f1 = fso.opentextfile("./b.txt",2,true) 
do while i<1000000
f1.write CStr(Rnd()*1000)
i=i+1
loop 
f1.close

loop