《Visual Basic语言程序设计》电子教案 第6章文件.pptxVIP

Visual Basic 程序设计;第六章 文件;;;;;;第六章 文件;引例1;6.1 文件的基本概念;6.1.1 文件结构;6.1.2 文件的分类;6.1.2 文件的分类;6.1.2 文件的分类;6.1.3 文件的操作;6.1.3 文件的操作;6.2 文件操作函数;6.3 顺序文件;思考;6.3.1 顺序文件的读操作;;Private Sub Form_Click() Dim a(100) As Integer Open App.Path & "\TestStudent.txt" For Input As #1 '以读方式打开文件 For i = 1 To 100 Input #1, a(i) '从文件中读出数据依次存放到数组 Next i Close #1 '关闭文件 Max = a(1) Min = a(1) Sum = a(1) For i = 2 To 100 If Max < a(i) Then Max = a(i) '找最高分 If Min > a(i) Then Min = a(i) '找最低分 Sum = Sum + a(i) Next i Print "最高分为：" & Max Print "最低分为：" & Min Print "平均分为：" & Sum / 100 '求平均分 End Sub ;6.3.1 顺序文件的读操作;;Private Sub Command1_Click() Dim txtline As String CD1.DialogTitle = "选择歌曲" CD1.InitDir = "D:\歌词" CD1.Filter = "歌词文本|*.txt|所有文件|*.*" CD1.Action = 1 Open CD1.FileName For Input As #1 Line Input #1, txtline '读出一行 Text1.Text = txtline End Sub ;6.3.1 顺序文件的读操作;;6.3.2 顺序文件的写操作;;Private Sub Command1_Click() Dim a(5) As Integer Open App.Path & "\TestStudent.txt" For Output As #1 '以写方式打开文件 For i = 1 To 5 a(i) = InputBox("请输入第" & i & "个学生的成绩：") Print #1, a(i) '将数组元素写入到1#文件 Next i Close #1 '关闭文件 End Sub;6.4 自定义数据类型;6.4.1 自定义数据类型的定义;6.4.2 声明和使用自定义数据类型的变量;6.5 随机文件;6.5.1 随机文件的读操作;6.5.2 随机文件的写操作;例6-8;例6-8;Private Sub Command1_Click() Dim recnum As Long, asp As String Open "telephone.txt" For Random As #1 Len = Len(Pers) '随机文件的打开 RecNum = LOF(1) / Len(Pers) '得到随机文件记录总数 Do Pers.Name = InputBox("请输入姓名") Pers.Tel = InputBox("请输入电话") Pers.Pos = InputBox("请输入邮政编码") RecNum = RecNum + 1 Put #1, RecNum, Pers '向随机文件写数据 asp = InputBox("More(Y/N)?") Loop While UCase(asp) <> "N" Close #1 End Sub;Private Sub Command2_Cl