7.2顺序文件的建立 第7章数据文件 示例1在C盘根目录下创建一个顺序文件。 Open "c:\testfile.txt"For Output As #1 Print #1,"This is a test" Print #1, '产生一个空记录 Print #1,"char1","char2" '按照标准格式写入数据 Print #1,"char1";"char1" '按照紧凑格式写入数据 Write #1,"One","Two",123 用Write形式写入数据 Close #1 testfile-记事本 日▣☒ 文件)编辑您)格式@)查看)帮助D This is a test 注意： char1 char2 (1)创建的文件路径问题； char1char1 0ne","Two",123 (2)代码中涉及到三种写入数据 (3)用这种方式创建的文件可以
第 7 章 数 据 文 件 7.2 顺序文件的建立 示例1 在C盘根目录下创建一个顺序文件。 Open "c:\testfile.txt" For Output As #1 Print #1, "This is a test" Print #1, ' 产生一个空记录 Print #1, "char1", "char2" ' 按照标准格式写入数据 Print #1, "char1"; "char1" ' 按照紧凑格式写入数据 Write #1, "One", "Two", 123 ' 用Write形式写入数据 Close #1 注意： （1）创建的文件路径问题； （2）代码中涉及到三种写入数据的方法，观察有什么区别？ （3）用这种方式创建的文件可以用记事本打开查看内容
7.2顺序文件的建立 第7章数据文件 示例2从键盘录入3个学生的学号、姓名、3门课成绩并 保存到C盘目录下 student-记事本 日回☒ Dim i%,xh,x 文件) 编辑)格式Q) 查看) 帮助) Open "c:\stu “09107001","张老三“"，5,62,63 For i=1 To "09107002",“季老四"，52,62,85 一】 xh Inp “69107003",“主老五"，75,85,62 xm Inp cj1=InputBox("第1课成绩) cj2=InputBox("第2门课成绩") cj3=InputBox("第3门课成绩") Write #1,xh,xm,cj1,cj2,cj3 Next i Close MsgBox"文件创建结束！
第 7 章 数 据 文 件 7.2 顺序文件的建立 示例2 从键盘录入3个学生的学号、姓名、3门课成绩并 保存到C盘目录下的student.txt文件中。 Dim i%, xh$, xm$, cj1%, cj2%, cj3% Open "c:\student.txt" For Output As #1 For i = 1 To 3 xh = InputBox("学号") xm = InputBox("姓名") cj1 = InputBox("第1门课成绩") cj2 = InputBox("第2门课成绩") cj3 = InputBox("第3门课成绩") Write #1, xh, xm, cj1, cj2, cj3 Next i Close MsgBox "文件创建结束！