1、国家二级 VB机试（上机操作）模拟试卷 245及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml、标题为 “框架 ”的窗体上画一个名称为 Framel，且没有标题的框架。框架内含有两个单选按钮，名称分别为 Optl和 Opt2、标题分别为 “字体 ”、 “大小 ”，如图 2-163所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl vbo，窗体文件名为 sjtl frm。 (2)考生文件夹下的工程文件 sjt2 vbp中有一个由直 线 Linel、 Line2和 Line3组成的三角形
2、，直线Line1、 Line2和 Line3的坐标值见表 24：要求画一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。再画两个命令按钮，名称分别是 Cmd1、 Cmd2，标题分别为 “显示高 ”、 “隐藏高 ”，如图 2 164所示。请编写适当的事件过程，使得在运行时，单击 “显示高 ”按钮，则显示三角形的高；单击 “隐减高 ”按钮，则隐藏三角形的高。 注意：要求程序中不得使用变量，每个事件过程只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存 盘。 二、简单应用题 2 (1)在名称为 Form1的窗体中画一个名称为 L1的标签，其标题为 “0”， Bord
3、erStyle属性为 1：再添加一个名称为 Timer1的计时器。请设置适当的控件属性并编写适当的事件过程，使得在运行时，每隔一秒钟标签中的数字加 1。如图 2 170所示的是程序刚启动时的情况。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sit3 vbp，窗体文件名为 sjt3 frm。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，要求程序运行后，如果多次单击列表框中 的项，则可同时选择这些项。而如果单击 “显示 ”按钮，则在窗体上输出所有选中的列表项 (如图 2-171所示 )。 要求：修改列表框的适当属性，使得运行时可以多选，并去掉程序中的注释符
4、，把程序中的 ?改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改后的程序以原来的文件名存盘。三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，已给出了部分控件和部分程序。程序运行时，请在窗体上画三个标签，其名称分别为 Label1、 Label2和 Label3，标题分别为 “姓名 ”、 “电话号码 ”和 “邮政编码 ”。再画三个文本框，其名称分别为Text1、 Text2和 Text3，初始内容均为空白，如图 2 239所示。程序运行后，如果单击 “显示第三个记录 ”按钮，则读取考生文件夹下 in5 txt文件中的第三个记录，将该记录的三个字段分别显
5、示在三个文本框中 (该文件是一个用随机存取方式建立的文件，共有 5个记录 )。单击 “保存 ”按钮，则把该记录 (三个字段 )保存到考生文件夹下的顺序文件 out5 txt中。请编写 “显示第三个记录 ”按钮的 Click事件过程，以实现上述功能。 注意：考生不得修改已经存在的程序，必须用 “保存 ”按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。 国家二级 VB机试（上机操作）模拟试卷 245答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表386在窗体上绘制控件并设置属性。步骤 2：按要求将文件保存至考生文件夹中。
6、第 2小题 【操作步骤】 步骤 1：打开本题工程文件 sjt2 vbp，在窗体中画一个直线控件和两个命令按钮，并设置其相火属性如表 3 87所示。步骤 2；打开代码编辑窗口，编写命令按钮的 Click事件过程。 参考代码： Private Sub Cmdl C1ick() Line4 Visible=True End Sub Private Sub Cmd2一 Click() Line4 Visible： False End Sub 步骤 3：按要求将文件保存下考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 91在窗
7、体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口编写计时器的事件过程。 参考代码： Private Sub Timerl一 Timer() L1=L1+1 End Sub 步骤3：按要求将文件保 存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，将列表框的 MultiSelect属性值设置为 1-simple。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： For i=0 T0 11 ListCount一 1 If 11 Selected(i)=True Then 步骤 3：按要求将文
8、件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件中的本题工程文件sjt5 vbp，如 表 3 129在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口中，编写 Commandl Click事件过程。 参考代码： PriVate Sub Commandl一 Click() Dim Pal As Paltype Open App Path ” in5 txt” For Random As#1 Len=Len(Pal) Get#1， 3， Pal Text1 Text=Pal Name Text2 Text=Pal Tel Text3 Text=Str(Pal Post) Close 1 End Sub 步骤 3：按要求将文件保存争学生文件夹中。 步骤 4：按键键运行程序，先单击 “显示第三个记录 ”按钮，再单击 “保存 ”按钮。
