1、国家二级 VB机试（上机操作）模拟试卷 283及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1、标题为 “电影制作 ”的窗体上画 1个名称为 Cmb1、初始内容为空的下拉式组合框 (可以输入文本 )。下拉列表中有 “音频效果 ”、 “视频效果 ”和 “视频过渡 ”3个表项内容。运行后的窗体如图 351所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt1 frm，工程文件名为 sjt1 vbp。 (2)在名称为Form1、标题为 “椭圆 练习 ”的窗体上，画 1个名称为 Shape
2、1的椭圆，其高为 800、宽为 1200、左边距为 1000。椭圆的边框是宽度为 5的蓝色 (&H00C00000&)实线，椭圆填充色为黄色 (&H0000FFFF&)。再画 2个名称为 Command1和 Command2、标题为 “左移 ”和 “右移 ”的命令按钮。如图 352所示。要求：编写 2个按钮的Click事件过程，使得每单击 “左移 ”按钮一次，椭圆向左移动 100；每单击 “右移 ”按钮一次，椭圆向右移动 100。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时，将文件保存至 考生文件夹下，窗体文件名为 sjjt2 frm，工程文件名为 sjt2 vbp。 二
3、、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其窗体中有一个红色方框和一个计时器控件。程序运行时每隔 0 5秒，方框的颜色交替变为黄色和红色 (黄色值为&HFFFF&；红色值为 &HFF&)；若单击鼠标右键，则停止变色；若单击鼠标左键，则方框左上角移到鼠标点击的位置处 (如图 353所示 )。请将事件过程中的注释符去掉，把 “?”改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程 序，最后将程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，其窗口上有 2个名称分别为 Command1和Command2，标题分别
4、为 “开始查找 ”和 “重新输入 ”的命令按钮；有 2个名称分别为Text1和 Text2、初始值均为空的文本框。 1)在 Text1文本框中输入仅含字母和空格(空格用于分隔不同的单词 )的字符串后，单击 “开始查找 ”按钮，则可以将输入字符串中最长的单词显示在 Text2文本框中，如图 354所示。 2)单击 “重新输入 ”按钮，则清除 Text1和 Text2中的内容，并将焦点设置在 Text1文本框中，为下一次输入做好准备。请将 “开始查找 ”命令按钮 Click事件过程中的注释符去掉，把 “?”改为正确内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序。最后，程
5、序按原文件名存盘。三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp，窗口有 2个名称分别为 Command1和 Command2、标题分别为 “读数据 ”和 “排序 ”的命令按钮，有 2个标题分别为 “数组 A”和 “数组 B”的标签。请将窗体标题设置为 “完全平方数排序 ”；再画 2个名称分别为 Text1和 Text2、初 始内容都为空的文本框，并且可多行显示，有垂直滚动条，如图 355所示。程序功能如下： 1)单击 “读数据 ”按钮，则把考生文件夹下in5 dat文件中的 100个正整数读入数组 A，并将它们显示在 Text1文本框中。 2)单击 “排序 ”按钮，则首先
6、将这 100个数中的所有完全平方数放入数组 B中，并将它们按降序排列显示在 Text2文本框中。提示：一个整数若是另一个整数的平方，那么它就是完全平方数。如 144=122，所以 144就是一个完全平方数。要求：去掉注释符，把 ?改为正确内容，并添加代码使得 “排序 ”命令按钮的 Click事 件过程可以实现上述功能。提示： Sort过程可以把求出的完全平方数进行排序，可以直接调用。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行 “排序 ”，且须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 283
7、答案与解析 一、基本操作题 1 【正确答案】 第 1小题步骤 1：新建一个 “标准 EXE”工程，按表 432在窗体中画出控件并设置其相关属性。 步骤2：按要求将文件保存至考生文件夹中。第 2小题步骤 1：新建一个 “标准 EXE”工程，按表 433在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写2个命令按钮的单击事件过程。参考代码： Private Sub Command1_Click()Shape1 Left=Shape1 Left-100End SubPrivate Sub Command2_Click()Shape1 Left=Shape1 Left+100End S
8、ub步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题：本题只需按照要求画出控件并设置相应属性即可。 第 2小题：形状控件的 Shape属性用于设置其显示形状，当值为 2时为椭圆；BorderStyle属性用于控制边框的样式， BorderWidth属性用于控制边框的宽度。BorderColor属性控制边框的颜色， FillColor用于控制形状内部的填充色。 二、简单应用题 2 【正确答案】 第 1小题 步骤 1：打开考生文件下的本题工程文件 sjt3 vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Timer1 Interv
9、al=500 Shape1 Left=X Shape1 Top=Y Timer1 Enabled=False If Shape1 BackColor=vbRed Then 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 步骤 1：打开考生文件下的本题工程文件 sjt4 vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： word_s=s s=Mid(s， m+1) If n Len(word_s)Then Text2 Text=Word_max 步骤 2：按要求将文件保存在考生文件夹中。 【试题解析】 第 1小题鼠标事件分点击事件和状态事件：
10、点击事件有单击 (Click)和双击 (DblClick)，不区分左键、右键：状态事件有按下 (MouseDown)、移动(MouseMove)和弹起 (MouseUp)，能够区分出鼠标的左键、右键和中间键。按下鼠标键事件过程的一般格式为： Private Sub Form_MouseDown(Buaon As Integer， Shift As Integer， X As Single， Y As Single) End Sub 其中各参数的含义： Button表示被按下的鼠标键，可以取 3个值， 1为左键、 2为右键、 4为中间键； Shift表示 Shift键、 Ctrl键和 Alt键的
11、状态， Shift键为 1、Ctrl键为 2、 Alt键为 4； X， Y表示鼠标光标的当前位置。本题在计时器的 Timer事件过程中，完成方框的颜色交替，因此在 Timer事件中应该是一个选择语句，如果颜色为红色 (vbred)，将其设置为黄色，否则设置为红色。由于要求 0 5秒交替显示一次，因此计时器的 Interval属性应该设置为 500。 在窗体的 MouseDown事件中，首先要判断按下的是鼠标的哪个键，如果是左键，则令形状的 Left和 Top属性分别为鼠标事件的参数 X和 Y；如果是右键，则令计时器停止工作。 第 2小题：本题源程序在 “开始查找 ”按钮的 Click事件过程中
12、，先检验文本框Text1(已赋值给变量 s)中是否读入数据，并用 InStr函数检查空格的位置，以空格为单词分隔依据找出每个单词。每找到一个单词，就将该单词使用 Left函数在 s中分离出来，然后将 s中的这个单词去掉，判断单词的长度并且和预存的最长单词长度相比较，若其比最长单词还长，则这个单词的长度成为新的最长单词长度，这个单浏成为新的最长单词。循环结束后即可得出最长的单词。 三、 综合应用题 3 【正确答案】 步骤 1：打开考生文件夹下的工程文件 sjt5 vbp，在码编辑窗口的指定位置输入以下代码。 参考代码： 考生编写的代码 n=0 For k=1To100 If a(k) 0then
13、 d=Sqr(a(k) If Int(d)=d Then n=n+1： b(n)=a(k) End If End If Next 步骤 2：在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Call sort(b， n) 步骤 3：按 F5键运行程序，单击 “读数据 ”按钮，然后单击 “排序 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 程序设计思路：通过 For循环逐一取出数组 a中的 100个元素，依次判断每个元素是否是完伞平方数。判断完全平方数的过程只需要将该数组元素开甲方根以后取整，若其和数组元素开平方根的结果相等，则意味着该数组元素的平方根是一个整数，该数为完全平方数，将该数放入数组 b中。 sort过程的作用是将数组进行排序，该过程有两个参数，第一个参数为待排序的数组，第二个参数为要排序的元素个数，根据题意为数 组 b排序的语句为 Call son(b， n)。
