vbs编写一个函数，将1001到1050（50串数字）读入test.txt文件。每串数字占一行，不是覆盖。

Option Explicit---------------------------------------------------------开头

dim fas,objfso,printstr,objtextfile,i---------------------------------变量

Set fas = CreateObject("Scripting.FileSystemObject")------创建fso对象

If fas.FolderExists("c:\test") Then---------------------------------检查文件c:\test是否存在
print"文件已存在，没有创建"
else-----------------------------------------------------------------------若是没有，新建一个c:\test文件夹
    Set f=fas.createfolder("c:\test")
    print"文件夹是新建的"
End If

Set objfso=createobject("Scripting.FileSystemObject")------创建objfso对象
Set objtextfile=objfso.opentextfile("c:\test\test.txt",8,true)---读取全部内容（“1是读，2是写，8是追加”）

Function printstr(a,b)--------------------------------------------------自定义function printstr（a，b）
    For i = a To b Step 1
        printstr=cstr(i)
        objtextfile.writeline(printstr & vbcr)------------------------写入，vbcr换行符
    Next
    objtextfile.close
End Function
Call printstr(1001,1050)----------------------------------------------a，b的取值