2014年全国计算机二级VB上机考试试题二

　　三、综合应用题

　　【知识点播】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：按要求将文件保存至考生文件夹中。

　　编辑推荐：

　　2014年上半年计算机等级考试报名时间及入口专题

　　各地2014年计算机等级考试费用汇总

　　2014年计算机等级考试时间