2015第章文件学时.pptVIP

第7章 文件 7.1 文件管理控件 7.2 文件处理 7.3 示例 示例:学生成绩录入示例 请演示文件示例文件夹中的程序 录入：把成绩写入文件 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, score1 + score2 Close #10 xh.Text = CStr(Val(number) + 1) End Sub 从文件中读出成绩: Private Sub CmdDwj_Click() Dim number As String * 6 Dim scor