[计算机类试卷]VB机试模拟试卷155及答案与解析.doc

1、VB机试模拟试卷 155及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为： PictureI的图片框 (PictureBox)，高、宽均为1000。在图片框内再画一个有边框的名称为 Imagel的图像框 (Image)。并通过属性窗口把考生目录下的图标文件 POINTll(香蕉图标 )装入图像框 Imagel中，如图 1-26所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名 为 sjtl frm。 (2)在名称为 Forml的窗体上

2、画一个名称为Commandl、标题为 “保存文件 ”的命令按钮，再画一个名称为 CommonDialogl的通用对话框。要求： 通过属性窗口设置适当的属性，使得运行时对话框的标题为“保存文件 ”，且默认文件名为 out2； 运行时单击 “保存文件 ”按钮，则以 “保存对话框 ”方式打开该通用对话框。如图 1-27所示。注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，请在窗体上画两个框架，其名称分别为 F1

3、和 F2，标题分别为 “交通工具 ”和 “到达目标 ”。在 Fl中画两个单选按钮，名称分别为 Opl和 Op2，标题分别为 “飞机 ”和 “火车 ”。在 F2中画两个单选按钮，名称分别为 Op3和 Op4，标题分别为 “广州 ”和 “昆明 ”。画一个称为 Labl的标签，宽度为 3000，高度为 375。编写适当事件过程。程序运行后，选择不同单选按钮并单击窗体后在标签上显示的结果见表 1-1。程序的运行情况如图 1-127所示。存盘 时，工程文件名为 sjt3 vbp，窗体文件名为 sjt3 frm。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行上面的一种操作。退

4、出程序时必须通过单击窗体右上角的关闭按钮。(2)在考生文件夹下有一个工程文件 sjt4 vbp，请在窗体上画两个文本框，其名称分别为 Textl、 Text2，文本框的内容分别设置为 “计算机 ”、“等级考试 ”。然后画一个标签，其名称为 Labl，高度为 375，宽度为 2000。再画两个单选按钮，名称分别为 opl和 op2，标题分别为 “交换 ”和 “连接 ”，最后再画一个命令按钮，其名称为 Cl，标题为 “确定 ”，编写适当的事件程序。程序运行后，如果选中 “交换 ”单选按钮并单击 “确定 ”按钮，则 Textl文本框中的内容与 Text2文本框中的内容进行交换，并在标签处显示 “交换

5、成功 ”(如图 1-128所示 )；如果选中 “连接 ”单选按钮并单击 “确定 ”按钮后，则把交换后的 Textl和 Text2的内容连接起来，并在标签处显示连接后的内容。存盘时，工程文件名为 sjt4 vbp，窗体文件名为sjt4 frm。注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击 “确定 ”按钮。 退出程序时必须通过单击窗体右上角的关闭按钮，否则无成绩。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5 vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框 Textl中输入一个大于 2的偶数，并单击 “分解为 ”按

6、钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数 (一个偶数有时可以分解为多种素数的组合，例如 24可以分解为5和 19，也可以分解为 11和 13，要求取含有最小素数的组合，如图 1-38所示 )。要求编写 “分解为 ”按钮事件过程中 “考生 编写程序开始 ”和 “考生编写程序结束 ”之间的代码，以实现上述功能。过程 IsPrime用来判断一个数是否为素数，如果是，返回值为 True，否则返回值为 False。注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且运行时在文本框中输入 23456，单击 “分解为 ”按钮，将结果显示在标签中，否则无成绩。

7、最后把修改后的文件按原文件名存盘。VB机试模拟试卷 155答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 l小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表2-14在窗体中画出控件 并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，选择【工程】 【部件】命令，在弹出的 “部件，对话框的列表中选中“MicroSoflCommonDialogControl6,0”项目，单击 “确定 ”按钮。 步骤 2： 在窗体：Forml上画一个通用对话框和一个命令按钮，其相关属性设置如表 2-15所示

8、。步骤 3：打开的代码编辑窗口中，编写命令按钮的单击事件过程。 Private Sub Commandl Click() CommonDJ alog 1 Action=2 或 CommonDialogl ShowSave End Sub 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 窗体、图像框 (ImageBox)和图片框 (PietureBox)上均可以显示来自位图、图标、元文件、 JPEG或 GIF文件的图形。区别在于：图像框专门用于显示位图，而另外两种还提供了画图的功能。为图片框控 件指定图片有两种方法：一是在设计阶段通过 Picture属性设置；二是在程序运行

9、时通过 LoadPicture()图片加载函数加载。 图片框作为一个容器，在图片框上可以再画图片框或者图像框。 本题只需按照要求画出控件并设置属性即可，注意图像框要画在图片框内部。 第 2小题 通用对话框的默认文件名由 FileName属性设置。标题由 Dialog“ritle属性设置。本题可在 “保存文件 ”的单击事件过程中，用语句通过调用通用对话框的 ShowSave方法或通过设置其 Action属性值为 2，使其以 “保存对话框 ”方式打开。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题 【操作步骤】 步骤 l：打开考生文件夹下的本题工程文件sjt3 vbp。 步骤 2：在窗

10、体 Forml中加入两个框架和一个标签以及一个命令按钮，然后在每个框架中各加入两个单选按钮，分别设置它们的相关属性，其属性及值如表 2-69所示。 步骤 3：打开代码编辑窗口输入如下代码： 参考代码： PriVate Sub FormI_Click() If Op And Op3 Then Labl Caption=“坐飞机去广州 “ ElseIf Opl And Op4 Then Labl Caption=“坐飞机去昆明 “ ElseIf Op2 And Op3 Then Labl Caption=“坐火车去广州 “ ElseIf Op2 And Op4 Then Labl Caption=

11、“坐火车去昆明 “ End If End Sub 步骤 4：按要求将文件保存至考生文件夹中。 步骤 5：按键运行程序，选择一种交通工具和一个到达目标，并单击命令按钮，最后单击窗体右上角的关闭按钮退出程序。 第 2小题 【操作步骤】 步骤l：打开考生文件夹下的本题工程文件 sjt4 vbp。 步骤 2：在 窗体 Forml中加入两个文本框、一个标签和两个单选按钮，分别设置它们的相关属性，其属性及值如表2-70所示。 步骤 3：打开代码编辑窗口输入如下代码： 参考代码： Private Sub C1_Click() If Opl Then Labl Caption=Textl Text Textl

12、 Text=Text2 Text Text2 Text=Labl Caption Labl Caption=“交换成功 “ ElseIf Op2 Then Labl Caption=Textl Text&Text2 Text End If End Sub 步骤 4：按要求将文件保存至考生文件夹中。 步骤 5：按键运行程序，选择一个单选按钮，并单击命令按钮，最后单击窗体右上角的关闭按钮退出程序。【试题解析】 第 1小题 根据题目要求，在 “确定 ”按钮的单击事件过程中，先用 If语句判断框架 F1中的Opl是否选中 (即以 Opl Value=True为条件表达式 )，如果条件为真，那么再继续判

13、断框架 F2中的 Op3是否选中 (即以 Op3 Value=True为条件表达式 )，当 Op3被选中时，标签中显示 “坐飞机去广州 ”，否则显示 “坐 飞机去昆明 ”；同理在外层If语句条件为假 (即 Op2被选中 )时，也作类似处理。这样一共就有四种可能： Opl和 Op3被选中、 Opl和 Op4被选中、 Op2和 Op3被选中、 Op2和 Op4被选中。对于可能出现的不同选择对照题目中表的规定，在标签中显示不同内容。以上判断和显示操作均在 Cl的 Click事件中完成。 第 2小题 根据题目要求，设计本题程序的思路：在命令按钮的 Click事件过程中分别以Opl和 Op2是否选中作为

14、 If语句的条件，当 Opl被选中时，将两个文本框中的内容通过一个中间变量进行交换：当 Op2被选 中时，将两个文本框中的内容连接起来。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： Dim i As Integer Dim n As Integer n=Val(Textl Text) If n Mod 2O Then MsgBox“请输入偶数 !“ Exit Sub End If For i=3 To n 2 If IsPrime(i)And IsPrime(n-i)T

15、hen Labell Caption=i Label2 Caption=n-i Exit For End If Next 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按 键运行程序，在文本框中输入 23456，单击 “分解为 ”按钮。 【试题解析】 素数的判断准则就是看该数除了 l和其本身外有无其他约数。 本题程序设计思路：两个整数之和为 n的组合有： l和 n 1、 2和 n-2i 和 n i，在。 For循环中按前一个加数由小到大的顺序，依次通过调用函数 IsPrime来判断每个组合中的两个加数是否均为素数，第一个找到的素数组合中即含有能够分解出的最小素数。由于 1不是素数，故循环变量的初值从 2开始；由于 i和 n-i的组合与 n-i和 i组合在本题中可被视为相同组合，故循环变量的终值设定为 n/2即可。