随机文件.docx

随机文件.docx

《随机文件.docx》由会员分享，可在线阅读，更多相关《随机文件.docx（6页珍藏版）》请在冰豆网上搜索。

随机文件

PrivateTypeemployee

   empNoAsInteger

   nameAsString*10

   addressAsString*20

EndType

PrivateSubcmdGet_Click（）

DimempAsemployee

Open"f:

\employee.txt"ForRandomAs#1Len=Len（emp）

Get#1,1,emp

Text1.Text=Str$（emp.empNo）+emp.name+emp.address

Get#1,2,emp

Text2.Text=Str$（emp.empNo）+emp.name+emp.address

Get#1,3,emp

Text3.Text=Str$（emp.empNo）+emp.name+emp.address

Close#1

EndSub

PrivateSubcmdPut_Click（）

DimempAsemployee

Open"f:

\employee.txt"ForRandomAs#1Len=Len（emp）

Title$="写记录到随机文件"

Str1$="请输入雇员编号"

str2$="请输入雇员名"

str3$="请输入雇员地址"

Fori=1To3

   emp.empNo=InputBox（Str1$,Title$）

   emp.name=InputBox（str2$,Title$）

   emp.address=InputBox（str3$,Title$）

   Put#1,i,emp

Nexti

Close#1

EndSub

VB上机极重要内容:

随机文件读写

说明：

2004年的上机考试新加入随机文件记录读写题，估计下半年的题型主要有以下两种：

一、已知一个随机文件，要求把里面的记录读入并显示到一个多行文本框，并把文本框中的内容写入到一个顺序文件。

（上半年4月份就有类似题目）；二、已知一个随机文件，要求从INPUTBOX中输入几条记录并加入到随机文件中。

-------------下面针对上面要求特举2例，希望学员理解并能灵活应用。

--------------

例1（随机文件读并显示，顺序文件写）：

在窗体上画一个名称为Text1文本框，无初始内容，多行属性multiline要求设为TRUE，然后再画两个命令按钮，其名称分别为C1和C2，并设置它们的CAPTION属性为为“显示记录”和“保存记录”，具体如下图所示。

要求考生编写相应的事件过程。

如果单击“显示记录”按钮，则读取考生文件夹下的随机文件in.txt文件（原文件有6条记录），并在文本框中按记录号顺序进行显示（每行一条记录）；如果单击“保存记录”按钮，则把文本框中显示的所有记录都保存到考生文件夹下的顺序文件out.txt中。

随机文件in.txt中的每个记录包括4个字段，分别为姓名、性别、年龄和名次，其名称和长度分别为：

name字符串8

sex字符串4

ageinteger

sortinteger

其类型定义为：

（下面内容在考试时要考生对照输入到窗体模块中）

PrivateTypeStud

NameAsString*8

SexAsString*4

AgeAsInteger

SortAsInteger

EndType

【分析】本题主要考查随机文件的读取与顺序文件的写入，所有代码全部要考生自己完成，但只要看清题目，程序本身并不难。

'要求考生编写的程序

'首先要自定义用户类型，写在窗体的通用部分

PrivateTypestud

nameAsString*8

sexAsString*4

ageAsInteger

sortAsInteger

EndType

PrivateSubC1_Click（）

DimtAsstud

'从随机文件中读记录，并从文本框text1中输出

Open"in.txt"ForRandomAs#1Len=Len（t）‘打开随机文件，注意要有Len=Len（t）

DoWhileNotEOF

（1）‘此处也可用用FOR结构

i=i+1

Get#1,i,t‘随机文件记录读取的命令

Text1.Text=Text1.Text&t.name&t.sex&t.age&t.sort&Chr（13）&Chr（10）

Loop

Close#1

EndSub

'向顺序文件out.txt写记录

PrivateSubC2_Click（）

Open"out.txt"ForOutputAs#2

Print#2,Text1.Text‘顺序文件记录写入的命令

Close#2

EndSub

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★

例2（随机文件写，随机文件读并显示）：

在窗体上画一个名称为Text1文本框，无初始内容，多行属性multiline要求设为TRUE，然后再画两个命令按钮，其名称分别为C1和C2，并设置它们的CAPTION属性为为“添加记录”和“显示记录”，具体如下图所示。

要求考生编写相应的事件过程。

如果单击“添加记录”按钮，则从INPUTBOX输入信息框中输入3个学生的记录并保存到随机文件out.txt文件，如果单击“显示记录”按钮，则从out.txt文件中读入刚才输入的记录并在文本框中按记录号顺序进行显示（每行一条记录）

随机文件in.txt中的每个记录包括4个字段，分别为姓名、性别、年龄和名次，其名称和长度分别为：

name字符串8

sex字符串4

ageinteger

sortinteger

其类型定义为：

（下面内容在考试时要考生对照输入到窗体模块中）

PrivateTypeStud

NameAsString*8

SexAsString*4

AgeAsInteger

SortAsInteger

EndType

【分析】本题主要考查随机文件的读取与写入，所有代码全部要考生自己完成，但只要看清题目，程序本身并不难。

'要求考生编写的程序

'首先要自定义用户类型，写在窗体的通用部分

PrivateTypestud

nameAsString*8

sexAsString*4

ageAsInteger

sortAsInteger

EndType

PrivateSubC1_Click（）

DimtAsstud

'向随机文件中写记录

Open"out.txt"ForRandomAs#1Len=Len（t）‘打开随机文件，注意要有Len=Len（t）

ForI=1to3‘用FOR循环写入三条记录

t.name=inputbox（“请输入学生姓名”）

t.sex=inputbox（“请输入学生性别”）

t.age=inputbox（“请输入学生年龄”）

t.sort=inputbox（“请输入学生名次”）

put#1，I，t‘随机文件记录写入的命令

nexti

Close#1

EndSub

PrivateSubC2_Click（）

DimtAsstud

'从随机文件中读记录，并从文本框text1中输出

Open"out.txt"ForRandomAs#1Len=Len（t）‘打开随机文件，注意要有Len=Len（t）

DoWhileNotEOF

（1）‘此处也可用用FOR结构

i=i+1

Get#1,i,t‘随机文件记录读取的命令

Text1.Text=Text1.Text&t.name&t.sex&t.age&t.sort&Chr（13）&Chr（10）

Loop

Close#1

EndSub