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