VB文件.pptVIP

第 8 章 文 件 补充：其他控件 1、组合框（ComboBox） 2、滚动条（ScrollBar） 3、Line Input语句 [格式]：Line Input #文件号，变量名 [功能]：将顺序文件以行为单位读出并赋值给一个变量。 [说明]： （1）变量为字符型变量，或字符型数组元素，或变体型变量； （2）将数据行中除回车符和换行符以外的所有字符都赋值给相应的变量。 Private Sub Command4_Click() Dim i As String Open d:\test.txt For Input As #3 Do While Not EOF(3) Line Input #3 , i Print i Loop Close #1 End Sub 8.2.3 使用外部程序处理顺序文件 顺序文件的应用 顺序文件的应用体现在两方面:（1）从文件中读取原始数据并提供给程序处理:（2）将程序处理结果存放到文件中。 例：数据文件Test1.Txt有10个同学的成绩，格式如下： 学号，英语成绩，数学成绩，计算机成绩，化学成绩 要求：统计每个学生的不及格门数，并将不及格门数超过1门（1)的学生学号和不及格门数写入到文件Test2.Txt中。 [程序]： 读取原始数据： Dim a(10, 5) As Integer Open d:test1.txt For Input As #1 For i = 1 To 10 For j = 1 To 5 Next j Next i Input #1, a(i, j) 统计不及格门数并写入目标文件: Open d:\test2.txt For Output As #2 For i = 1 To 10 s = 0 For j = 2 To 5 If a(i, j) 60 Then s = s + 1 Next j If s 1 Then Print a(i, 1), s End If Next I Close Write #2, a(i, 1), s * Visual Basic 程序设计 掌握文件的常用函数、语句 掌握 顺序文件的读、写操作★ 了解随机（记录）文件 了解二进制文件 教学要求 8.1 文件处理 8.2 顺序文件 8.3 随机文件 8.4 二进制文件 教学内容 VB 提供了驱动器列表框、目录列表框和文件列表框三个特殊的控件，将他们组合起来使用，可以创建与文件操作有关的界面。 驱动器列表框 DriveListBox 目录列表框 DirListBox 文件列表框 FileListBox 文件管理控件 Click Change Change 事件 Drive DriveListBox （驱动器列表框） Path DirListBox （目录列表框） FileListBox （文件列表框） 控件名 Path Pattern FileName 举例 属性 例1 文件管理控件 [功能]： 一个下拉式列表框，显示当前系统的所有驱动器列表，顶端显示的是当前选定的驱动器。 [常用属性]： Name:名称属性，缺省时该属性值为Drive1; Drive:当前驱动器属性，该属性为运行态属性；可以用于返回在驱动器列表框中当前选取的驱动器号，也可用于指定在驱动器列表框顶端显示的驱动器； 例如： 驱动器列表框（DriveListBox） 只能在程序运行时进行设置的属性 print Drive1.Drive ——返回 Drive1.Drive = “C”—— 设置 [常用事件]： Change:当用户在驱动器列表框中选择一个驱动器，或在列表框顶端输入一个驱动器标识，或通过赋值语句修改了驱动器列表框的Drive属性都会激活该事件。 [常用语句]： 格式：ChDrive Drive 功能：改变当前工作驱动器 说明： Drive参数是字符型，必须为系统有效的驱动器名。 例如： ChDrive “D:” 注意：该语句的执行与驱动器列表框无关，既不会改变列表框的drive属性，列表框顶端的显示，也不会引发驱动器列表框的Change事件。同样，在驱动器列表框中选定某驱动器，并不能直接将其变更为当前工作驱动器，必须使用如下语句： ChDrive drive1.driv