VisualBasic程序设计教学单元设计.docVIP

《计算机应用（VB）》课程单元教学设计 单元标题 数据文件 授课对象 机械系、自控系、塑性系各专业学生 教学目标能力训练任务及案例 能力（技能）目标 知识目标 能够使用数据文件的特点描述对文件的结构和分类。 了解数据文件的结构和分类。 能够熟练的在VB中文件结构，并能正确引用 字符 字段 记录 3个命名空间 熟练掌握数据文件的概念。 能够通过对文件分类。 理解文件分类。 文件的操作，文件的打开，文件的关闭，文件操作的语句，文件的其他操作，文件的输入输出方式 Input，Output 对顺序文件操作的读操作Open 文件说明 For Input As #文件号 Input/Line Input #文件号,存放的字符变量 Close #文件号 对顺序文件操作的写操作 Open 文件说明 For Output As #文件号 Print/Write #文件号，表达式 Close #文件号 熟练掌握对顺序文件的读操作和写操作的语句格式的正确写法并熟练掌握。 对随机文件的操作读操作Open 文件名称 For Random As #文件号 [len=记录长度]Put #文件号，变量Close #文件号 对随机文件的写操作Open 文件名称 For Random As #文件号 [len=记录长度]Get #文件号，变量Close #文件号 熟练掌握对随机文件的读操作和写操作的语句格式的正确写法并熟练掌握。 文件系统控件，驱动器列表框、目录列表框、文件列表框，各列表框的属性，驱动器列表的主要属性Drive，目录列表的主要属性Path，文件列表框的属性FileName 熟练掌握对文件系统控件的属性格式的正确写法并熟练掌握。 教学组织 设计一个程序，使之通过文件系统控件打开一个图片文件，并将图片的内容在（Text1）文本框控件中显示。先在窗体上画一个驱动器列表框其名称为 Drive1，画一个目录列表框其名称为 Dir1 ，画一个文件列表框其名称为 File1 ，再画一个文本框控件名称为Text1；将 File1的 Pattern 属性设置为“*.txt”，将Text1的MultiLine属性设置为 True 。然后再编写如下程序代码。 教学材料 教材：《全国计算机等级考试教程二级Visual Basic》，全国计算机等级考试教材编写组，人民邮电出版社； “利用文件系统控件对文本进行编辑保存” Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_DblClick() Dim s As String, Fn As String Fn=Dir1.Path “\” File1.FileName Debug.Print Fn Open Fn For Input As #1 Text1.Text=”” While Not Eof(1) Line Input #1,s Text1.Text=Text1.Text s chr(13) chr(10) Wend Close #1 End Sub 《计算机应用（VB）》PPT教案。 作业 1.Visual Basic提供的对数据文件的3种访问方式为随机访问方式、_________和二进制访问方式。 2.在窗体上画1个文本框，名称为Text1，然后编写如下程序： Private Sub Form_Load() Open d:\temp\dat.txt For Output As #1 Text1.Text = End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If _________ = 13 Then If UCase(Text1.Text) = _______ Then Close #1 End Else Write #1, _________ Text1.Text = End If End If End Sub 以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键（回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除