VB文件课件.ppt

上传人(卖家):三亚风情 文档编号:2940253 上传时间:2022-06-13 格式:PPT 页数:35 大小:554.50KB
下载 相关 举报
VB文件课件.ppt_第1页
第1页 / 共35页
VB文件课件.ppt_第2页
第2页 / 共35页
VB文件课件.ppt_第3页
第3页 / 共35页
VB文件课件.ppt_第4页
第4页 / 共35页
VB文件课件.ppt_第5页
第5页 / 共35页
点击查看更多>>
资源描述

1、第 8 章 文 件 Visual Basic 程序设计程序设计2掌握文件的常用函数、语句掌握文件的常用函数、语句 掌握掌握 顺序文件的读、写操作顺序文件的读、写操作 了解随机(记录)文件了解随机(记录)文件 了解二进制文件了解二进制文件教学要求教学要求 Visual Basic 程序设计程序设计3 8.1 8.1 文件处理文件处理 8.2 8.2 顺序文件顺序文件 8.3 8.3 随机文件随机文件 8.4 8.4 二进制文件二进制文件教学内容教学内容 Visual Basic 程序设计程序设计4 VB VB 提供了驱动器列表框、目录列表框和文件提供了驱动器列表框、目录列表框和文件列表框三个特殊

2、的控件,将他们组合起来使用,列表框三个特殊的控件,将他们组合起来使用,可以创建与文件操作有关的界面。可以创建与文件操作有关的界面。驱动器列表框驱动器列表框DriveListBoxDriveListBox目录列表框目录列表框DirListBoxDirListBox文件列表框文件列表框FileListBoxFileListBox文件管理控件文件管理控件 Visual Basic 程序设计程序设计5控件名控件名属性属性事件事件举例举例DriveListBox (驱动器列表(驱动器列表框框)DriveChangeDirListBox(目录列表框目录列表框)PathChangeFileListBox (

3、文件列表框)(文件列表框)PathPatternFileNameClick例例1文件管理控件文件管理控件 Visual Basic 程序设计程序设计6 功能功能 : 一个下拉式列表框,显示当前系统的所有驱一个下拉式列表框,显示当前系统的所有驱动器列表,顶端显示的是当前选定的驱动器动器列表,顶端显示的是当前选定的驱动器。 常用属性常用属性 : Name:名称属性,缺省时该属性值为名称属性,缺省时该属性值为Drive1; Drive: :当前驱动器属性,该属性为当前驱动器属性,该属性为运行态属性运行态属性;可以用于返回在;可以用于返回在驱动器列表框中当前选取的驱动器号,也可用于指定在驱动器列表驱动

4、器列表框中当前选取的驱动器号,也可用于指定在驱动器列表框顶端显示的驱动器;框顶端显示的驱动器; 例如:例如:驱动器列表框(驱动器列表框(DriveListBoxDriveListBox)只能在程序运行时只能在程序运行时进行设置的属性进行设置的属性print print Drive1.DriveDrive1.Drive 返回返回Drive1.Drive = “C”Drive1.Drive = “C” 设置设置 Visual Basic 程序设计程序设计7 常用事件常用事件 : Change: :当用户在驱动器列表框中当用户在驱动器列表框中选择选择一个驱动器,或在列表框一个驱动器,或在列表框顶端顶

5、端输入输入一个驱动器标识,或通过赋值语句一个驱动器标识,或通过赋值语句修改修改了驱动器列表框的了驱动器列表框的Drive属性都会激活该事件。属性都会激活该事件。 常用语句常用语句 :格式:格式:ChDrive Drive 功能:改变当前功能:改变当前工作驱动器工作驱动器说明:说明: Drive参数是字符型,必须为系统有效的驱动器名。参数是字符型,必须为系统有效的驱动器名。例如:例如: ChDrive “D:” 注意:注意:该语句的执行与驱动器列表框无关,既不会改变列表框的该语句的执行与驱动器列表框无关,既不会改变列表框的drivedrive属性,列表框顶端的显示,也不会引发驱动器列表框的属性,

6、列表框顶端的显示,也不会引发驱动器列表框的ChangeChange事件。事件。同样,在驱动器列表框中选定某驱动器,并不能直同样,在驱动器列表框中选定某驱动器,并不能直接将其变更为当前工作驱动器,必须使用如下语句:接将其变更为当前工作驱动器,必须使用如下语句: ChDriveChDrive drive1.drive drive1.drive对文件进行存取操对文件进行存取操作时的缺省驱动器作时的缺省驱动器 Visual Basic 程序设计程序设计8目录列表框目录列表框( ( DirListBox ) ) 功能功能 :显示系统当前:显示系统当前工作工作驱动器的目录结构,并突出显示当前驱动器的目录结

7、构,并突出显示当前目录。显示从根目录开始,到当前目录这条路径上的所有目录,以目录。显示从根目录开始,到当前目录这条路径上的所有目录,以及当前目录的下属所有第一级子目录。及当前目录的下属所有第一级子目录。 目录索引目录索引ListIndex : 当前突出显示的目录,索引当前突出显示的目录,索引值为值为-1-1,紧邻其上的目录为,紧邻其上的目录为-2-2,再上一层为再上一层为-3-3,依次类推;而当,依次类推;而当前工作目录的第一个子目录的索前工作目录的第一个子目录的索引值为引值为0 0,其他子目录的索引值,其他子目录的索引值顺次递增。顺次递增。-4-3-2-101 Visual Basic 程序

8、设计程序设计9 常用属性常用属性 : Name:名称属性,缺省时为名称属性,缺省时为Dir1; Path: :设置和返回目录列表框中的当前目录,为设置和返回目录列表框中的当前目录,为运行态属性运行态属性;可以通过如下两种方式设置:一是赋值语句;二是可以通过如下两种方式设置:一是赋值语句;二是双击双击目录列表目录列表框中某项。框中某项。注意注意:一般目录列表框中显示当前驱动器上的目录,用:一般目录列表框中显示当前驱动器上的目录,用drivedrive属属性更新目录列表框的性更新目录列表框的pathpath属性,保持驱动器列表框和目录列表框属性,保持驱动器列表框和目录列表框的同步变化:的同步变化:

9、 .path=.path=.drive.drive Private Sub Drive1_change()Private Sub Drive1_change() Dir1.path=Drive1.drive Dir1.path=Drive1.driveEnd SubEnd SubDrive1Dir1此语句通常在驱动此语句通常在驱动器列表框的器列表框的Change Change 事件中执行。事件中执行。 Visual Basic 程序设计程序设计10 常用事件常用事件 :Change: 当用户双击目录列表框中的目录项,或通过赋值语句改当用户双击目录列表框中的目录项,或通过赋值语句改变了目录列表框

10、的变了目录列表框的Path属性,都会引发该事件。属性,都会引发该事件。 常用语句常用语句 :格式:格式:ChDir Path功能:改变系统当前工作目录功能:改变系统当前工作目录。说明:说明:(1 1) ChDir语句改变的是当前驱动器(或指定驱动器)的工作目语句改变的是当前驱动器(或指定驱动器)的工作目录,而录,而不能改变工作驱动器;不能改变工作驱动器;(2 2)该语句与目录列表框无关,即不会改变目录列表框的当前目)该语句与目录列表框无关,即不会改变目录列表框的当前目录,也不会触发录,也不会触发Change事件。事件。 同样,在目录列表框中选定某目录,并不能将其变更为当前工同样,在目录列表框中

11、选定某目录,并不能将其变更为当前工作目录,必须使用如下语句:作目录,必须使用如下语句: ChDirChDir dir1. dir1.Path例如:例如: ChDirChDir “e: “e:个人资料个人资料” Visual Basic 程序设计程序设计11文件列表框文件列表框( ( FileListBox ) ) 功能功能 :显示系统当前目录下的文件列表显示系统当前目录下的文件列表。 常用属性常用属性 : Name:名称属性,缺省时为名称属性,缺省时为File1; Path:设置和返回文件列表中所显示文件的路径,为:设置和返回文件列表中所显示文件的路径,为运行态属性运行态属性注意注意:一般文件

12、列表框中显示当前目录之中的文件,即:一般文件列表框中显示当前目录之中的文件,即文件列表框文件列表框与目录列表框必须同步与目录列表框必须同步: .path=.path=.path.path Private Sub dir1_change()Private Sub dir1_change() file1.path=dir1.path file1.path=dir1.pathEnd SubEnd Sub此语句通常在目录此语句通常在目录列表框的列表框的Change Change 事件中执行事件中执行Dir1File1File1.path=E:File1.path=E:照照片片200611200611栖

13、霞山栖霞山 Visual Basic 程序设计程序设计12 Pattern:文件种类,设置文件列表框显示文件的种类文件种类,设置文件列表框显示文件的种类, 缺省为缺省为*.* 例:例: File1.Pattern=“*.txt ; *.frm” FileName:设置和返回文件列表框中显示的文件名称,为设置和返回文件列表框中显示的文件名称,为运行态运行态属性属性; 例:例: File1.fileName=“d:*.frm”ListCount:返回文件返回文件(驱动器、目录驱动器、目录)列表框中的所列项目的总数,列表框中的所列项目的总数,为为运行态属性运行态属性; ListIndex:设置或返回

14、当前控件上所选择项目的设置或返回当前控件上所选择项目的“索引值索引值”,为为运行态属性运行态属性,列表框中的第一项为,列表框中的第一项为0,第二项为,第二项为1,依次类推,若,依次类推,若文件列表框中一项也没有选定,则返回文件列表框中一项也没有选定,则返回-1; 注注: :若是给若是给filenamefilename赋值,可以带路径或包含通配符赋值,可以带路径或包含通配符, ,但但filenamefilename返回值时是不包含路径的返回值时是不包含路径的 print print file1.filenamefile1.filename Visual Basic 程序设计程序设计13常用事件常

15、用事件 PathChange: Path属性改变时引发该事件;属性改变时引发该事件; 注意:注意:在程序中,给文件列表框的在程序中,给文件列表框的Filename属性赋值,也会属性赋值,也会自动改变它的自动改变它的Path属性,触发本事件。属性,触发本事件。 file1.filename=“c:config.sys” PatternChange: Pattern属性改变时引发该事件;属性改变时引发该事件; Click:单击事件。单击事件。 Visual Basic 程序设计程序设计14文件属性文件属性:指定在文件列表框中显示某类属性的文件指定在文件列表框中显示某类属性的文件 ReadOnly:

16、只读属性,缺省值只读属性,缺省值True; Hidden:隐含属性,缺省值隐含属性,缺省值False ; System:系统属性,缺省值系统属性,缺省值False; Archive: 存档属性,缺省值存档属性,缺省值True ; Normal: 通常属性,缺省值通常属性,缺省值True;说明说明:当:当Normal属性为属性为True 时,时,System 、Hidden 文件不显文件不显示;示;当当Normal属性为属性为False 时时, 文件类型置为文件类型置为True的可显示。的可显示。 file1.normal=falsefile1.normal=false file1.system

17、=true file1.system=true Visual Basic 程序设计程序设计15组合使用文件管理控件组合使用文件管理控件为使文件管理控件协调工作,关键点是使驱动器、目录、文件为使文件管理控件协调工作,关键点是使驱动器、目录、文件列表框同步,通过下述两个事件过程实现:列表框同步,通过下述两个事件过程实现:保证目录列表框与驱动器列表框同步更新。保证目录列表框与驱动器列表框同步更新。保证文件列表框与目录列表框同步更新。保证文件列表框与目录列表框同步更新。来看个例子吧来看个例子吧例。例。Private Sub drive1_change()Private Sub drive1_chang

18、e() dir1.path=drive1.drive dir1.path=drive1.driveEnd SubEnd SubPrivate Sub dir1_change()Private Sub dir1_change() file11.path=dir1.path file11.path=dir1.pathEnd SubEnd Sub例:文件控件的组合使用。例:文件控件的组合使用。Private Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd Sub Private Sub Dir1_Change() File1.Path = Dir1.P

19、ath File1.Pattern = *.wmfEnd SubPrivate Sub File1_Click() Dim name As String If Right(File1.Path, 1) Then name = File1.Path & & File1.FileName Else name = File1.Path & File1.FileName End If Picture1.Picture = LoadPicture( name )End SubP134如如: :路径为路径为D: pl vbD: pl vb如如: :路径为路径为D:D:即处于根目录下即处于根目录下 Visu

20、al Basic 程序设计程序设计17 文件:文件: 所谓文件,是一组相关信息的集合,是存放在磁盘上一系列所谓文件,是一组相关信息的集合,是存放在磁盘上一系列相关的字节相关的字节. 文件访问类型:文件访问类型:顺序访问、随机访问和二进制访问;顺序访问、随机访问和二进制访问; 顺序文件:顺序文件: 即文本文件,以即文本文件,以ASCIIASCII码方式存储;码方式存储; 随机文件:随机文件: 也称记录文件,由用户定义的字段组成;也称记录文件,由用户定义的字段组成; 二进制文件:二进制文件: 可以存储任意希望存储的数据。可以存储任意希望存储的数据。8.1 8.1 文件处理文件处理 Visual B

21、asic 程序设计程序设计188.2 8.2 顺序文件顺序文件 以顺序方式存取的文件称为顺序文件,一般是文本文件;以顺序方式存取的文件称为顺序文件,一般是文本文件;特性:特性: 每行数据长度可以不同;每行数据长度可以不同; 增加数据时,只能添加到原有数据的最后;增加数据时,只能添加到原有数据的最后; 查找数据时,必须从头开始顺序查找。查找数据时,必须从头开始顺序查找。程序程序文件文件输入输入数据数据文件文件输出输出数据数据读文件方式读文件方式: :InputInput写文件方式写文件方式: :OutputOutputAppendAppend顺序文件的读写顺序文件的读写 Visual Basic

22、 程序设计程序设计19 顺序文件操作的一般步骤顺序文件操作的一般步骤:u 首先将文件首先将文件“打开打开”,通过,通过Open语句语句,将相关信息加载,将相关信息加载进内存,建立文件与内存中某个文件缓冲区的关联;进内存,建立文件与内存中某个文件缓冲区的关联;u 文件文件“存取存取”操作;操作; 1)1)写数据:用写数据:用Print # Print # 语句语句和和Write # Write # 语句语句向一个顺向一个顺序文件写数据。序文件写数据。 2)2)读数据:用读数据:用Input #Input # 和和Line Input #Line Input # 语句将顺序语句将顺序文件中的数据读

23、出给应用程序中的相应变量。文件中的数据读出给应用程序中的相应变量。u 最后最后“关闭关闭”文件,通过文件,通过Close语句语句,释放文件所占用的,释放文件所占用的文件缓冲区。文件缓冲区。 Visual Basic 程序设计程序设计208.2.1 顺序文件的顺序文件的写写操作操作1 1、打开文件、打开文件 格式格式 :Open Open For As # For As # 功能功能 :用指定的文件号以顺序输出模式或添加模式打开文件。:用指定的文件号以顺序输出模式或添加模式打开文件。 说明说明 :(1 1)文件名可以是字符串常量,也可以是字符串变量,文件名中)文件名可以是字符串常量,也可以是字符

24、串变量,文件名中可包含路径;可包含路径;(2 2)以)以OutputOutput方式打开文件,文件中原有的数据被覆盖;方式打开文件,文件中原有的数据被覆盖;(3 3)以)以AppendAppend方式打开文件,写入的数据将添加到文件的后面;方式打开文件,写入的数据将添加到文件的后面;(4 4)若指定的文件不存在,系统将创建一个相应的文件;)若指定的文件不存在,系统将创建一个相应的文件;(5 5)文件号的使用必须是唯一的,即当前已经占用的文件号不能)文件号的使用必须是唯一的,即当前已经占用的文件号不能再分配给其他文件使用;再分配给其他文件使用;(6 6)文件号文件号的使用范围是的使用范围是1-5

25、111-511;(7 7)一个文件在用)一个文件在用OutputOutput和和AppendAppend方式打开时,不能再重复打开方式打开时,不能再重复打开它;它; Visual Basic 程序设计程序设计211) Open Exam FOR Output AS #5 如果文件如果文件“Exam”Exam”不存在,则建立一个新文件,可以将数据写不存在,则建立一个新文件,可以将数据写入到文件中去。如果文件入到文件中去。如果文件“Exam”Exam”已存在,则该语句打开已存在的已存在,则该语句打开已存在的文件,新写入的数据将覆盖原来的数据。文件,新写入的数据将覆盖原来的数据。2) Open Ex

26、am FOR Append AS #5 如果文件如果文件“Exam”Exam”不存在,则建立一个新文件,否则打开已存在不存在,则建立一个新文件,否则打开已存在的名为的名为“Exam”Exam”的文件,新写入的数据添加到文件的后面,原来的的文件,新写入的数据添加到文件的后面,原来的数据仍然存在。数据仍然存在。P181举举 例例 Visual Basic 程序设计程序设计22例例1:Open “D:vbTest.txt” For Output as #1例例2:Dim sFileName As String sFileName=“D:vbTest.txt” Open sFileName For A

27、ppend As #100例例3:Open “File1” For OutPut As #9 Open “File2” For Output As #9例例4:For I=1 to 10 Open “File1” For Append As #10 Next I以相同的文件号打开以相同的文件号打开两个不同的文件两个不同的文件在文件未关闭前在文件未关闭前又重复打开又重复打开 错误在哪里?错误在哪里? Visual Basic 程序设计程序设计23、Print 语句语句格式格式:Print ,功能功能:将输出列表中的语句写到顺序文件中。:将输出列表中的语句写到顺序文件中。说明说明:该语句和普通的:

28、该语句和普通的Print语句的输出控制格式完全相同,也语句的输出控制格式完全相同,也分紧凑和标准两种。分紧凑和标准两种。(1)(1)标准格式输出标准格式输出:用:用逗号逗号“,”作为分隔符,输出的数作为分隔符,输出的数据按标准格式写到文件中。据按标准格式写到文件中。(2) (2) 紧凑格式紧凑格式输出:用输出:用分号分号“;”作为分隔符,则按紧作为分隔符,则按紧凑格式将数据写到文件中。凑格式将数据写到文件中。 Visual Basic 程序设计程序设计24Private Sub Command1_Click() Dim i As Integer, a(10) As Integer Open d

29、:test.txt For Output As #1 For i = 1 To 10 a(i) = Int(Rnd * 100) + 100 Print a(i); Print #1, a(i); Next i Print Print #1, Close #1End SubOutputAppend? Visual Basic 程序设计程序设计253 Write语句语句格式格式:Write ,功能功能:将输出列表中的语句写到顺序文件中。:将输出列表中的语句写到顺序文件中。说明说明:Write语句和语句和Print语句的功能基本相同,它们之间的差别语句的功能基本相同,它们之间的差别主要在:主要在:

30、(1)Write语句写入的数据按照语句写入的数据按照紧凑格式紧凑格式存放,各数据项之间自存放,各数据项之间自动插入动插入逗号逗号作为分隔符;作为分隔符;(2)Write语句写入的字符串数据自动加上语句写入的字符串数据自动加上双引号双引号作为限界符。作为限界符。Private Sub Command2_Click() Open d:test.txt For Output As #12 Write #12, 1, -2, 3, ABC Write #12, Write #12, 5, 6, 7, DEF Close #12End Sub例:例:1,-2,3,”ABC”5,6,7,”DEF”上述程序

31、执行后,上述程序执行后, TEST.TXTTEST.TXT文件文件中的数据为:中的数据为:插入空行插入空行 Visual Basic 程序设计程序设计26Private Sub Command2_Click() Dim i As Integer, a(10) As Integer Open d:test.txt For Output As #1 For i = 1 To 10 a(i) = Int(Rnd * 100) + 100 Print a(i); Write #1, a(i), Next i Print Write #1, Close #1End SubOutputAppend? Vi

32、sual Basic 程序设计程序设计274、关闭文件、关闭文件格式格式:Close #功能功能:关闭指定的文件号对应的文件。:关闭指定的文件号对应的文件。说明说明:(1)该语句适用于任何文件;该语句适用于任何文件;(2)语句中可以包含多个文件号,文件号之间用逗号分隔;语句中可以包含多个文件号,文件号之间用逗号分隔;(3)若语句中缺省文件号参数,则关闭所有用若语句中缺省文件号参数,则关闭所有用Open语句打开的文件;语句打开的文件;(4)当应用程序结束时,会自动关闭所有文件。当应用程序结束时,会自动关闭所有文件。例例1:Close #1,#2例例2:Close5、关闭所有文件、关闭所有文件格式

33、格式: Reset功能功能:关闭所有用:关闭所有用Open语句打开的文件。语句打开的文件。说明说明:适用于任何文件。:适用于任何文件。 Visual Basic 程序设计程序设计288.2.2 8.2.2 顺序文件的顺序文件的读读操作操作 当一个文件存在时,可以对它进行读操作。读操作分为两种,当一个文件存在时,可以对它进行读操作。读操作分为两种,一种是一个数据一个数据地读,另一种是一行数据一行数据地读。一种是一个数据一个数据地读,另一种是一行数据一行数据地读。1、打开文件、打开文件格式格式:Open For Input As 功能功能:用指定的文件号以顺序输入模式打开文件。:用指定的文件号以顺

34、序输入模式打开文件。说明说明:以:以Input方式打开的文件,只能进行方式打开的文件,只能进行读读操作。操作。 Visual Basic 程序设计程序设计292、Input 语句语句格式格式:Input ,变量表变量表功能功能:从一个打开的顺序文件中读取数据,并将它们赋值给相应:从一个打开的顺序文件中读取数据,并将它们赋值给相应的变量。的变量。 说明说明 :(1 1)变量表可以包含简单变量和数组元素,变量之间用)变量表可以包含简单变量和数组元素,变量之间用逗号逗号间隔,间隔,变量类型必须与文件中的数据项的变量类型必须与文件中的数据项的类型一致类型一致;(2 2)从顺序文件中读数据时,要从头开始

35、,依次读出,若数据类)从顺序文件中读数据时,要从头开始,依次读出,若数据类型和变量类型不一致,则赋一个初值给对应的变量;型和变量类型不一致,则赋一个初值给对应的变量;(3 3)从顺序文件读数据时,忽略前导空格、回车符、换行符;)从顺序文件读数据时,忽略前导空格、回车符、换行符;(4 4)读取数值型数据时,以其后的)读取数值型数据时,以其后的第一个空格或逗号或回车换行第一个空格或逗号或回车换行符符作为结束;作为结束;(5 5)读取字符型数据时,以)读取字符型数据时,以第一个不在双引号里的逗号或回车换第一个不在双引号里的逗号或回车换行符行符作为结束;作为结束;(6 6)逻辑型和日期型数据以)逻辑型

36、和日期型数据以# #号作为起始符和结束符号作为起始符和结束符, ,要求大写;要求大写; Visual Basic 程序设计程序设计30Test1.txt 中数据:中数据:34 45 78 789A=34,B=45,C=78,St=“789”举举 例例Private Sub Command3_Click() Dim A As Integer, B As Integer, C As Integer Dim St As String Open d:test1.txt For Input As #2 Input #2, A, B, C, St Print A, B, C, St Close #2End

37、 Sub Visual Basic 程序设计程序设计313 3、Line Input语句语句格式格式:Line Input ,功能功能:将顺序文件以行为单位读出并赋值给一个变量。:将顺序文件以行为单位读出并赋值给一个变量。说明说明 :(1 1)变量为)变量为字符型变量字符型变量,或字符型数组元素,或变体型变量;,或字符型数组元素,或变体型变量;(2 2)将数据行中除回车符和换行符以外的所有字符都赋值给相)将数据行中除回车符和换行符以外的所有字符都赋值给相应的变量。应的变量。 Visual Basic 程序设计程序设计32Private Sub Command4_Click() Dim i As

38、 String Open d:test.txt For Input As #3 Do While Not EOF(3) Line Input #3 , i Print i Loop Close #1End Sub Visual Basic 程序设计程序设计338.2.3 使用外部程序处理顺序文件使用外部程序处理顺序文件顺序文件的应用顺序文件的应用 顺序文件的应用体现在两方面顺序文件的应用体现在两方面: :(1 1)从文件中读取原始数据并)从文件中读取原始数据并提供给程序处理提供给程序处理: :(2 2)将程序处理结果存放到文件中。)将程序处理结果存放到文件中。例:例:数据文件数据文件Test1

39、.TxtTest1.Txt有有1010个同学的成绩个同学的成绩,格式如下:,格式如下: 学号,英语成绩,数学成绩,计算机成绩,化学成绩学号,英语成绩,数学成绩,计算机成绩,化学成绩要求:统计每个学生的不及格门数,并将不及格门数超过要求:统计每个学生的不及格门数,并将不及格门数超过1 1门(门(1)1)的学生学号和不及格门数写入到文件的学生学号和不及格门数写入到文件Test2.TxtTest2.Txt中。中。 程序程序 :读取读取原始数据:原始数据: Dim a(10, 5) As Integer Open d:test1.txt For Input As #1 For i = 1 To 10

40、For j = 1 To 5 Next j Next iInput #1, a(i, j) Visual Basic 程序设计程序设计34统计不及格门数并统计不及格门数并写入写入目标文件目标文件:Open d:test2.txt For Output As #2For i = 1 To 10 s = 0 For j = 2 To 5 If a(i, j) 1 Then Print a(i, 1), s End If Next ICloseWrite #2, a(i, 1), s Visual Basic 程序设计程序设计35补充:其他控件补充:其他控件l1 1、组合框(、组合框(ComboBoxComboBox)l2 2、滚动条(、滚动条(ScrollBarScrollBar)

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 办公、行业 > 各类PPT课件(模板)
版权提示 | 免责声明

1,本文(VB文件课件.ppt)为本站会员(三亚风情)主动上传,163文库仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。
2,用户下载本文档,所消耗的文币(积分)将全额增加到上传者的账号。
3, 若此文所含内容侵犯了您的版权或隐私,请立即通知163文库(发送邮件至3464097650@qq.com或直接QQ联系客服),我们立即给予删除!


侵权处理QQ:3464097650--上传资料QQ:3464097650

【声明】本站为“文档C2C交易模式”,即用户上传的文档直接卖给(下载)用户,本站只是网络空间服务平台,本站所有原创文档下载所得归上传人所有,如您发现上传作品侵犯了您的版权,请立刻联系我们并提供证据,我们将在3个工作日内予以改正。


163文库-Www.163Wenku.Com |网站地图|