《判断text1输入的内存大小进行合法性检验课件.ppt》由会员分享，可在线阅读，更多相关《判断text1输入的内存大小进行合法性检验课件.ppt（18页珍藏版）》请在三一办公上搜索。
1、实验G,1,实验G1,判断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 输入非法数字，请重新输入！Text1 = Text1.SetFocusEnd IfEnd Sub把list1内容赋值给list2Private Sub
2、 List1_Click()List2.AddItem List1.TextEnd Sub,2,判断text1输入的内存大小进行合法性检验，确保最后两个字符,Dim x!, y$, z$Private Sub Check1_Click()Text1.FontBold = TrueEnd SubPrivate Sub Check2_Click()Text2.FontItalic = TrueEnd SubPrivate Sub Command1_Click()Text2 = Str(x)End SubPrivate Sub Form_Load()End SubPrivate Sub Option
3、1_Click()x = Sin(Val(Text1)End SubPrivate Sub Option2_Click()x = Exp(Val(Text1)End SubPrivate Sub Option3_Click()x = Sqr(Val(Text1)End Sub,3,Dim x!, y$, z$3,第8章 数据文件,8.1 文件概述 8.2 顺序访问模式8.3 随机访问模式8.4 二进制访问模式,4,第8章 数据文件8.1 文件概述 4,8.1 文件概述,1. 记录由若干个相互关联的数据项组成。例如，由学生的学习成绩信息组成的记录,2. 文件分类 文件是记录的集合，VB提供了三种
4、访问模式 :顺序访问模式：顺序文件，记录可长可短随机访问模式：随机文件，记录的长度相同二进制访问模式：二进制文件,本章目录,5,8.1 文件概述 1. 记录2. 文件分类 数据项总分物理,文件分类,(1) 顺序文件按顺序依次把记录写入或读出来的文件。,文本文件 一行一条记录，记录可长可短，以换行符分隔记录。(2) 随机文件记录长度相同，根据记录号可直接访问任意一个记录。,(3) 二进制文件直接把二进制码存放在文件中。,本章目录,6,文件分类 (1) 顺序文件记录n记录n-1记录3记录2记录,8.2 顺序文件,1. 打开文件例8.1 对文件C:Scores.dat进行读写Open 文件名 For
5、 模式 As #文件号 模式Output 进行写操作 Input 进行读操作 Append 在末尾追加记录 文件号 1511注意：文件名可以为字符串常量，也可以是字符变量。,本章目录,7,8.2 顺序文件1. 打开文件本章目录7,顺序访问模式-写操作,写入数据使用语句Print和Write (1) WriteWrite #文件号，输出列表 Write在数据项之间插入“,”并给字符串加上双引号。例如 Write（1, “One”, “Two”, 123）写入到文件后格式：One,Two,123,本章目录,8,顺序访问模式-写操作 写入数据使用语句Print和Write,(2) PrintPrin
6、t # 文件号，输出列表 Print #语句功能与Write 基本相同，区别在于字符串不加双引号，数据之间没有“,”。例如，Print #1，One，Two，123写入到文件后格式：One Two 123例8.2 利用Print 和Write 语句把数据写入文件,本章目录,9,(2) Print本章目录9,关闭文件,输出语句是将数据送到缓冲区，关闭文件时才将缓冲区中数据写入文件。关闭文件形式： Close( #文件号)例 Close(1) 关闭1号文件。如果省略了文件号，Close语句将关闭所有已经打开的文件,本章目录,10,关闭文件 输出语句是将数据送到缓冲区，关闭文件时才将缓冲区中,读操作
7、,(1) Input# 从打开的顺序文件中读出数据并将数据赋给变量。 Input #文件号，变量列表 (2) LineInput 读出一行数据 LineInput #文件号, 字符串变量说明：读出的数据中不包含回车换行符 (3) EOF (文件号)测试文件指针是否到文件末尾(4) LOF (文件号)测试文件的长度,本章目录,11,读操作 (1) Input# 从打开的顺序文件中读出数,应用举例,例8.3 设计一个文件加密程序。例8.4 编写顺序文件读写程序。选择“添加数据”，则将一个学生的学号、姓名和成绩（Integer）添加到Score.txt文件中选择“读取数据”，则从文件读取数据并计算总
8、分和平均成绩，最后送入文本框。,本章目录,12,应用举例 例8.3 设计一个文件加密程序。本章目录12,8.3 随机访问模式,随机访问模式中文件的打开和关闭打开文件Open 文件名 For Random As #文件号 Len=记录长度随机文件打开后，可以同时进行写入与读出操作记录长度默认值是128个字节 关闭随机文件 Close(#文件号) 例8.5 编写一个随机文件应用程序,本章目录,13,8.3 随机访问模式 随机访问模式中文件的打开和关闭本章目录,随机访问模式中文件的读写,Put#文件号，记录号，变量名 将一个记录变量的内容，写入所打开的磁盘文件中指定的记录位置处。如果忽略记录号，则在
9、当前记录前插入一条记录。Get #文件号，记录号，变量名 将指定的记录内容读入记录变量中。如果忽略记录号，则表示读出当前记录后的那一条记录 例8.6 编写学生信息管理程序,本章目录,14,随机访问模式中文件的读写 Put#文件号，记录号，变,8.4 二进制访问模式,二进制访问模式与随机访问模式类似，读写语句也是Get和Put，区别在于二进制模式的访问单位是字节，而随机模式的访问单位是记录例如:Open C:Student.Dat For Binary As # 1,本章目录,15,8.4 二进制访问模式二进制访问模式与随机访问模式类似，读写,例8.7 编写一个文件复制程序Dim char As
10、 ByteOpen C:S.Dat For Binary As # 1Open C:S.Bak For Binary As # 2Do While Not EOF(1) Get #1, , char 读源文件一个字节 Put #2, , char 写一个字节到目标文件LoopClose #1 关闭源文件Close #2 关闭源文件,本章目录,16,例8.7 编写一个文件复制程序本章目录16,本章小节,文件 文件是记录的集合，三种访问模式 顺序访问 打开 Open 文件名,模式,文件号 写 Print Write 读 Input # 文件号，变量 LineInput #文件号随机访问Open 文件名 For Random As #文件号 Len=长度 读Get 写 Put二进制访问 与随机访问模式类似,本章目录,17,本章小节文件 文件是记录的集合，三种访问模式 本,思考题,1.什么是文件？什么是记录？2.顺序文件和随机文件有何区别？3.请用不同的方法，将文本文件Text.dat中的内容读入字符串变量strTest中(写出程序代码片段)。4.请说明Print和Write语句的区别。5.请说明EOF和LOF函数的功能。,本章目录,18,思考题1.什么是文件？什么是记录？本章目录18,
