2014全国计算机二级VB上机试题及答案：综合应用题1

　　在考生文件夹下有一个工程文件vbsj5.vbp，相应的窗体文件为vbsj5.frm。在窗体Form1 上有两个名称分别为Cmd1和Cmd2的命令按钮，它们的标题分别为“写入文件”和“读出 文件”，如图51-5所示。

　　其中“文件写入”命令按钮事件过程用来建立一个通讯录，以随机存取方式保存到文 件dw1.dat中；而“文件读出”命令按钮事件过程用来读出文件dw1.dat中的每个记录，并 在窗体上显示出来。

　　通讯录中的每个记录由3个字段组成：姓名（Name）、电话（Tel）和邮政编码（Pos）。

　　各字段的类型和长度为： 姓名（Name）：字符串            15 电话（Tel）：字符串            15 邮政编码（Pos）：长整型（Long）

　　程序运行后，如果单击“文件写入”命令按钮，则可以随机存取方式打开文件dw1.dat， 并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答“Y”

　　（或“y”）则输入新记录，回答“N”（或“n”）则停止输入；如果单击“文件读出”命 令按钮，则可以随机存取方式打开文件dw1.dat，读出文件中的全部记录，并在窗体上显 示出来。该程序不完整，请把它补充完整。

　　要求：

　　①去掉程序中的注释符“’”，把程序中的问号“？”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。

　　②文件dw1.dat中已有3个记录，请运行程序，单击“文件写入”命令按钮，向文件dw1.dat 中添加以下2个记录（全部采用西文方式），如下所示。

　　Tom    (010)12345678         100000

　　Jim    (010)87654321           100001

　　③运行程序，单击“文件读出”命令按钮，在窗体上显示全部记录。

　　④用原来的文件名保存工程文件和窗体文件。

　　【知识点播】LOF 函数可返回一个用  Open  语句打开的文件的大小，该大小以字节为单位，返回值为 Long 数据类型。 

　　【审题分析】本题源程序设计思路：在"文件写入"命令按钮的单击事件过程中，先用  Open  语句打开考生文件夹下的随机文件  dw1.dat，并通过计算得到随机文件现有记录数，存入变      RecNum；然后在 Do 循环中，为自定义数据类型变      Pers 的各元素赋值， 用  Put 语句将该变    的值写入打开的随机文件中（记录号为  RecNum+1），并通过输入对 话框询问是否要再输入新记录，Do 循环以输入对话框中返回值为"Y"（或"y"）作为循环条件。 

　　在  "文件读出"命令按钮的单击事件过程中，先用 Open 语句打开考生文件夹下的随机 文件  dw1.dat，并通过计算得到随机文件现有记录数，存入变       RecNum；然后利用  For 循环语句（初值为 1，终值为 RecNum 的值），用 Get 语句读入随机文件中相应记录号的记录，赋值给变      Pers，并将变      Pers 各元素的值用 Print 方法显示在窗体上。 

　　【操作步骤】 

　　步骤 1：打开考生文件中的本题工程文件 vbsj5.vbp，在代码编辑窗口，去掉程序中的注释符"’"，将问号"？"改为正确的内容。 

　　步骤 2：按要求将文件保存至考生文件夹中。