1文件的层次.ppt

1、文件,1文件的层次,C:Program FilesWinZipWINZIP32.EXE,每个文件必然存在路径 如果没有指定路径，则必然存在一个缺省路径,1文件的层次,打开 “aa.txt” 问题没有指出文件所在的路径,则打开目前系统缺省（工作）目录下面的文件 如果在该目录下找不到相应文件，则报错,缺省（工作）目录 =工作驱动器+工作驱动器下的工作目录,1文件的层次,问题1：如何获得当前系统的工作目录,CurDir 函数 返回一个 Variant (String)，用来代表当前的路径。,例：Print CurDir,1文件的层次,问题2：如何设置当前系统的工作目录,设置：工作驱动器 设置：工作驱

2、动器下的工作目录,1文件的层次 设置：工作驱动器,ChDrive 语句改变当前的驱动器。,语法 ChDrive drive 必要的 drive 参数是一个字符串表达式，它指定一个存在的驱动器。,如果使用零长度的字符串 (“”)，则当前的驱动器将不会改变。 如果 drive 参数中有多个字符，则 ChDrive 只会使用首字母。,例：ChDrive “d:windows”设置d盘为当前工作驱动器,1文件的层次 设置：工作驱动器下的工作目录,ChDir 语句改变某个驱动器下当前的目录或文件夹。,语法ChDir path 必要的 path 参数是一个字符串表达式，它指明哪个目录或文件夹将成为新的缺省

3、目录或文件夹。,path 可能会包含驱动器。 如果没有指定驱动器，则 ChDir 在当前的工作驱动器上改变缺省目录或文件夹。,1文件的层次,例: ChDrive “d:windows”设置d:为当前工作驱动器,ChDir “temp”设置当前驱动器（d）下的temp为当前工作目录,说明 ：ChDir 语句改变缺省目录位置，但不会改变缺省驱动器位置。,例:ChDrive “d:windows”ChDir “temp” 设置d:temp为当前工作目录,ChDir “F:fire”,设置f盘下的工作目录为fire 但是，当前工作驱动器为d盘，所以当前的工作目录依然是d:temp,ChDrive “F

4、”,设置当前工作驱动器为F， f盘下的工作目录为fire，所以当前工作目录“F:fire”,回顾:列表框 （ListBox）,列表框用于列出可供用户选择的项目表列。用户用鼠标单击，被选中的工程即可加亮显示；当表列项目很多时，列表框还会附加一个垂直滚动条。,属性 List：表属性。用于取得或设置指定列表项的文本内容。使用以下形式来访问表列： 对象名. List ( 列表项序号 ) 其中的对象名即为列表框的Name属性值；列表项的序号由上到下依次为0、1、2、3.,回顾:列表框 （ListBox）,ListCount：列表项数目。ListIndex：列表项索引。其值为最后选中的列表项序号，第一个列

5、表项的序号为0，如果未选任何项目，则其值为-1；,2关于文件的三个控件,驱动器列表框 目录列表框,文件列表框,常用属性 Name：通常采用“Drv”作为驱动器列表的前缀；缺省时，属性值为“Driver1” Drive属性：是在程序运行中所使用的属性，用于返回用户在驱动器列表框中选取的驱动器,从驱动器列表框中选择驱动器并不能自动的变更当前的工作驱动器；但是可以将驱动器列表框的Drive属性，作为ChDrive语句的操作数在操作系统级改变工作驱动器 ChDrive Drive1.Drive,2文件管理控件 一、驱动器列表框,2文件管理控件 一、驱动器列表框,在应用程序中，可以通过赋值语句改变Dri

6、ve属性值，从而指定出现在列表框顶端的驱动器 Drive1.Drive=“C:”,程序运行时，只能通过鼠标选择，在控件中决定drive的值,2文件管理控件 一、驱动器列表框,常用事件 Change：驱动器列表框中最常用的事件； 每当用户在驱动器列表框的下拉列表中选择一个驱动器 赋值语句改变Drive属性值， 就会改变列表框顶端显示的驱动器名，Change事件发生，激活Change事件过程,2文件管理控件 二、目录列表框,常用属性 Name：通常采用“Dir”作为前缀；缺省时，属性值为“Dir1” Path属性：是在程序运行中所使用的属性，用于设置和返回目录列表框中当前选中的目录,在应用程序中，

7、可以通过赋值语句改变Path属性值，Dir1.path=“C：” 或者 双击目录列表框中某一项改变Path属性值（单击突出显示） 目录列表框初始显示工作（缺省）驱动器上的工作（缺省）目录。,2文件管理控件 二、目录列表框,常用事件 Change： 双击目录列表框中的目录项， 或在程序代码中通过赋值语句改变Path值，激活Change事件过程,2文件管理控件 三、文件列表框,常用属性 Name：通常采用“File”作为前缀；缺省时，属性值为“File1”,Path属性：是在程序运行中所使用的属性，用于设置和返回文件列表框中所选中文件的路径,在应用程序中，可以通过赋值语句改变Path属性值，Fil

8、e1.Path=“C：Windows” Path值发生变化时，引发PathChange事件，同时文件列表框中内容被更新,2文件管理控件 三、文件列表框,FileName属性：是在程序运行中所使用的属性， 用于设置文件列表框中显示的文件名，同时改变Path属性值，或返回文件列表框中突出显示的文件名,一个文件的位置= Path + FileName,在应用程序中，可以通过赋值语句改变FileName属性值 File1.FileName=“C：Windows*.EXE”,File1.FileName=“C：Windows*.EXE” 没有指定具体的文件,2文件管理控件 三、文件列表框,Path fi

9、lename pattern,File1.FileName=“C：Windowswin.ini”,引发path_change事件,引发pattern_change事件,没有 引发path_change事件,引发pattern_change事件,2文件管理控件 三、文件列表框,Pattern属性：设置在程序运行时文件列表框要显示的文件类型，可在属性窗口中设置，缺省值为“*.*” File1.Pattern=“*.EXE; *.frm” *任意个字符 ？一个字符,Pattern值发生变化时，引发PatternChange事件，同时文件列表框中内容被更新,2文件管理控件 三、文件列表框,常用事件 P

10、athChange：Path属性值发生变化时，本事件发生，激活本事件过程，引起Path变化的情况： File1.Path=“C：Windows” File1.FileName=“C：Windows*.EXE”PatternChange： Pattern属性值发生变化时，PatternChange事件发生，激活本事件过程,四、三个列表框的协同工作,每次开始运行的时候，三个列表框互不相干： Dirve1.Drive=系统工作（缺省）驱动器 Dir1.Path=工作驱动器下的工作（缺省）目录,File1.Path=工作驱动器下的工作（缺省）目录 File1.FileName=“”,如何让各个控件相互

11、影响？,四、三个列表框的协同工作 Change事件,通过鼠标改变驱动器的取值,引发 drive1_change事件,Dir1.Path = Drive1.Drive,引发 dir1_change事件,File1.Path = Dir1.Path,引发 File1_PathChange事件,放置drive1,dir1,file1三个控件,完成三个控件的协同 Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub,四、三

12、个列表框的协同工作,要访问文件列表框中选定的文件，必须指明文件的位置file1.path，文件名file1.filename,一个完整的文件情况包括：Path和FileName,问题： File1.path 可能： “C:” “C:windows”,File1.filename + “111.txt”,=,“C: 111.txt” “C: windows 111.txt”,四、三个列表框的协同工作,添加下面的代码：,Dim Picname As String If Right(File1.Path, 1) “ ThenPicname = File1.Path & “ & File1.FileN

13、ame Else Picname = File1.Path & File1.FileName End If,2文件管理控件 四、三个列表框的协同工作,如果程序中有可能出现： File1.FileName= “C：Windows*.EXE”,引发 File1_PathChange事件,Dir1.Path = File1.Path,引发 dir1_change事件,Drive1.Drive = Dir1.Path,引发 Drive1_Change事件,2文件管理控件 四、三个列表框的协同工作,利用三个文件控件的组合删除选定的文件,删除文件：Kill 语句,语法: Kill pathname 必要的

14、 pathname 参数是用来指定一个文件名的字符串表达式。,Kill 支持多字符 (*) 和单字符 (?) 的统配符来指定多重文件。,将当前工作目录下所有 *.TXT 文件全部删除。Kill “ *.TXT “,2文件管理控件 四、三个列表框的协同工作,要删除文件列表框中选定的文件 Kill file1.path+file1.filename,一个文件的位置=Path+FileName,问题： File1.path 可能： “C:” “C:windows”,+ “111.txt”,=,正确 错误,2文件管理控件 四、三个列表框的协同工作,添加下面的代码：,Dim fname As Strin

15、g If Right(File1.Path, 1) “ Thenfname = File1.Path & “ & File1.FileName Else fname = File1.Path & File1.FileName End If,Kill fname File1.Refresh 刷新文件框,2文件管理控件 四、三个列表框的协同工作,其他： 重命名一个文件： Name 源文件名 As 新文件名 复制一个文件： FileCopy source, destination 移动一个文件先复制，后删除,文件处理,访问文件的类型 顺序型 ：适用于读写连续块中的文本文件，文件中的数据是以ASCII

16、方式存储，只能顺序、成块的被读取 随机型 ：适用于读写有固定长度记录结构的文本文件或二进制文件，数据以二进制方式存储，允许任何时候访问文件的任何地方 二进制型 ：适用于读写任意有结构的文件，不能随意定位读写数据，只能顺序、成块的读取,文件处理,文件存取的步骤： 用Open语句打开文件，并为文件指定一个文件号，程序根据文件的存取方式使用不同的模式打开文件 从文件中将全部或者部分数据读取到变量中 使用、处理或者改变变量中的数据 将变量中的数据写入到文件中 文件操作结束，使用Close语句关闭文件,在文件中存在着一个看不到的指针，他代表着读取/写文件内容的位置,总是指向下一次操作的开始位置每次打开一

17、个文件，指针初始值为1，注意三种类型文件的指针的单位不同,顺序文件基本单位是一个字符 随机文件基本单位是一个记录 二进制文件基本单位就是一个字节,文件的指针,顺序文件,是一系列ASCII码格式的文本行，文件中的数据是按顺序组织的，与文档中出现的顺序相同。每行长度是可变的。访问方式只能是顺序方式。 访问步骤： 打开文件：Open语句实现 读写文件： 写数据：Print #、Write #语句实现 读数据：Input #、Line Input #语句、Input（）函数实现 关闭文件：Close语句实现 在用另一种模式打开文件前，必须选关闭,顺序文件打开/关闭文件,Open 文件名 For Inp

18、ut as # 文件号 Output Append Input顺序输入模式，只能读取文件的内容 Output顺序输出模式，覆盖式往文件中写入数据 Append保留文件中原有内容，在文件尾添加式写入数据 Close #文件号1，#文件号2关闭指定的文件，缺省情况下，关闭所有用OPEN打开的文件,字符串表达式，指定文件名，该文件名可能还包括目录、文件夹及驱动器。可以同时用同一(读）模式多次打开同一个文件，所以唯一区分它们的是文件号，它们必须在同时打开的文件中唯一，范围在 1 到 511 之间,OPEN（1）,例：open “aaa.txt” for input as #1open “aaa.txt

19、” for input as #2打开文件两次，文件号分别为1，2 文件的位置在哪里？ 在系统工作（默认）目录（ c:windows）下面 Open “c:windowssystem.ini” for input as #3,Open（2）,问题1、如果指定的文件不存在，怎么办？ 问题2、同时以input,output方式打开两遍，会引起数据不一致的问题,怎么办？ 解决1、以output、append方式打开，则自动创建一个，如果以input方式，则报错 解决2、在output、append方式打开该文件之前，或在其打开后到关闭之前，禁止用任何方式再打开文件,Open(3),Open “aaa

20、.txt” for input as #1 Open “aaa.txt” for input as #2 Open “aaa.txt” for output as #3 报错，之前aaa.txt已经打开过，而且还没有被关闭。 Close #1,#2 关闭1，2号文件 Open “aaa.txt” for output as #4 正确，打开之前的aaa.txt已经被关闭了,Print #语句 功能：将一个或多个数据写入顺序文件 格式：Print #文件号, 输出列表 说明：可省略输出列表，但逗号不能省略。表示输出空行或回车换行符 例： Open “D:Test.TXT” For Output

21、As #1 Print #1, 1,2,3 Print #1,”We”；”study”；”VB” Close #1,顺序文件写操作,顺序文件写操作,标准格式：Print #语句中，用逗号，作为输出项之间的分隔符 每行5个输出区，每区14列Open “d:test.txt“ For Output As #1 Print #1, 1, -2, 3 Print #1, “We“, “study“, “VB5.0“ Close #11 -2 3 We study VB,文件中的各数据分别存储在各自的标准输出区内，数据之间留有一定的空格字符，数据划分非常明显（读取数据容易），但占据的磁盘空间较多 对于一

22、个数值型数据，前面有一个符号位（对于正号，不显示但留有一个空格），数据后留有一个空格作为分隔符,顺序文件写操作,紧凑格式：Print #语句中，用分号；作为输出项之间的分隔符Open “d:test.txt“ For Output As #1 Print #1, 1; -2; 3 Print #1, “We“; “study“; “VB“ Close #11 -2 3 WestudyVB,文件中的各数据紧凑地存储，节省空间 对于一个数值型数据，前面有一个符号位（对于正号，不显示但留有一个空格），数据后留有一个空格作为分隔符 对于字符串数据，输出的各字符串数据件没有空格而连成一片，造成读取数据的

23、困难,顺序文件写操作,采用节约空间的紧缩格式输出到文件，对于字符串数据人为加入逗号，分隔符，解决读取问题 Print #1, “We“; “,“; “study“; “,“; “VB“ 为能正确读出本身含有逗号、双引号及前后空格的字符串，常用双引号作字符串定界符（Chr(34)是双引号） A=“ABC ,BEF” Print #1,Chr(34);A;Chr(34),顺序文件写操作,Write #语句 功能：与Print #一样将数据写入文件 语句：Write #文件号, 输出表列 说明： 输出表列是一个由一个或多个用逗号分隔的数值表达式、字符串表达式 与Print #语句的区别： 数据以紧凑

24、格式存放，数据间自动插入逗号，作为分隔符 自动为字符串数据加上双引号作定界符 正数前不留符号位空格,顺序文件的读操作,Input #语句 功能：从一个打开的顺序文件中读出数据，并将数据相应赋值给变量。 语法：Input #文件号,变量表 说明： 变量表：多个变量要用逗号分隔，可以是：简单变量、数据元素、用户自定义变量。 对应的数据类型要一致。但若变量为数值型的，读出数据是非数值型，则赋0值,顺序文件的读操作,Input #语句读数的规则： 忽略数据前导：空格、回车、换行符 数值型：数据后的第一个空格、逗号、回车作为数据结束符 字符型：把数据后第一个不在“”内的逗号、回车、换行符作为数据的结束

25、注：建议用Write #写入数据，能确保各数据能明显分开,将C:Test.dat的文件内容： This is File Test.Dat,-2365,4893,#TRUE# 显示在屏幕上,Option Explicit Private Sub Form_Click()Dim Ch As String, X As Integer, Y As Integer, Logic As BooleanDim Filenumber As IntegerFilenumber = FreeFile 该函数用于返回一个可用文件号Open ”c:test.dat” For Input As #FilenumberI

26、nput #Filenumber, Ch 从打开的顺序文件中读取数据赋给相应变量Input #Filenumber , X, Y, LogicPrint Chr Print X, Y, Logic Close End Sub,Open App.Path + “test.dat” For Input As #Filenumber,顺序文件的读操作,Line Input #语句 功能：从打开的顺序文件中，读出一行数据赋给一个字符型变量或变体变量 语法：Line Input #文件号,变量名 说明： 读出的数据以行为单位，通常用于Print写入的数据。 不包含行中的： 回车：Chr(13) 回车换行

27、符：Chr(13)+Chr(10),顺序文件的读操作,Option Explicit Private Sub Form_Click( )Dim L As String,Filenum As IntegerDim Str As StringFilenum=FreeFileOpen “c:test.dat” For Input As #FilenumDo While Not EOF(Filenum) 测试文件指针是否到文件尾Line Input #Filenum, L 读取一行数据给一个字符型变量Str=Str+L+Chr(13)+Chr(10)LoopText1.Text=Str End Sub

28、,顺序文件的读操作,Input函数 功能：以字符串形式返回以某个以Input或Binary模式打开的文件中读出的一个或多个字符 语法：Input(n,#文件号) 说明： n:是数值表达式，指一次读出的字符个数 包含前导空格、逗号、双引号、回车符、回车换行符。,顺序文件的读操作,将c:test.dat文件内容全部读入d:testcopy.dat文件中 Private Sub Form_Click()Dim T As String , N As Long , I As IntegerOpen “c: test.dat “ For Input As #20N = LOF(20) 该函数测试文件的长度

29、T = Input(N, #20) 字符串形式返回从该文件中读出的N个字符Open “ d:testcopy.dat “ For Output As #25Print #25, T 往打开的文件中写入数据Close 20, 25 End Sub,10.1.5相关函数和语句,1. FreeFile函数 格式：FreeFile 功能：返回一个系统中未使用的文件号。 说明：使用该函数产生文件号，可以避免在程序中出现文件号 的冲突 2. Loc函数 格式：Loc（文件号） 功能：返回由“文件号”指定的文件的最近一次的读写位置。 说明：对于随机文件，Loc函数返回上一次读或写的记录号；对 于顺序文件，L

30、oc函数返回自文件打开以来读或写的记录个数,10.1.5相关函数和语句(续),3. LOF函数 格式：LOF（文件号） 功能：返回文件的长度（字节数） 4. EOF函数 格式：EOF（文件号） 功能：判断文件指针是否到达文件末尾。 说明：对于顺序文件，当文件指针到达文件的最后一个字符或 数据时，EOF函数返回True，否则返回False；对于随机文件和 二进制文件，当最后一次执行Get语句无法读出完整的记录时， EOF函数返回True，否则返回False,10.1.5相关函数和语句(续),5. Seek函数 格式：Seek（文件号） 功能：返回由“文件号”指定的文件的当前读写位置 说明：Loc

31、函数返回最近一次读写的位置，因此，Seek函数的返回值为Loc函数返回值加1 6. Seek语句 格式：Seek #文件号，位置 功能：设置下一个读写位置 说明：对于顺序文件，“位置”指的是字节数；对于随机文件来 说，“位置”指的是记录号。若位置超出文件长度时，系统自动 扩展该文件,随机生成10个正整数保存到文件PRIME.DAT中，读取这些整数，判断是否是素数，若是将判断结果显示在窗体上,写入数据 读取数据 随机整数 素数的判断,顺序文件的修改与删除,步骤： 用Open、Append方式建立一个临时文件 读出原文件中的数据 修改其数据 写入临时文件 处理完所有数据后，用Kill删除原文件 用

32、Name语句更改临时文件名为原名 或： 关闭后重新打开两文件 读出临时文件数据，写入(覆盖)原文件,随机文件处理,由一组长度相等的记录具有下列特点： 记录定长 记录包含一个或多个字段(域) 可读写 可访问任何一条记录(不必按顺序) 随机文件处理步骤： 声明处理文件数据的变量 打开文件(Open) 读/写(Put #/Get #) 关闭(Close),随机文件声明变量,定义记录类型 随机文件具有多个字段时要声明，声明的变量与随机文件的记录域一一对应。 格式：在标准模式块中（或在窗体模块的通用部分Private）声明 Type 用户自定义类型名 变量名1 As 类型 . . . . . . End

33、 Type 变量的类型可以是标准变量、用户自定义变量类型,随机文件声明变量,例： Type recordtypestu_id As String * 7name As String * 8sex As String * 2 End Type,记录1,记录2,stu_id name sex,随机文件的打开,功能：打开随机文件 Open 文件名 For Random As # 文件号 Len=记录长度 说明： 缺省为Random模式，可以省略For语句 Len：打开随机文件的记录长度 Len实际长度：正常存取，浪费空间 Len实际长度：产生错误,随机文件的打开,例：打开一个名为“abc.txt”的

34、随机文件 Type recordtype 标准模块中的通用部分定义stu_id As String * 7name As String * 8sex As String * 2 End Type Private person As recordtype在窗体模块中书写 Private Sub Command1_Click()Dim i As IntegerOpen “c:abc.txt“ For Random As #1 Len = Len(person) End sub,随机文件的写操作,功能：将变量写到打开的随机文件或二进制访问的文件中去 Put #文件号, 记录号, 变量 说明： 记录号

35、：可选。可以是整型常数、已赋值的变体变量、长整型变量。范围1231-1 记录号是写入记录的编号;省略记录号，写入刚刚Get #或Put #语句读写过的记录的下一条记录位置，或Seek语句所指定的位置。此时逗号不能省略 变量名：是包含要写入文件中的数据的变量名称 类型与记录类型一致 多字段记录必须是用户自定义变量,Private person As recordtype Private Sub Command1_Click()Dim i As IntegerOpen “c:abc.txt“ For Random As #1 Len = 17i = 1 Do while true person.s

36、tu_id = InputBox(“请输入学号：“)If Trim(person.stu_id) = “ Then Exit doperson.name = InputBox(“请输入姓名：“)person.sex = InputBox(“请输入性别：“)Put #1, i, person i = i + 1 Loop Close #1 End Sub,Type recordtypestu_id As String * 7name As String * 8sex As String * 2 End Type,随机文件的读操作,Get #语句 功能：将打开文件中的数据读到变量中 语法：Get

37、#文件号,记录号,变量,Dim a As String * 7 Open “abc.txt” For Random As #2 Len = 17 a = InputBox(“请输入要查找的学号：”) j = 1 Do While Not EOF(2) Get #2, j, person If person.stu_id = a Then Print stu_id, person.name, person.sex Exit Do End If j = j + 1 Loop If j LOF(2) / Len(person) Then Print “无此学号！” End If Close #2,T

38、ype recordtypestu_id As String * 7name As String * 8sex As String * 2 End Type,增加、删除随机文件中的记录,增加记录(添加记录) 求最后一条记录号 末记录号=文件长度/记录长度 文件长度=EOF(文件号) 记录长度=Len(记录型变量) 添加记录的号=末记录号+1 删除记录 方法1：把要删除记录的下一条记录写入到要删除的记录位置，其后所有记录依次前移。但最后两条记录相同(记录数不变) 方法2：打开一临时文件，将不删除的记录逐条写入；删除原文件，重新命名临时文件名,二进制文件,打开文件： Open “文件名” FOR

39、Binary As #文件号 写操作 Put #文件号，位置，变量 读操作 Get #文件号，位置，变量,实验13 -7,Option Explicit Private Sub Form_Click()Dim b As String * 12, a$, c As IntegerOpen “file3.txt“ For Binary As #1 start:a$ = InputBox(“enter students name:“)If Trim(a$) = “ Then GoTo displayc = Val(InputBox(“enter score:“)b = a$Put #1, , bPu

40、t #1, , cGoTo start,display:Seek #1, 1Do While Not EOF(1)Get #1, , bGet #1, , cPrint b, cLoopClose #1 End Sub,1.要实现驱动器列表框、目录列表框及文件列表框之间数据的同步，须在驱动器列表框和目录列表框的Change事件分别添加以下代码?A. Dir1.Path=Drive1.Drive File1.Path=Drive1. DriveB. Dir1.Path=Drive1. Drive File1.Path=Dir1.PathC. File1.Path=Drive1. Drive Di

41、r1.Path=Drive1. DriveD. File1.Path=Dir1.Path Dir1.Path=Drive1. Drive,练习,B,2.语句Open”Mjq.Txt” For Input As #Freefile”表示? 打开一二进制文件”Mjq.Txt”，为读数据做准备 打开一顺序制文件”Mjq.Txt”，为读数据做准备打开一随机文件”Mjq.Txt”，为写数据做准备 D. 打开一随机文件”Mjq.Txt”，为读数据做准备,3.利用? 函数可以判断在访问文件时是否已经到达了文件尾？ A. LOF B. LOC C. EOF D. BOF,C,B,4.用下列哪个代码段可以实现向

42、顺序文件Test.Date写入数据? A. Open “Test.Date” for Input As # 10Print # 10, 1, 2, 3, 4, 5, 6Close 10 B. Open “Test.Date” for Output As # 10Put #10, 1, 2, 3, 4, 5, 6Close 10 C. Open “Test.Date” for Append As # 10Write # 10, 1, 2, 3, 4, 5, 6Close 10 D. Open “Test.Date” for Output As # 10Input # 10, 1, 2, 3, 4

43、, 5, 6Close 10,C,5.用Write和Input语句向文件中写入多个数据的差别在于? Write语句将自动加入逗号分隔符 Input语句将自动加入逗号分隔符Write语句将自动加入回车 Input语句将自动加入回车,6.以下语句用于打开一个顺序文件Open “C:MyFile.txt” For OutPut 但该语句的一个重要错误是没有 ?A.指定打开方式 B.指定文件号 C.指定打开文件名 D.指定文件类型,A,B,7.随机型文件以什么单位来进行文件读取? _ A.字节 B. 字符 C.整个文件 D.记录,8. 对一个二进制文件，读/写操作的基本单位是 _. A.一个字节 B.

44、一个记录 C.一个数据长度 D.整个文件,9.语句 Open “Exam.Txt” For Input As # Freefile表示：_. A.打开一随机文件“Exam.Txt”，为读数据做好 准备 B.打开一顺序文件“Exam.Txt”，为读数据做好准备 C.打开一二进制文件“Exam.Txt”，为读数据做好准备 D.这是一个错误语句,10.在 Visual Basic 中打开一个顺序文件时,可以采用 种打开方式? A. 1 B. 2 C. 3 D. 4,11下面能够正确打开的一组语句是：_. A. Open “Data1” for Output As # 1Open “Data2” fo

45、r Input As # 1 B. Open “Data1” for Output As # 1Open “Data2” for Input As # 2 C. Open “Data1” for Input As # 1Open “Data1” for Input As # 2 D. Open “Data1” for Input As # 1Open “Data1” for Random As # 2,12.编制程序，其功能是：从文件m1.in中读取10个x的值，根据公式求出相应的y值，并把结果y输出到m1.out中，每行记录一个结果。 要求： （1）新建工程，输入以下代码，改正程序中的错误；

46、 （2）改错时，不得增加或删除句子； （3）以“m1.frm”和“m1.vbp”的名字分别将窗体和工程保存到A:的根目录。,Private Sub Command1_Click()Open “m1.in“ For Input As #1Open “m1.out“ For Input As #2 For k = 1 To 10Input #1, xWrite #2, yPrint “x=“; x, “y=“; yNext kClose #1: Close #2 End Sub Public Function fy(x)If x = 0 And x = 2 And x = 4 And x 6 Th

47、enfy = Sin(x - 2) + (x - 1) 2Elsefy = Cos(x / 2)End If End Function,从文件m1.in中读取10个x的值，根据公式求出相应的y值，并把结果y输出到m1.out中，每行记录一个结果,open “m1.out“ For Output As #2 Write #2, fy(x) Print “x=“; x, “y=“; fy(y),13已知顺序文件jm.dat中存储有一段文字的密码，加密的方法是把文字中的ASCII码加上或减去一个1254之间的随机常数，再存储变化后的数值。以下是一个解密程序，阅读下面程序，请在空格 处填上正确内容。

48、Private Sub Command1_Click()For i = 1 To 254Open App.Path & “jm.dat“ For Input As #10Do19code = n + iIf code 255 Then code = code - 255Print 20Loop Until EOF(10)Close #10K$ = InputBox(“Correct?(Y/N)“)If K$ = “Y“ Or K$ = “y“ Then Exit 21Next i End Sub,Input #10, n,Chr$(code),For,14. Private Sub Form_Click()Dim a,b As Integer, Cst As StringOpen “D:diag.dat” For Input As #10Open “A:diag.dat” For Output As #20Input#10,CstInput#10,a,bPrint CstWrite#20,CstCloseEnd sub 若文件D:diag.dat的内容为： VB data 45 60 12, 53 则运行后，窗体显示内容是： A:diag.dat文件中的内容为,