data1= "姓名:　"
data= data1+inputbox("输入姓名","输入信息")+inputbox("输入姓名","输入信息")
set fs =createobject("scripting.filesystemobject")
set f =fs.opentextfile("1.txt",8)
f.writeblanklines(0)
f.writeline data
f.close

data1= "籍贯:　"
data= data1+inputbox("输入籍贯","输入信息")
set fs =createobject("scripting.filesystemobject")
set f =fs.opentextfile("1.txt",8)
f.writeblanklines(0)
f.writeline data
f.close


data1= "学历:　"
data= data1+inputbox("输入学历","输入信息")
set fs =createobject("scripting.filesystemobject")
set f =fs.opentextfile("1.txt",8)
f.writeblanklines(0)
f.writeline data
f.close







    复制代码