随机文件.docx
- 文档编号:24343772
- 上传时间:2023-05-26
- 格式:DOCX
- 页数:6
- 大小:28.78KB
随机文件.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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 随机 文件