1、国家二级 VB机试（上机操作）模拟试卷 287及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上添加一个计时器控件，名称为 Timer1。请利用属性窗口设置适当属性，使得在运行时可以每隔 1秒，调用计时器的 Timer事件过程一次。另外，请把窗体的标题设置为 “题目 2”。设计阶段的窗体如图 373所示。注意：保存时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为sjt1 frm。 (2)在名称为 Form1的 窗体上画一个文本框，名称为 Text1，无初始内容；再画一个
2、图片框，名称为 P1。请编写适当的事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容，运行时的窗体如图 374所示。程序中不能使用任何变量。注意：保存时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sjt2 frm 二、简单应用题 2 (1)在考生目录下有一个工程文件 sjt3 vbp，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为 “北京 ”、“上海 ”、 “广州 ”；再添加一个标题为 “显示 ”的命令按钮，如图 375所示。程序的功能是在运行时，如果选中一个单选按钮后，单击 “显示
3、”按钮，则根据单选按钮的选中情况，在窗体上显示 “我的出生地是北京 ”、 “我的出生地是上海 ”或 “我的出生地是广州 ”。要求： 依次添加单选按钮标题为 “北京 ”、 “上海 ”、 “广州 ”；设初始选中的是 “上海 ”，添加命令按钮标题为 “显示 ”。 去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。 (2)在考生目录下有一个工程文件 sjt4 vbp，请在 Form1窗体中画三个标签，名称分别为 B1、 B2、L1，标题分别为 “字号 ”、 “字体 ”、 “计算机等级考试 ”，其中
4、 L1的高为 500，宽为3000；再在 B1、 B2标签的下面画两个组合框，名称分别为 Cb1、 Cb2，并为 Cb1添加项目： “10”、 “15”、 “20”，为 Cb2添加项目： “黑体 ”、 “隶书 ”、 “宋体 ”。请编写适当的事件过程，使得在运行时，当在 Cb1中选一种字号、 Cb2中选一种字体时，标签 L1中的文字立即变为选定的字号和字体。如图 376所示。注意：考生不得修 改窗体文件中已经存在的程序，在结束程序运行之前，必须选择一种字号和字体。必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘，程序中不得使用任何变量。三、综合应用题 3 在考生目录下有一个工
5、程文件 sjt5 vbp，其窗体上有一个文本框，名称为Text1；还有两个命令按钮，名称分别为 C1、 C2，标题分别为 “计算 ”、 “存盘 ”，如图 377所示。并有一个函数过程 isprime(a)可以在程序中直接调用，其功能是判断参数 a是否为素数，如果是素数，则返回 True，否则返回 False。请编写适当 的事件过程，使得在运行时，单击 “计算 ”按钮，则找出大于 15000的第一个素数，并显示在 Text1中；单击 “存盘 ”按钮，则把 Text1中的计算结果存入考生文件夹下的out5 tXt文件中。注意：考生不得修改 isprime函数过程和控件的属性，必须把计算结果通过单击
6、 “存盘 ”按钮存入 out5 txt文件中，否则无成绩。国家二级 VB机试（上机操作）模拟试卷 287答案与解析 一、基本操作题 1 【正确答案】 第 1小题步骤 1：新建一个 “标准 ExE”工程，如表 445在窗体中画出控件并设置其相关属性。 步骤2： 按要求将文件保存至考生文件夹中。第 2小题步骤 1：新建一个 “标准 EXE”工程，如表 446在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。参考代码： Private Sub Text1_Change()P1： Print Text1 TextEnd Sub步骤 3：按要求将文件保存至考生文件
7、夹中。 【试题解析】 第 1小题：本题只需按要求画出控件并设置其相关属性即可。 第 2小题：要实现本题所要求的功能，可在文本框的 Change事件过程中，将当前文本框中的文本用 Print方法输出到图片框中。 二、简单应用题 2 【正确答案】 第 1小题步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，依次选中窗体中的各单选按钮和命令按钮，设置它们的相关属性，其属性及值如表447所示。 步骤 2：双击 “显示 ”命令按钮，打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： Private Sub C1_Click()For i=0T02If Op1(
8、i) Value=True ThenPrint“我的出生地是 “+Op1(i) CaptionEnd IfNextEnd Sub步骤 3：按要求将文件保存至考生文件夹中。第 2小题步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，如表 448画出三个标签和两个组合框并设置属性。步骤 2：在代码编辑窗口，编写两个组合框的单击的单击事件过程。参考代码： Private Sub Cb1_Click()L1 FontSize=Cb1 TextEnd SubPrivate Sub Cb2_Click()L1 Font=Cb2 TextEnd Sub步骤 3：按 F5键运行程序并选择一个字号和字
9、体，然后单击窗体右上角的关闭按钮结束程序。步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题：本题要求通过修改程序源代码，来实现当选中不同选项时，单击命令按钮，即在窗体显示出不同信息的功能。程序源代码在按钮的 Click事件过程中，利用 For循环语句逐一判断单选按钮数组中每个元素当前是否被选中，若选中则通过在窗体中用 Print语句显示出相关信息。因为单选按钮数组一共有三个元素，且数组索引号 (Index属性值 )从 0开始，故循 环语句的初值为 0，终值为 2。 第 2小题：组合框的 Text属性可以返回当前选中的列表项内容，本题只需要分别在两个组合框的 Click事件中
10、令标签的相应字体属性等于组合框当前选中项的内容即可。 三、综合应用题 3 【正确答案】 步骤 1：打开本题对应工程文件 sjt5 vbp。 步骤 2：双击窗体 Form1上的 “计算 ”按钮，打开代码编辑窗口，在其 Click事件过程中输入如下代码。 参考代码： Private Sub C1_Click() a =15000 Do a =a +1 Loop Until isprime(a ) Text1 Text=a End Sub 步骤 3：双击窗体 Form1上的 “存盘 ”按钮，在代码编辑窗口其 Click事件过程中输入如下代码。 参考代码： Private Sub C2_Click()
11、 Open App Path&“ out5 txt“For Output As#1 print： #1， Text1 Text Close#1 End Sub 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 素数的判断准则就是看该数除了 1和其本身外有无其他约数。程序设计思路：要找出大干 15000的第一个素数，可以定义一个初值为 15000的整型变量 a，通过调用函数 isprime(a)，以其返回值是素数 (即 isprime(a)作为 Do循环语句的继续循环条件，在循环体中加入语句： a=a+1，实现每执行循环体一次变量a的值增加 1，当循环结束时将 a的值在文本框中显示出来。 要将结果存入考生文件夹下的 out5 txt文件，可先用 Open语句以输出方式打丌该文件；然后通过 Print语句将文本框中的内容写入打开的文件；最后用 Close语句关闭打开的文件。
