1、国家二级 VB机试（上机操作）模拟试卷 381及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1、标题为 “电影制作 ”的窗体上画 1个名称为 Cmb1、初始内容为空的下拉式组合框 (可以输入文本 )。下拉列表中有 “音频效果 ”、 “视频效果 ”和 “视频过渡 ”3个表项内容。运行后的窗体如图 351所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt1 frm，工程文件名为 sjt1 vbp。 (2)在名称为 Form1、标题 为 “椭圆练习 ”的窗体上，画 1个名称为 Shap
2、e1的椭圆，其高为 800、宽为1200、左边距为 1000。椭圆的边框是宽度为 5的蓝色 (&H00C00000&)实线，椭圆填充色为黄色 (&H0000FFFF&)。再画 2个名称为 Command1和 Command2、标题为 “左移 ”和 “右移 ”的命令按钮。如图 352所示。要求：编写 2个按钮的 Click事件过程，使得每单击 “左移 ”按钮一次，椭圆向左移动 100；每单击 “右移 ”按钮一次，椭圆向右移动 100。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时 ，将文件保存至考生文件夹下，窗体文件名为 sjt2 rim，工程文件名为 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 在考生文件夹下有一个工程文件 sjt5 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机试（上机操作）
7、模拟试卷 381答案与解析 一、基本操作题 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
8、 Shape1 Left 100End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt3 vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： Timer1 Interval 500 Shape1 Left X Shape1 Top Y Timer1 Enabled False If Shape 1 BackColor vbRed Then 步骤 2：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：打开考生文件下的本题工程文件， sj
9、t4 vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码， word_s S s Mid(s,m 1) If n Len(word_s)Then Text2 Text word_max 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 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：按要求将文件保存至考 生文件夹中。
