二级VB考试系统第6次课文件44学时课件

2010年9月等级考试辅导

二级VisualBasic第六讲文件

随机文件2顺序文件1文件控件3

多窗体4顺序文件和随机文件（1）顺序文件：顺序文件的结构比较简单，文件中的记录一个接一个地存放；（2）随机文件：数据采用记录方式组织，可以根据需要直接访问文件中的每个记录。优点是数据的存取较为灵活、方便，速度较快，容易修改；缺点是占空间较大，数据组织较复杂。顺序文件：文件读/写只能在文件指针所指位置随机文件：可任意读取或在任意位置写入记录P154-考点2文件的操作语句和函数Open文件名[For模式]As[#]文件号[Len=记录长度]ForOutput：顺序文件写ForInput：顺序文件读Input方式打开，要求被读取文件必须存在ForAppend：顺序文件追加方式写ForRandom：随机文件读写考点2文件的操作语句和函数文件指针文件打开后自动生成一个文件指针。当使用Input、Output、Random等方式打开文件时，文件指针指向文件的开头。使用Append方式打开文件时，文件指针指向文件的末尾。完成一次读写操作后，文件指针自动地指向下一次读写操作的位置。考点2文件的操作语句和函数Open文件名[For模式]As[#]文件号[Len=记录长度]文件号：1~511，在操作时用于指代打开的文件记录长度：随机文件操作时需指定记录长度文件大小=所有记录大小之和考点2文件的操作语句和函数重要函数1．LOF(文件号)

返回文件的长度（字节数）2．EOF(文件号)

如果当前文件指针指向文件末尾，则返回True，否则返回False3.Seek#文件号,位置定位文件指针考点3顺序文件顺序文件的写操作1．Print#语句Print#文件号,[[Spc(n)|Tab(n)][表达式表][;|,]]Open“test”ForOutputAs#1‘打开文件供输出（写入）

Print#1,"thisisatest"‘输出一行内容

Print#1, ‘输出一个空行

Print#1,"hello";"";"world"Print#1,Spc(5);"helloeveryone"Print#1,Tab(10);"hello"Close#1标准输出紧凑输出省略＃会怎么样呢？考点3顺序文件顺序文件的写操作2．Write#语句

Write#文件号，表达式表

Write#1,"One","Two",123Print#1,"One","Two",123考点3顺序文件顺序文件写操作将一个二维数组a(5,5)的所有数组元素按矩阵（5行5列）写入到文件OUT.txtDima(5,5)AsIntegerFori=1To5Forj=1To5a(i,j)=Rnd*100NextjNextiOpen"out.txt"ForOutputAs#1Fori=1To5Forj=1To5Print#1,a(i,j);NextjPrint#1,NextiClose#1考点3顺序文件顺序文件的读操作1．Input#语句格式：Input#文件号，变量表功能：把读出的每个数据项分别存放到所对应的变量2．LineInput#语句格式：LineInput#文件号，字符串变量功能：读一行到变量中，主要用来读取文本文件。3．Input$函数格式：Input$（n，#文件号）功能：从“文件号”所指定的顺序文件中读出n个字符

Open“out.txt"ForInputAs#1Input#1,a,b,cClose

Open“out.txt"ForInputAs#1WhileNotEOF(1)LineInput#1,aWendCloseDoWhileNotEOF(1)inputdata=Input(1,#1)Text1.Text=Text1.Text+inputdataLoop历年真题2．在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：PrivateSubForm_Click()Open"d:\test\smtext1.txt"ForInputAs#1DoWhileNot【1】

LineInput#1,aspect$whole$=whole$+aspect$+Chr$(13)+Chr$(10)LoopText1.Text=whole$Close#1Open"d:\test\smtext2.txt"ForOutputAs#1Print#1,【2】

Close#1EndSubEof(1)Text1.Text上机教程147-真题11.1【例7】捷成14-5程序界面如下，代码不完整，只有一个函数过程isprime(a)可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。请编写适当的事件过程，使得在运行时，单击“输入”按钮，就把文件in5.txt中的整数放入Text1中；单击“计算”按钮，则找出大于Text1中的整数的第1个素数，并显示在Text2中；单击“存盘”按钮，则把Text2中的计算结果存入out5.txt文件中。考点5随机文件随机文件的特点：文件由相同大小的记录组成；每个记录包含记录号和记录的内容。考点4用户自定义数据类型用户定义的数据类型利用Type语句定义自己的数据类型（因其常用于随机文件的记录操作，又称记录类型），其格式如下：记录类型的定义必须放在通用声明段考点5随机文件随机文件的特点：文件由相同大小的记录组成；每个记录包含记录号和记录的内容。随机文件的打开Open“文件名“[ForRandom]As文件号Len=记录长度随机文件的写操作

Put#文件号,［记录号］,变量随机文件的读操作

Get#文件号，［记录号］，变量随机文件的操作步骤（1）自定义数据类型；（2）打开随机文件；（3）将内存中的数据进行写、读操作：（4）关闭文件。（2004年4月选择题第23题）假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：PrivateTypeanimalAnimalNameAsString*20AColorAsString*10EndType在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:PrivateSubCommand1_Click()DimrecAsanimalOpen"c:\vbTest.dat"ForRandomAs#1Len=Len(rec)rec.animalName="Cat"rec.aColor="White"

Put#1,,recClose#1EndSub考点6文件控件控件名属性属性描述事件事件描述DriveListBox驱动器列表框Drive字符串，设置所选择的驱动器名。只能用程序代码设置，不能通过属性窗口设置。Change当驱动器发生改变时被触发SubDrive1_Change()Dir1.Path=Drive1.DriveEndSubDirListBox目录列表框Path字符串，设置当前目录（文件夹）的路径。Change当文件夹或目录发生改变时被触发SubDir1_Change()=Dir1.PathEndSub考点6文件控件控件名属性属性描述事件事件描述文件列表框Path与目录列表框同。Click当文件列表框中的某一文件被单击时触发Pattern设置在执行时要显示的某一种类型的文件，它可以在设计阶段从属性窗口设置，也可以通过程序代码设置。用来在文件列表框中设置或返回某个选定的文件名称。考点2多重窗体程序的执行与保存一、指定启动窗体在VisualBasic的应用程序中，只有启动窗体才能在运行程序时自动显示出来，其他窗体必须通过Show方法才能看到。启动窗体通过“工程”菜单中的“工程属性”命令来指定。执行该命令后，将打开“工程属性”对话框，单击“通用”选项卡后，在“启动对象”组合框中可选择要作为启动窗体的窗体的名称。上机教程P140-练习10.4程序运行后，在Form1窗体的文本框中输入有关信息（“密码”框中显示“*”字符），然后单击“提交”按钮则弹出“确认”对话框(即Form2窗体)