1、国家二级 VB机试（上机操作）模拟试卷 346及答案与解析 一、基本操作题 1 (1)在名称为 Form1，标题为 “组合框 ”的窗体上画 1个名称为 Combol的组合框，利用属性窗口设置适当属性使其在程序刚开始运行时的界面如图 3-37所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为sjtl frm。 (2)在名称为 Form1的窗体上画一个名称为 Imagel的图像框，并通过属性窗口为其装入考生文件夹中的图标文件 CARS iota再画一个名称为 Timerl的计时器，一个名称为 Command1、标题为 “开始 ”的命令按钮，如图 3 37图 3
2、-38所示。 要求：通过属性窗口设置适当的属性，再编写适当的事件过程，使得程序运行时，单击 “开始 “按钮，图片可以每 0 2秒向右移动 50。 注意：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是通过键盘向文本框中输入正整数。在 “除数 ”框架中选择一个单选按钮，然后单击 “处理数 据 ”按钮，将大于文本框中的正整数且能够被所选除数整除的 5个数添加到列表框 List1中，如图 3 80所示。在窗体文件中已经给
3、出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。程序运行后，单击 “开始 ”按钮，图片自上而下移动，同时滚动条的滑块随之移动，每 0 5秒移动一次。当图片顶端移动到距窗体的下边界的距离少于 200时，再回到窗体顶部 ，重新向下移动，如图 3 81所示。在窗体文件中已经给出了全部控件，但程序不完整。要求：请去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性
4、。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp。其窗体中有一个名称为 Text1的文本框数组，下标从 0开始。程序运行时，单击 “产生随机数 ”按钮，就会产生 10个 3位数的随机数，并放入 Text1数组中，如图 3 183(a)所示；单击 “重排数据 ”按钮，将把 Text1中的奇数移到前面，偶数移到后面，如图 3 183(b)所示。文件中已经给出了所有控件和部分程序。要求：请去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 提示：在 “重排数
5、据 ”按钮的事件过程中有对其算法的文字描述，请仔细阅读。 国家二级 VB机试（上机操作）模拟试卷 346答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1 中加入一个组合框。按表 4-25设置其相关 属性。步骤 2：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中加入一个图像框、一个定时器和一个命令按钮。按表 4-26设置其相关属性。步骤 2：在打开的代码编辑窗口中，编写命令按钮的 Click事件代码和定时器的 Timer事件代码。参考代码： Private Sub Comman
6、d1_Click()Timerl Enabled=TrueEnd SubPrivate Sub Timerl_Timer()Imagel Left=50+Imagel LeftEnd Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 (1)根据题目要求，在窗体上放置一个组合框。组合框可通过修改组合框的 Style属性值来改变其显示类型，值为 0-Dropdown Combo时，表示下拉式组合框，包括一个下拉式列表和一个文本框，可以从列表选择或在文本框中输入；值为 1-Simple Combo时，表示简单组合框，包括一个文本框和一个不带下拉列 表的列表，可以从列表中选择或在文本框
7、中输入，增加其高度可显示列表的更多部分；值为 2-Dropdown List时，表示下拉式列表，这种样式仅允许从下拉式列表中选择。根据题目要求，显然需要把组合框的 Style属性设置为 1-Simple Combo。 (2)题目要是使用定时器实现图像框的移动，可以在定时器的 Timer事件处理过程中设置图像框的 Left属性增加 50，或者使用图像框的 Move方法。在命令按钮的 Click事件处理过程中，将定时器的 Enabled属性设置为 True，定时器开始运行，定时时间到达就 执行 Timer事件过程。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开考生文件下的本题工程文件 s
8、jt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： If optionl Item(i)=TrHe Then y=Val(Optionl(i) Caption) Do While i=Form1 Height 200)时，则重新从窗体顶端开始移动，即 Picture1 Top=0。由于题目要求不能在设计阶段修改控件属性，要想在单击 “开始 ”按钮时能启动计时器，就需在窗体加载事件过程中设置计时器的Interval属性，即 Timerl Interval=500。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹中的本题工程文件 sjt5
9、 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： j=9 temp=Text1(j) While(ij) If Text1(j)Mod 2=1 Then 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 本题源程序中，变量 i和 j均用作 Text1文本框数组的索引号 (即Index属性值 )，根据算法中的第 l条，可知 i=0、 j=9、 temp=Text1(j)，其中 “暂存最后一个数 ”的目的是为空出一个位置放第一个偶数。根据算法中的第 3条，检查第 j个数是否为奇数的条件表达式为： Text1(j)Mod 2=1。算法中的第 2条和第 3条交替运行，将实现一后 (偶数 )一前 (奇数 )重排数据的目的。根据算法中的第 4条，可知在 i向后移、 j向前移过程中，当 i=i时则停止这种移动 (故 While循环的条件表达式为 ii)。将先前暂存的数 (temp)放到当前空缺位置，以实现算法中的第5条。
