方法/步骤
3
此代码的作用是生成5000个滑稽文件名字分别为滑稽 滑稽1 滑稽2 滑稽3………
5000可以更改改为多少个就生成多少个滑稽文件
Do Until t_i=1
t_i=t_i+1
T=T+"滑稽 "
Loop
Do
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(I&".滑稽", 2, True, -2)
f.Write T
f.Close
I=I+1
If I = 5000 then
Exit Do
End If
Loop