随机文件.docx

1、随机文件Private Type employee empNo As Integer name As String * 10 address As String * 20End TypePrivate Sub cmdGet_Click()Dim emp As employeeOpen f:employee.txt For Random As #1 Len = Len(emp)Get #1, 1, empText1.Text = Str$(emp.empNo) + emp.name + emp.addressGet #1, 2, empText2.Text = Str$(emp.empNo) +

2、 emp.name + emp.addressGet #1, 3, empText3.Text = Str$(emp.empNo) + emp.name + emp.addressClose #1End SubPrivate Sub cmdPut_Click()Dim emp As employeeOpen f:employee.txt For Random As #1 Len = Len(emp)Title$ = 写记录到随机文件Str1$ = 请输入雇员编号str2$ = 请输入雇员名str3$ = 请输入雇员地址For i = 1 To 3 emp.empNo = InputBox(St

3、r1$, Title$) emp.name = InputBox(str2$, Title$) emp.address = InputBox(str3$, Title$) Put #1, i, empNext iClose #1End SubVB上机极重要内容:随机文件读写说明：2004年的上机考试新加入随机文件记录读写题，估计下半年的题型主要有以下两种：一、已知一个随机文件，要求把里面的记录读入并显示到一个多行文本框，并把文本框中的内容写入到一个顺序文件。（上半年4月份就有类似题目）；二、已知一个随机文件，要求从INPUTBOX中输入几条记录并加入到随机文件中。-下面针对上面要求特举2例，希

4、望学员理解并能灵活应用。-例1(随机文件读并显示，顺序文件写)：在窗体上画一个名称为Text1文本框，无初始内容，多行属性multiline要求设为TRUE，然后再画两个命令按钮，其名称分别为C1和C2，并设置它们的CAPTION属性为为“显示记录”和“保存记录”，具体如下图所示。要求考生编写相应的事件过程。如果单击“显示记录”按钮，则读取考生文件夹下的随机文件in.txt文件（原文件有6条记录），并在文本框中按记录号顺序进行显示（每行一条记录）；如果单击“保存记录”按钮，则把文本框中显示的所有记录都保存到考生文件夹下的顺序文件out.txt中。随机文件in.txt中的每个记录包括4个字段，分

5、别为姓名、性别、年龄和名次，其名称和长度分别为：name 字符串 8sex 字符串 4age integersort integer其类型定义为：（下面内容在考试时要考生对照输入到窗体模块中）Private Type StudName As String *8Sex As String *4Age As IntegerSort As IntegerEnd Type【分析】本题主要考查随机文件的读取与顺序文件的写入，所有代码全部要考生自己完成，但只要看清题目，程序本身并不难。 要求考生编写的程序首先要自定义用户类型，写在窗体的通用部分Private Type studname As String

6、 * 8sex As String * 4age As Integersort As IntegerEnd TypePrivate Sub C1_Click()Dim t As stud从随机文件中读记录，并从文本框text1中输出Open in.txt For Random As #1 Len = Len(t) 打开随机文件，注意要有Len = Len(t)Do While Not EOF(1) 此处也可用用FOR结构i = i + 1Get #1, i, t 随机文件记录读取的命令Text1.Text = Text1.Text & t.name & t.sex & t.age & t.so

7、rt & Chr(13) & Chr(10)LoopClose #1End Sub 向顺序文件out.txt写记录Private Sub C2_Click()Open out.txt For Output As #2Print #2, Text1.Text 顺序文件记录写入的命令Close #2End Sub例2(随机文件写，随机文件读并显示)：在窗体上画一个名称为Text1文本框，无初始内容，多行属性multiline要求设为TRUE，然后再画两个命令按钮，其名称分别为C1和C2，并设置它们的CAPTION属性为为“添加记录”和“显示记录”，具体如下图所示。要求考生编写相应的事件过程。如果单

8、击“添加记录”按钮，则从INPUTBOX输入信息框中输入3个学生的记录并保存到随机文件out.txt文件，如果单击“显示记录”按钮，则从out.txt文件中读入刚才输入的记录并在文本框中按记录号顺序进行显示（每行一条记录）随机文件in.txt中的每个记录包括4个字段，分别为姓名、性别、年龄和名次，其名称和长度分别为：name 字符串 8sex 字符串 4age integersort integer其类型定义为：（下面内容在考试时要考生对照输入到窗体模块中）Private Type StudName As String *8Sex As String *4Age As IntegerSort

9、As IntegerEnd Type【分析】本题主要考查随机文件的读取与写入，所有代码全部要考生自己完成，但只要看清题目，程序本身并不难。 要求考生编写的程序首先要自定义用户类型，写在窗体的通用部分Private Type studname As String * 8sex As String * 4age As Integersort As IntegerEnd TypePrivate Sub C1_Click()Dim t As stud向随机文件中写记录Open out.txt For Random As #1 Len = Len(t) 打开随机文件，注意要有Len = Len(t)Fo

10、r I=1 to 3 用FOR循环写入三条记录t.name=inputbox(“请输入学生姓名”)t.sex=inputbox(“请输入学生性别”)t.age=inputbox(“请输入学生年龄”)t.sort=inputbox(“请输入学生名次”)put #1，I，t 随机文件记录写入的命令next iClose #1End SubPrivate Sub C2_Click()Dim t As stud从随机文件中读记录，并从文本框text1中输出Open out.txt For Random As #1 Len = Len(t) 打开随机文件，注意要有Len = Len(t)Do While Not EOF(1) 此处也可用用FOR结构i = i + 1Get #1, i, t 随机文件记录读取的命令Text1.Text = Text1.Text & t.name & t.sex & t.age & t.sort & Chr(13) & Chr(10)LoopClose #1End Sub