1、vb程序设计简明教程程序设计简明教程本书本书目录目录实验G1 1vb程序设计简明教程程序设计简明教程本书本书目录目录判断判断text1输入的内存大小进行合法性检验，确保最后两个字符为输入的内存大小进行合法性检验，确保最后两个字符为“MB”，其他的都是数字字符。，其他的都是数字字符。Dim n%,x$,y$Private Sub Text1_LostFocus()n=Len(Text1)x=Right(Text1,2)y=Left(Text1,n-2)x=UCase(x)If x=MB And IsNumeric(y)ThenPrint Text1.TextElseMsgBox 输入非法数字，请
2、重新输入！输入非法数字，请重新输入！Text1=Text1.SetFocusEnd IfEnd Sub把把list1内容赋值给内容赋值给list2Private Sub List1_Click()List2.AddItem List1.TextEnd Sub2 2vb程序设计简明教程程序设计简明教程本书本书目录目录Dim x!,y$,z$Private Sub Check1_Click()Text1.FontBold=TrueEnd SubPrivate Sub Check2_Click()Text2.FontItalic=TrueEnd SubPrivate Sub Command1_Cli
3、ck()Text2=Str(x)End SubPrivate Sub Form_Load()End SubPrivate Sub Option1_Click()x=Sin(Val(Text1)End SubPrivate Sub Option2_Click()x=Exp(Val(Text1)End SubPrivate Sub Option3_Click()x=Sqr(Val(Text1)End Sub3 3vb程序设计简明教程程序设计简明教程本书本书目录目录第第8 8章章 数据文件数据文件8.1 8.1 文件概述文件概述 8.2 8.2 顺序访问模式顺序访问模式8.3 8.3 随机访问模式随
4、机访问模式8.4 8.4 二进制访问模式二进制访问模式4 4vb程序设计简明教程程序设计简明教程本书本书目录目录8.1 8.1 文件概述文件概述 1.记录记录由若干个相互关联的数据项组成。例如，由学由若干个相互关联的数据项组成。例如，由学生的学习成绩信息组成的记录生的学习成绩信息组成的记录2.文件分类文件分类 文件是记录的集合，文件是记录的集合，VB提供了三种访问模式提供了三种访问模式:顺序访问模式：顺序文件，记录可长可短顺序访问模式：顺序文件，记录可长可短随机访问模式：随机文件，记录的长度相同随机访问模式：随机文件，记录的长度相同二进制访问模式：二进制文件二进制访问模式：二进制文件数据项总分
5、物理成绩语文成绩数学成绩姓名学号本章目录本章目录5 5vb程序设计简明教程程序设计简明教程本书本书目录目录文件文件分类分类(1)顺序文件顺序文件按顺序依次把记录写入或读出来的文件。按顺序依次把记录写入或读出来的文件。记录记录n记录记录n-1记录记录3记录记录2记录记录1文本文件文本文件 一行一条记录，记录可长可短，以换行符分一行一条记录，记录可长可短，以换行符分隔记录。隔记录。(2)随机文件随机文件记录长度相同，根据记录号可直接访问任意一个记录。记录长度相同，根据记录号可直接访问任意一个记录。#n记录记录n记录记录n-1#2记录记录2#1记录记录1(3)二进制文件二进制文件直接把二进制码存放在
6、文件中。直接把二进制码存放在文件中。本章目录本章目录6 6vb程序设计简明教程程序设计简明教程本书本书目录目录8.2 8.2 顺序文件顺序文件1.打开文件打开文件例例8.18.1 对文件对文件C:Scores.dat进行读写进行读写OpenOpen 文件名文件名 ForFor 模式模式 As As#文件号文件号 模式模式 Output Output 进行写操作进行写操作 Input Input 进行读操作进行读操作 AppendAppend 在末尾追加记录在末尾追加记录 文件号文件号 1511注意：注意：文件名可以为字符串常量，也可以是字符变量。文件名可以为字符串常量，也可以是字符变量。本章目
7、录本章目录7 7vb程序设计简明教程程序设计简明教程本书本书目录目录顺序访问模式顺序访问模式-写操作写操作 写入数据使用语句写入数据使用语句PrintPrint和和WriteWrite(1)WriteWriteWrite#Write#文件号文件号，输出列表输出列表 Write在数据项之间插入在数据项之间插入“,”并给字符串加上并给字符串加上双引号。双引号。例如例如 Write（1,“One”,“Two”,123）写入到文件后格式：写入到文件后格式：One,Two,123 本章目录本章目录8 8vb程序设计简明教程程序设计简明教程本书本书目录目录(2)PrintPrintPrint#Print#
8、文件号，文件号，输出列表输出列表 Print#Print#语句功能与语句功能与Write Write 基本相同，区别在于基本相同，区别在于字符串不加双引号，数据之间没有字符串不加双引号，数据之间没有“,”,”。例如，例如，Print#1，One，Two，123写入到文件后格式：写入到文件后格式：One Two 123例例8.2 利用利用Print 和和Write 语句把数据写入文件语句把数据写入文件本章目录本章目录9 9vb程序设计简明教程程序设计简明教程本书本书目录目录关闭文件关闭文件 输出语句是将数据送到缓冲区，关闭文件时才将输出语句是将数据送到缓冲区，关闭文件时才将缓冲区中数据写入文件。
9、关闭文件形式：缓冲区中数据写入文件。关闭文件形式：CloseClose(#文件号文件号)例例 Close(1)关闭关闭1号文件号文件。如果省略了文件号，如果省略了文件号，CloseClose语句将关闭所有已经语句将关闭所有已经打开的文件打开的文件 本章目录本章目录1010vb程序设计简明教程程序设计简明教程本书本书目录目录读操作读操作 (1)Input#Input#从打开的顺序文件中读出数据并将从打开的顺序文件中读出数据并将数据赋给变量数据赋给变量。Input#Input#文件号，变量列表文件号，变量列表(2)LineInputLineInput 读出一行数据读出一行数据 LineInputL
10、ineInput#文件号文件号,字符串变量字符串变量说明：读出的数据中不包含回车换行符说明：读出的数据中不包含回车换行符(3)EOF(文件号文件号)测试文件指针是否到文件末尾测试文件指针是否到文件末尾(4)LOF(文件号文件号)测试文件的长度测试文件的长度本章目录本章目录1111vb程序设计简明教程程序设计简明教程本书本书目录目录应用举例应用举例 例例8.3 设计一个文件加密程序。设计一个文件加密程序。例例8.4 编写顺序文件读写程序。编写顺序文件读写程序。u选择选择“添加数据添加数据”，则将一个学生的学号、，则将一个学生的学号、姓名和成绩（姓名和成绩（Integer）添加到）添加到Score
11、.txt文件文件中中u选择选择“读取数据读取数据”，则从文件读取数据并计，则从文件读取数据并计算总分和平均成绩，最后送入文本框。算总分和平均成绩，最后送入文本框。本章目录本章目录1212vb程序设计简明教程程序设计简明教程本书本书目录目录8.3 8.3 随机访问模式随机访问模式 随机访问模式中文件的打开和关闭随机访问模式中文件的打开和关闭打开文件打开文件OpenOpen 文件名文件名 For RandomFor Random As#文件号文件号 LenLen=记录长度记录长度p随机文件打开后，可以同时进行写入与读出操作随机文件打开后，可以同时进行写入与读出操作p记录长度默认值是记录长度默认值是
12、128个字节个字节 关闭随机文件关闭随机文件 CloseClose(#文件号文件号)例例8.5 编写一个随机文件应用程序编写一个随机文件应用程序 本章目录本章目录1313vb程序设计简明教程程序设计简明教程本书本书目录目录随机访问模式中文件的读写随机访问模式中文件的读写 PutPut#文件号，文件号，记录号记录号，变量名，变量名 将一个记录变量的内容，写入所打开的磁盘文将一个记录变量的内容，写入所打开的磁盘文件中指定的记录位置处。如果忽略记录号，则件中指定的记录位置处。如果忽略记录号，则在当前记录前插入一条记录。在当前记录前插入一条记录。Get Get#文件号，文件号，记录号记录号，变量名，变
13、量名 将指定的记录内容读入记录变量中。如果忽略将指定的记录内容读入记录变量中。如果忽略记录号，则表示读出当前记录后的那一条记录记录号，则表示读出当前记录后的那一条记录 例例8.6 编写学生信息管理程序编写学生信息管理程序 本章目录本章目录1414vb程序设计简明教程程序设计简明教程本书本书目录目录8.4 8.4 二进制访问模式二进制访问模式二进制访问模式与随机访问模式类似，读写语二进制访问模式与随机访问模式类似，读写语句也是句也是GetGet和和PutPut，区别在于二进制模式的访区别在于二进制模式的访问单位是问单位是字节字节，而随机模式的访问单位是，而随机模式的访问单位是记录记录例如例如:O
14、penOpen C:Student.Dat For BinaryFor Binary As#1 本章目录本章目录1515vb程序设计简明教程程序设计简明教程本书本书目录目录例例8.7 编写一个文件复制程序编写一个文件复制程序Dim char As ByteDim char As ByteOpen C:Open C:S.DatS.Dat For Binary As#1 For Binary As#1Open C:Open C:S.BakS.Bak For Binary As#2 For Binary As#2Do While Not EOF(1)Do While Not EOF(1)Get#1
15、Get#1,char char 读源文件一个字节读源文件一个字节 Put#2Put#2,char char 写一个字节到目标文件写一个字节到目标文件LoopLoopClose#1Close#1 关闭源文件关闭源文件Close#2Close#2 关闭源文件关闭源文件本章目录本章目录1616vb程序设计简明教程程序设计简明教程本书本书目录目录本章小节本章小节文件文件 文件是记录的集合，文件是记录的集合，三种访问模式三种访问模式 顺序访问顺序访问 打开打开 OpenOpen 文件名文件名,模式模式,文件号文件号 写写 PrintPrint WriteWrite 读读 Input#Input#文件号，
16、变量文件号，变量 LineInputLineInput#文件号文件号随机访问随机访问OpenOpen 文件名文件名 For RandomFor Random As#文件号文件号 Len=Len=长度长度 读读Get Get 写写 PutPut二进制访问二进制访问 与随机访问模式类似与随机访问模式类似本章目录本章目录1717vb程序设计简明教程程序设计简明教程本书本书目录目录思考题思考题1.1.什么是文件？什么是记录？什么是文件？什么是记录？2.2.顺序文件和随机文件有何区别？顺序文件和随机文件有何区别？3.3.请用不同的方法，将文本文件请用不同的方法，将文本文件Text.datText.dat中的中的内容读入字符串变量内容读入字符串变量strTeststrTest中中(写出程序代码写出程序代码片段片段)。4.4.请说明请说明PrintPrint和和WriteWrite语句的区别。语句的区别。5.5.请说明请说明EOFEOF和和LOFLOF函数的功能。函数的功能。本章目录本章目录1818
