第14篇 文件(3学时).pptVIP

第14章 文件 14.1文件处理 14.2文件管理控件 14.3 示例 掌握 文件的基本概念，顺序文件的处理 驱动器列表框 Drive属性 Change事件 目录列表框 Path属性 Change事件 文件列表框 filename,listIndex属性 Click事件 三个文件控件的同步 重点 三个文件控件的同步 顺序文件的处理 示例:学生成绩录入示例 请演示文件示例文件夹中的程序 录入：把成绩写入文件 Private Sub Cmdinput_Click() Dim number As String * 6 Dim score1 As Integer, score2 As Integer Dim return1 As String return1 = Chr(13) Chr(10) Open App.Path + \考试成绩.txt For Append As #10 number = xh.Text score1 = Val(bs.Text) score2 = Val(js.Text) Text1 = Text1 number Str(score1) Str(score2) return1 Write #10, number, score1, score2,