1、国家二级 VB机试（上机操作）模拟试卷 39及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。请在名称为 Forml的窗体上建立一个二级下拉菜单，第一级共有两个菜单项，标题分别为 ”文件 ”、 ”编辑 ”，名称分别为 file、 edit；在 ”编辑 ”菜单下有第二级菜单，含有三个菜单项，标题分别为 ”剪切 ”、 ”复制 ”、 ”粘贴 ”，名称分别为 cut、 copy、 paste。其中 ”粘贴 ”菜单项设置为无效 (如图 2-206所示 )。注意：存盘时必须存放在考生文件夹下，工程文件名 为 sjtl vbp，窗体文件名为
2、 sjtl frm。 2 在窗体上画两个文本框，名称分别为 Textl、 Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在 Textl中每输入一个字符，则显示一个 ”*”，间时在 Text2中显示输入的内容 (如图 2-207所示 )。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2， vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在名称为 Forml的窗体上画两个图片框，名称分别为 Pl、 P2，高度均为 1900，宽 度均为 1700，通过属性窗口把图片文件 picl bmp放入 P1中，把图片文件pic2 jp
3、g放入 P2中：再画一个命令按钮，名称为 C1，标题为 ”交换图片 ”(如图 2-208所示 )。编写适当的事件过程，使得在运行时，如果单击 ”交换图片 ”按钮，则在P1中显示 pic2 jpg，在 P2中显示 picl bmp。程序中不得使用任何变量，也不能使用第三个图片框。注意：存盘时必须存放在考生文件夹下，工程文件名为sit3 vbp，窗体文件名为 sjt3 frm。 4 在考生文件夹下有一个工程文件 sjt4 vbp，请在窗体上画两 个复选框，名称分别为 Chl、 Ch2，标题分别为 ”程序设计 ”、 ”数据库原理 ”；然后画一个文本框，名称为 Textl；再画一个命令按钮，名称为 C
4、1，标题为 ”确定 ”(如图 2-209所示 )。请编写适当的事件过程，使得在运行时，选中复选框并单击 ”确定 ”按钮，就可以按照下表的要求把结果显示在文本框中。存盘时，工程文件名为 sjt4 vbp，窗体文件名为 sjt4 frm。注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须进行产生表 2-9一个结果的操作。 三、综 合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上有两个文本框，名称分别为Textl、 Text2；还有三个命令按钮，名称分别为 Cl、 C2、 C3，标题分别为 ”输入 ”、 ”计算 ”、
5、 ”存盘 ”(如图 2-210所示 )。并有一个函数过程 isprime(a)可以在程序中直接调用，其功能是判断参数 a是否为素数，如果是素数，则返回 True，否则返回 False。请编写适当的事件过程，使得在运行时，单击 ”输入 ”按钮，就把文件in5 txt中的整数放入 Textl中；单击 ”计算 ”按钮，则找出大于 Textl中的整数的 第一个素数，并显示在 Text2中；单击 ”存盘 ”按钮，则把 Text2中的计算结果存入out5 txt文件中。注意：考生不得修改 isprime函数过程和控件的属性，必须把计算结果通过单击 ”存盘 ”按钮存入 out5 txt文件中。 国家二级 V
6、B机试（上机操作）模拟试卷 39答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，利用菜单设计器如表 3-120在窗体上建立一个二级菜单。 步骤 2：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程。步骤 2：在窗体 Forml中加入两个文本框，并分别设置它们的相关属性，属性及值如表 3-12l所示。步骤 3：双击 Textl文本框，打开代码编辑窗口，在 Textl的 Change事件过程中输入如下代码：参考代码： Private Sub Text 1_Change( )Text2 Text=Textl Text
7、End Sub步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中如表 3-122画出所列控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写命令按钮的 Click事件过程：参考代码： Private Sub Cl_Click( )Picl Picture=LoadPicture(App Path+_“ pi c2 bmp”)Pic2 Picture=LoadPicture(App Path+_“ picl bmp”)End Sub步骤 3：按要求将文件保存至考生文件夹中。 4 【正确答案】 步骤 1：
8、打开考生文件中的本题工程文件 sjt3 vbp，如表 3-123在窗体中画出控件并设置 属性。步骤 2：在代码编辑窗口，编写 ”确定 ”按钮的单击事件。参考代码： Private Sub C1_Click( )Textl Text=“我选的课是 ”If Chl Value ThenTextl Text=Textl Text+Chl CaptionEndIfIf Ch2 Value=1 ThenTextl Text=Textl Text+Ch2 CaptionEndIfEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：打开考生文件中的本题工程文
9、件 sjt5 vbp，在代码编辑窗口，分别编写命令按钮的单击事件。 参考代码： Private Sub Cl_Click( ) Open”in5 txt”For Input As#1 Input #1， a Close #1 Textl Text=a End Sub Private Sub C2 Click( ) a =Textl Text Do a =a +1 Loop Until isprime(a ) Text2 Text=a End Sub Private Sub C3_Click( ) Open”out5 txt”For Output As #1 Print #1， Text2 Text Close #1 End Sub
