2014全国计算机二级VB上机模拟题：综合应用题1_第2页

　　【审题分析】本题源程序设计思路：在"文件写入"命令按钮的单击事件过程中，先用  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：按要求将文件保存至考生文件夹中。