1、国家二级 VB机试（上机操作）模拟试卷 385及答案与解析 一、基本操作题 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、录下有一个工程文件 sjl5 vbp，其窗体上有一个文本框，名称为Textt；还有两个命令按钮，名称分别为 C1、 C2，标题分别为 “计算 ”、 “存盘 ”，如图 377所示。并有一个函数过程 isprime(a)可以在程序中直接调用，其功能是判断参数 a是否为素数，如果是素数，则返回 True，否则返回 False。请编写适当的事件过程，使得在运行时，单击 “计算 ”按钮，则找出大于 15000的第一个素数，并显示在 Text1中；单击 “存盘 ”按钮，则把 Text1中的计算结果存入考生文件夹下的out5 txt文件中。 注意：考生不得修改 isprime函数过程和控件的属性，必须把计算
6、结果通过单击 “存盘 ”按钮存入 out5 txt文件中，否则无成绩。 国家二级 VB机试（上机操作）模拟试卷 385答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 445在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 446在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。参考代码： Private Sub Text1_Change()P1 Print Text1 TextEnd Sub 步
7、骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正 确答案】 (1)【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件sjt3 vbp，依次选中窗体中的各单选按钮和命令按钮，设置它们的相关属性，其属性及值如表 447所示。 步骤 2：双击 “显示 ”命令按钮，打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： Private Sub C1_Click() For i 0 To 2 If Op1(i) Value True Then Print“我的出生地是 “ _ Op1(i) Caption End If NextEnd Sub 步骤 3
8、：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，如表 448画出三个标签和两个组合框并设置属性。 步骤 2：在代码编辑窗口，编写两个组合框的单击的单击事件过程。参考代码： Private Sub Cb1_Click()L1 FontSize Cb1 TextEnd SubPrivate Sub Cb2_Click()L1 FontCb2 TextEnd Sub 步骤 3：按键运行程序并选择一个字号和字体，然后单击窗体右上角的关闭按钮结束程序 。 步骤 4：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操
9、作步骤】 步骤 1：打开本题对应工程文件 sjt5 vbp。 步骤 2：双击窗体 Form1上的 “计算 ”按钮，打开代码编辑窗口，在其 Click事件过程中输入如下代码。参考代码： Private Sub C1_C1ick() a 15000 Do a a 1 Loop Until isprime(a ) Text1 Text a End Sub 步骤 3：双击窗体 Form1上 的 “存盘 ”按钮，在代码编辑窗口其 Click事件过程中输入如下代码。参考代码： Private Sub C2_CliCk() Open App Path “ out5 txt“ _For Output As #1 Print #1， Text1 Text Close#1 End Sub 步骤 4：按要求将文件保存至考生文件夹中。
