1、国家二级 VB机试（上机操作）模拟试卷 381及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。 (1)在名称为 Form1、标题为“电影制作”的窗体上画 1个名称为 Cmb1、初始内容为空的下拉式组合框(可以输入文本)。下拉列表中有“音频效果”、“视频效果”和“视频过渡”3 个表项内容。运行后的窗体如图 351所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt1frm，工程文件名为sjt1vbp。 (2)在名称为 Form1、标题为“椭圆练习”的窗
2、体上，画 1个名称为 Shape1的椭圆，其高为800、宽为 1200、左边距为 1000。椭圆的边框是宽度为 5的蓝色(&H00C00000&)实线，椭圆填充色为黄色(&H0000FFFF&)。再画 2个名称为 Command1和 Command2、标题为“左移”和“右移”的命令按钮。如图352所示。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，其窗体中有一个红色方框和一个计时器控件。程序运行时每隔 05 秒，方框的颜色交替变为黄色和红色(黄色值为&HFFFF&；红色值为&HFF&)；若单击鼠标右键，则停止变色；若单
3、击鼠标左键，则方框左上角移到鼠标点击的位置处(如图 353所示)。请将事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4vbp，其窗口上有 2个名称分别为 Command1和 Command2，标题分别为“开始查找”和“重新输入”的命令按钮；有 2个名称分别为 Text1和 Text2、初始值均为空的文本框。 1)在 Text1文本框中输入仅含字母和空格(空格用于分隔不同的单词)的字符串后，单击“开始查找”按钮，则可以将输入字符串中最长的单词显示在 Tex
4、t2文本框中，如图 354所示。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，窗口有 2个名称分别为 Command1和 Command2、标题分别为“读数据”和“排序”的命令按钮，有 2个标题分别为“数组 A”和“数组 B”的标签。请将窗体标题设置为“完全平方数排序”；再画 2个名称分别为 Text1和 Text2、初始内容都为空的文本框，并且可多行显示，有垂直滚动条，如图 355所示。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 381答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数
5、：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。 (1)在名称为 Form1、标题为“电影制作”的窗体上画 1个名称为 Cmb1、初始内容为空的下拉式组合框(可以输入文本)。下拉列表中有“音频效果”、“视频效果”和“视频过渡”3 个表项内容。运行后的窗体如图 351所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt1frm，工程文件名为sjt1vbp。 (2)在名称为 Form1、标题为“椭圆练习”的窗体上，画 1个名称为 Shape1的椭圆，其高为800、宽为 1200、左边距为 1000。椭圆的边框是宽度为 5的蓝
6、色(&H00C00000&)实线，椭圆填充色为黄色(&H0000FFFF&)。再画 2个名称为 Command1和 Command2、标题为“左移”和“右移”的命令按钮。如图352所示。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按表 432在窗体中画出控件并设置其相关属性。 步骤 2：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按表 433在窗体中画出控件并设置其相关属性。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，其
7、窗体中有一个红色方框和一个计时器控件。程序运行时每隔 05 秒，方框的颜色交替变为黄色和红色(黄色值为&HFFFF&；红色值为&HFF&)；若单击鼠标右键，则停止变色；若单击鼠标左键，则方框左上角移到鼠标点击的位置处(如图 353所示)。请将事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4vbp，其窗口上有 2个名称分别为 Command1和 Command2，标题分别为“开始查找”和“重新输入”的命令按钮；有 2个名称分别为 Text1和 Text2、
8、初始值均为空的文本框。 1)在 Text1文本框中输入仅含字母和空格(空格用于分隔不同的单词)的字符串后，单击“开始查找”按钮，则可以将输入字符串中最长的单词显示在 Text2文本框中，如图 354所示。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt3vbp，在代码编辑窗口中，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： Timer1Interval500 Shape1LeftX Shape1TopY Timer1EnabledFalse If Shape 1BackColorvbRed Then 步骤 2：按要
9、求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：打开考生文件下的本题工程文件，sjt4vbp，在代码编辑窗口中，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码， word_sS sMid(s,m1) If nLen(word_s)Then Text2Textword_max 步骤 2：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，窗口有 2个名称分别为 Command1和 Command2、标题分别为“读数据”和“排序”的命令按钮，有 2个标题分别为“数组 A”和“数组 B”的标签
10、。请将窗体标题设置为“完全平方数排序”；再画 2个名称分别为 Text1和 Text2、初始内容都为空的文本框，并且可多行显示，有垂直滚动条，如图 355所示。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt5vbp，在码编辑窗口的指定位置输入以下代码。参考代码： 考生编写的代码 n0 For k1 To 100 If a(k)0 Then dSqr(a(k) If Int(d) d Then nn1 ： b(n)a(k) End If End If Next 步骤 2：在代码编辑窗口中，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： Call sort(b， n) 步骤3：按F5键运行程序，单击“读数据”按钮，然后单击“排序”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。)解析：
