首页 > 考试 > 等级考试 > 二级 > Visual Basic >

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

2014-01-10

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

综合应用题

  在考生文件夹下有一个工程文件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:按要求将文件保存至考生文件夹中。

相关文章
最新文章
热点推荐