1、国家二级 VB机试（上机操作）模拟试卷 295及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上画一个名称为 Text1的文本框，其高、宽分别为 400、 2000。运行后的窗体如图 3112所示。请在属性框中设置适当的属性满足以下要求： Text1的字体为 “黑体 ”，字号为 “四号 ”； 窗体的标题为 “输入 ”，不显示最大化按钮和最小化按钮。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在名称为 Form1的窗体上画一个名称为
2、Image1的图像框，利用属性窗口装入考生目录下的图像文件 pic1 bmp，并设置适当属性使其中的图像可以适应图像框大小；再画两个命令按钮，名称分别为Command1、 Command2，标题分别为 “向右移动 ”、 “向下移动 ”。请编写适当的事件过程，使得在运行时，每单击 “向右移动 ”按钮一次，图像框向右移动 100；每单击 “向下移动 ”按钮一次，图像框向下移动 100。运行时的窗体如图 3113所示。要求程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须 存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在考生
3、目录下有一个工程文件 sjt3 vbp，窗体上有一个圆和一条直线 (直线的名称为 Line1)构成一个钟表的图案；有两个命令按钮，名称分别为 Command1、Command2，标题分别为 “开始 ”、 “停止 ”；还有一个名为 Timer1的计时器。程序运行时，钟表指针不动，单击 “开始 ”按钮，则钟表上的指针 (即 Line1)开始顺时针旋转 (每秒转 6，一分钟转一圈 )；单击 “停止 ”按钮，则指针停止旋转。运行时 的窗体如图 3114所示。请设置计时器的适当属性，使得每秒激活计时器的 Timer事件一次，并编写两个按钮的 Click事件过程。文件中已经给出了所有控件和部分程序，不得修
4、改已有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在 Text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击 “转换 ”按钮，则按选中的单选按钮的标题进行转换，结果放入 Text2(如图 3115所示 )。在给出的窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生目录下有
5、一个工程文件 sjt5 vbp。窗体中已经给出了所有控件 (如图 3116所示 )。请编写适当的事件过程完成以下功能：单击 “读数 ”按钮，则把考生目录下的 in5 txt文件中的一个整数放入 Text1；单击 “计算 ”按钮，则计算出大于该数的第一个素数，并显示在 Text2中； 单击 “存盘 ”按钮，则把找到的素数存到考生目录下的 out5 txt文件中。注意：在结束程序运行之前，必须单击 “存盘 ”按钮，把结果存入 out5 txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 295答案与解析 一、基本操作题 1 【正确答案】 第 1小题步骤
6、 1：新建一个 “标准 EXE”工程。步骤 2：按要求画出控件，并在属性窗口中没置其相关属性，属性及值如表 468所示。步骤 4：在文本框的属性窗口中单击“Font”属性右侧的按钮，打开 “字体 ”对话框，存其中设置 “字体 ”为 “黑体 ”， “字号 ”为 “四号 ”。步骤 5：单击窗体无控件区域，在属性窗口中设置窗体相关属性。步骤6：按要求将文件保存至考生文件夹中。第 2小题步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中画一个图像框和两个命令按钮，分别设置其相关属性，属性及值如表 469所示。 步骤 2：双击 “向右移动 ”命令按钮，打开代码编辑窗口，在按钮的 Click事
7、件过程中输入如图 42所示代码。 步骤 3：双击 “向下移动 ”命令按钮，打开代码编辑窗口，在按钮的 Click事件过程中输入如图 43所示代码。步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题：本题只需按要求建立程序界面并设置窗体和文本框相关属性即可。 第 2小题：本题需要按照要求建立相关控件并设置相应属性，然后在相应事件代码中改变图像框的 Left属性值和 Top属性值。 二、简单应用题 2 【正确答案】 第 1小题 步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，在属性设置窗口，设置计时器的： Interval属性值为 1000， Enabled属性值为
8、False。 步骤 2：在代码编辑窗口，编写 “开始 ”和 “停止 ”按钮的单击 事件过程。 参考代码： Private Sub Command1_Click() Timer1 Enabled=True End Sub Private Sub Command2_Click() Timer1 Enabled=False End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： a=Mid$(Text1 Text， k， 1) ch=ch+
9、LCase(a) Text2=ch 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题：木题通过计时器的 Timer事件来控制直线控件的位置，从而实现钟表上的指针旋转的功能。为使计时器的 Timer事件每秒激活一次需将计时器的 Interval属性值设置为 1000；为使程序刚运行时钟表指针不动需将Enabled属性值设置为 False。在 “开始 ”按钮的单击事件过程中，通过设置计时器的 Enabled属性值为 True束启动计时器。在 “停止 ”按钮的单击事件过程中，通过设置计时器的 Enabled属性值为 False来停止计时器。 第 2小题：本题源程序是在命令按钮的单
10、击事件过程中，用 For循环语句和 Mid函数逐一取出文本框 Text1中的字符后，根据单选按钮的选择进行相应转换；当选择 “大写转小写小写转大写 ”时，如果是小写字母就用 UCase函数转换为大写，如果是大写字母就用 UCase函数转换为小写，如果不是字母就不用转换：当选择 “全部大写 ”时，就用 UCase函数将文本框中所有字母转换为大写；当选择 “全部小写 ”时，就用 LCase函数将文本框中所有字母转换为小写。将转换结果显示在文本框 Text2中。 三、综合应用题 3 【正确答案】 步骤 1：打开本题对应工程文件 sjt5 vbp。 步骤 2：双击窗体 Form1上的 “计算 ”按钮，
11、打开代码编辑窗口，在其 Click事件过程中输入如下代码。 参考代码： Private Sub Command2_Click() a =CInt(Text1 Text) Do a =a +1 Loop Until isprime(a ) Text2 Text=a End Sub 步骤 3：编写判断素数的函数过程 isprime，参考代码为： Function isprime(a As Integer) Dim flag As Boolean k =2 flag=True While k =Int(a 2)And flag If a k =Int(a k )Then flag=False End If k =k +1 Wend isprime=flag End Function 步骤 4：按 F5键运行程序，先单击 “读数 ”按钮，接着单击 “计算 ”按钮，最后单击 “存楹 ”按钮。 步骤 5：按要求将文件保存至考生文件夹中。 【试题解析】 程序设计思路：要找出大于给定数的最小素数，可以首先将给定数加 1赋值给变量 a，通过调用函数 isprime(a)，以其返回值不是素数作为 Do循环语句的循环条件，在循环体中加入语句： a=a+1实现每执行循环体一次变量 a的值加 1，当循环结束时 a的值即为所求。
