原创力文档- 1、本文档共21页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
实验题：在文本框中输入字符串，每输入一个字符串，按Enter键后将Text的内容放到数组中，单击“排序”按钮，则按递减次序排列。‘通用-声明OptionBase1Dima$(),n%PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Thenn=n+1ReDimPreservea(n)a(n)=Text1.TextText1.Text=P1.Printa(n)EndIfEndSubReDim可以改变数组的大小及维数，但不能改变类型；Preserve用来保留数组中的数据，否则数组将被初始化字符串排序的代码与数值排序没有区别
文件
文件的概念文件：存储在外部介质上数据的集合——按名存取磁盘文件是由数据记录组成。记录是计算机处理数据的基本单位，它由一组具有共同属性相互关联的数据项组成。例如，由学生的学习成绩信息组成的记录：数据项
文件及其种类顺序访问模式：顺序文件，记录可长可短；随机访问模式：随机文件，记录的长度相同；二进制访问模式：二进制文件（可认为记录长度为1）。文件是记录的集合。
顺序文件顺序文件是普通的文本文件。记录按顺序一个接一个地排列;读出或写入记录时，都必须按顺序逐个进行;记录可长可短。
随机文件每个记录的长度相同;每个记录都有其唯一的一个记录号；根据记录号可以直接访问文件中的任意一个记录。
顺序访问模式从第一条到最后一条记录顺序读写访问扩展名为TXT或DAT的文本文件写文件的步骤：读文件的步骤：打开文件写入关闭文件打开文件读出关闭文件读到内存写入硬盘
打开顺序文件模式：Output对文件进行写操作(内存→磁盘)Append追加记录(在文件的尾部追加记录)Input对文件进行读操作(磁盘→内存)文件号：1~511之间的整数。例如：OpenC:\Temp\A.TxtForInputAs#1OpenC:\Temp\B.TxtForOutputAs#2OpenC:\Temp\C.TxtForAppendAs#3站在内存的角度来理解”模式”Open”文件名”For模式As#文件号
关闭文件Close[[#]文件号][，[#]文件号]……文件号，如：#1,#2,#3，如果省略，则将关闭所有已经打开的文件。例如：Close#1,#2,#3Close
顺序文件的写操作Print命令(重点掌握)Print#文件号,[输出列表]如：Print#1,”Abc”;”HIJ”,123Write命令Write#文件号，[输出列表]如：Write#2,”Abc”,”HIJ”,123Write语句采用紧凑格式。数据项之间插入“,”，并给字符数据加上双引号。
例Print与Write语句输出数据结果比较。PrivateSubForm_Click()DimStr$,Anum%OpenD:\Myfile.datForOutputAs#1Str=ABCDEFGAnum=12345Print#1,Str,AnumPrint#1,Str;AnumPrint#1,Str;Tab(30);AnumWrite#1,Str,AnumClose#1EndSub
例:把文本框Mytxt的内容，写入文件Myfile.dat中。方法1：把整个文本框的内容一次性地写入文件。 OpenApp.Path+“\Myfile.datForOutputAs#1 Print#1,Mytxt.Text Close#1 方法2：把整个文本框的内容一个字符一个字符地写入文件。 Open“.\Myfile.datForOutputAs#1 Fori=1ToLen(Mytxt.Text) Print#1,Mid(Mytxt.Text,i,1); Nexti Close#1OpenApp.Path+\aa.txtForInputAs#1Open.\aa.txtForInputAs#1作用相同，都是从当前文件夹中打开相应文件
Dima
文档评论（0）