1、国家二级 VB机试（上机操作）模拟试卷 85及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个标签，其名称为 Labell，标题为 “等级考试 ”，BorderStyle属性为 1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为 Command1，编写适当的事件过程。程序运行后，其界面如图 3一73(a)所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题，如图 3 73(b)所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl v
2、bp，窗体文件名为 sjtl frm。(2)在名称为 Forml的窗体上画一个文本框，其名称为 Textl，初始内容为空白；然后再画三个单选按钮，其名称分别为opl、 Op2和 Op3，标题分别为北京、西安和杭州，编写适当的事件过程。程序运行后，如果选择单选按钮 Opl，则在文本框中显示 “颐和园 ”；如果选择单选按钮Op2，则在文本框中显示 “兵马俑 ”；如果选择单选按钮 Op3，则在文本框中显示“西湖 ”。程序的运行情况如图 3-74所示。要求程序中不得使用变量，事件 过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2 vbp，窗体文件名为 sjt2 frm。
3、二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sit3 vbp，其窗体中有一个红色方框和一个计时器控件。程序运行时每隔 0 5秒，方框的颜色交替变为黄色和红色 (黄色值为&HFFFF&；红色值为 &HFF&)；若单击鼠标右键，则停止变色；若单击鼠标左键，则方框左上角移到鼠标点击的位置处 (如图 3 45所示 )。请将事件过程中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。注意：考 生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。(2)在考生文件夹下有一个工程文件 sit4 vbp，其窗口上有2个名称分别为 Commandl和 Command2，标题分别为
4、 “开始查找 ”和 “重新输入 ”的命令按钮；有 2个名称分别为 Text1和 Text2、初始值均为空的文本框。 1)在 Text1文本框中输入仅含字母和空格 (窄格用于分隔不同的单词 )的字符串后，单击 “开始查找 ”按钮，则可以将输入字符串中最长的单词显示在 Text2文本框中，如图 3 46所示； 2)单击 “重新输入 ”按钮，则清除 Text1和 Text2中的内容，并将焦点设置在Text1文本框中，为下一次输入做好准备。请将 “开始查找 ”命令按钮 C1ick事件过程中的注释符去掉，把 ?改为正确内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程序
5、按原文件名存盘。三、综合应用题 3 在考生目录下有一个工程文件 sit5 vbp。窗体左边的图片框名称为 Picturel，框中还有六个小图片框，它们是一个数组，名称为 Pic，在窗体右边从上到下有三个显示不同物品的图片框，名称分别为 Picture2、 Picture3、 Picture4，还有一个文本框 Textl以及四个标签，如图 3 52(a)所示。程序运行时，可以用鼠标拖拽的方法把右边的物品放到左边的图片框中 (右边的物品不动 )，同时把该物品的价格累加到Text1中，如图 352(b)所示。最多可放六个物品。实现此功能的方法是：程序刚运行时， Picture1中的图片框数组不显示，
6、当拖拽一次物品时，就显示一个图片框数组元素，并在该图片框数组元素中加载相应的图片，产生物品被放入的效果。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不得修改已经存在的内容和控件属性，最后把修改后的文件按 原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 85答案与解析 一、基本操作题 1 【正确答案】 第 1小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，如表4 43在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口编写以下事件过程。参考代码： Private Sub Commandl C1ick() Comm
7、andl Caption=Labell Labell ViSible=FalseEnd Sub步骤 3：按要求将文件保存至考生文件夹中。第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml上画一个文本框和三个单选按钮，其属性及值如表 4 44所示。步骤 2：在代码编辑窗口，编写三个单选按钮的单击事件过程。 参考代码： Private Sub Opl Click() Textl=“颐和园 ”End SUbPrivate Sub Op2 CliCk() Text1 Text=“兵马俑 ”End SubPrivate Sub Op3 C1ick() Textl Te
8、xt=“西湖 ”End Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt3 vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Timer1 Interval=500 Shape1 Left=X Shape1 Top=Y Timer1 Enabled=False If Shapel BackColor=vbRed Then 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt4 v
9、bp，在代码编辑窗 口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Word s=s s=Mid(s， m+1) If nLen(Word s) Then Text2 Text=Word max 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sit5 vbp。 步骤 2：在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Select Case Source Name For k=0 To 5 If Pic(k) Visible=False Then Pic(k) Visible=True Text1=Text1+a 步骤 3：按要求将文件保存至考生文件夹中。
