Visual BasicNET程序设计基础第八章.pptVIP

（3）Spc函数 格式：Spc(n) 在Print的输出中,用Spc函数可以跳过n个空格。例如： Print(1,”Mike”,SPC(10),”Jack”) 将输出”Mike”然后跳过10个空格在第11个位置输出”Jack”。 （3）Space函数 格式：Space(n) Space函数返回n个空格。 例如： Dim x as String X=”Mike”+Space(10)+”Jack” Print(1,x) 输出结果和上面用Spc函数的结果一样。 （4） Write函数和WriteLine函数 格式：Write(文件号，表达式表) WriteLine(文件号，表达式表) 例8-3：在磁盘上建立一个电话号码文件，存放学生姓名和学生的电话号码。程序如下： Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Name, Tel As String FileOpen(1, c:\temp\StudentTel.txt, OpenMode.Output) Unit = InputBox(请输入学生姓名：) While UCase(Name) Over Tel = InputBox(请输入电话号码：) Write(1, Name, Tel) WriteLine(1) Unit = InputBox(请输入学生姓名：) End While FileClose(1) End End Sub 4、顺序文件的读操作 (1)Input函数 格式：Input（文件号，变量） Input函数从一个顺序文件中读出数据项，并把这些数据项赋给程序变量。 例8-4:从键盘上输入3个学生的数据，存放到学生数据文件StudetList.txt中,然后用Input方法将文件中的内容其读到内存，并在输出窗口中显示出来。 Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Structure stu Dim stname As String Dim num As Integer Dim age As Integer Dim addr As String End Structure Private Sub Button1_Click(ByVal sender As Object,ByVal e As _ System.EventArgs)Handles Button1.Click Dim CL As String = Chr(13) Chr(10) Static stud() As stu Dim n, i As Short n = InputBox(请输入学生人数：) FileOpen(1, d:\temp\student_List.txt, OpenMode.Output) ReDim stud(n) For i = 1 To n stud(i).stname = InputBox(请输入姓名：) stud(i).num = InputBox(请输入学号：) stud(i).age = InputBox(请输入年龄：) stud(i).addr = InputBox(请输入住址：) Write(1, stud(i).stname, stud(i).num, stud(i).age, stud(i).addr) Write(1, CL) 在一行的尾部加上一个回车-换行 Next i FileClose(1) End Sub ‘读取文件StudenList.txt中的内容并输出 Private Sub Button2_Click(ByVal sender As Object,ByVal e As _ System.EventArgs)Handles Button1.Click Dim n, I, j As Short Dim S As String = Dim studInfo As String Dim CL As String = Chr(13) Chr(10) FileOpen(1, d:\temp\student_List.txt, OpenMode.Input) Debug.WriteLine() Debug.WriteLine(姓 名 S 学号 S 年龄 S 住址 CL) Do While Not EOF(1) ‘如果未到记录末尾，就用Input函数读入数据 Input(1, studInfo) I