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