vb顺序文件说课.pptVIP

顺序文件查询---顺序文件的实际应用 一、说教材（文件） 地位：程序设计中的核心，不可缺少， 实用程序的基础。 作用：1.对不同数据进行加工处理，产 生相应的输出结果的常用手段。 2.方便用户，提高上机效率。 3.缓解内存大小的限制。 教学目标 知识目标 理解掌握顺序文件的读取，同时配合使用数 组、循环和判断语句。 能力目标 培养学生解决分析问题的能力，从遇到问题开始 分析、研究、策划，找出解决问题的思路，使理论 应用于实践。 德育目标 培养学生科学严谨、大胆探索、勇于创新等良好的 个性心理品质。 教学重难点 重点： 建立一个查询显示框，把学生信息从文件中读取出来，并且可以反复察看。 难点： 哪些变量需要设置成通用变量。 怎样把所有记录读取到数组中。 怎样判断文件的当前记录是第几条。 教法和学法 教法：项目驱动 观察发现 创设情景 分组讨论 学法：积极探讨 分组合作 归纳总结 学生状况 学生已经掌握了vb的基本语法结构，掌握了顺序文件的基本使用，暂不能够使用所学的知识解决实际中的问题，对于问题的考虑欠完整、周密，在复杂问题的处理上存在困难。老师的任务是引导、提问、解决困难问题。 教学程序 复习 导入 新授 练习 小结 作业 复习： 顺序文件的读取语句？ Eof(文件号)函数的作用是什么？ While 条件符合 ……. ….. loop 引入：文件记录输出到文本框? 新授(思路:) 1.计算机只能访问内存还是外存储器(硬盘)? 步骤1: Dim stu(5 , 6) as integer (定义数组变量) 步骤2（form-Initialize） 步骤3 (显示按钮 ) 步骤4 (下一条按钮) （难点）注意点: K是一个公共变量,必须在通用里定义。 K1也是一个公共变量，并且有计数功能 必须在通用里定义 （重点）代码如下 Open ” d:\ 学生成绩.dat” for input as #1 K=0 Do While Not EOF(1) For i = 0 To 6 Input #1, stu(k, i) Next i k = k + 1 Loop 显示代码： For i = 0 To 6 Text1(i).Text = stu(0, i) Next i 下一题代码: k1 = k1 + 1 If k1 k Then MsgBox (已经到了尾记录！) Close #1 Form1.Show Else For i = 0 To 6 Text1(i).Text = A1(k1, i) Next I End If 小结 解题步骤（请学生先讲） 打开文件，把所有记录读取到数组中，并且计算出数组的记录条数。 从数组的第一条中取出记录显示到文本框中。 依次取出下一条记录显示到文本框，实现往下浏览的功能，当到达尾记录时停止。 依次取出上一条记录显示到文本框，实现往上浏览的功能，当到达顶记录时停止。 课后思考 文件可以按次序显示在文本框上，那么 要显示某个记录，就要实现查询功能， 请同学们课后思考： Visual basic ----file application* * 说教材 说教材 说教材 得出结论 答:只能访问内存 把文件数据读取到内存 2.在vb里用变量来保存临时数据，那么这条题目 用普通变量还是数组变量？ 答：数组变量，因为有大量的数据要读入到内存，而且这些数据间都是有联系的。数组对数据的操作也方便。 stu 0 1 2 3 4 5 6 0 1 2 3 4 5 93 95 94 92 3 夏明月 91 96 94 93 2 盛新雨 95 97 98 96 1