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