1、国家二级 VB机试（上机操作）模拟试卷 350及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上画一个名称为 Imagel的图像框，再画一个名称为Command1、标题为 ”退出 ”的命令按钮。通过属性窗口设置图像框的属性，将考生文件夹下的 picl bmp文件加载到图像框，使图片的大小能够随图像框大小而改变。设置命令按钮的属性，使得程序运行时，按回车键即可执行命令按钮的 Click事件过程。窗体外观如图 3 10所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 st1 vbp，窗体文件名为 sjtl frm。(2)在名称为 Form1的窗体上画一个名称为CD1的通用
2、对话框，在属性窗口中设置 CD1的属性，使得打开通用对话框时，其初始路径是 “D： ”。按照表 3-1设计菜单，窗体外观及菜单如图 3 1l所示。请编写程序，使得运行程序，单击 “打开文件 ”或 “保存文件 ”菜单项时，相应地出现“打开 “或 “保存 ”对话框。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)考生文件夹下 有一个工程文件 sjt3 vbp，其窗体上有 1个名称为 Text1的控件数组；一个标题为 ”排序 ”的命令按钮。程序运行时，在文本框数组中
3、输入 8个整数，如图 3-29(a)所示；然后单击 ”排序 ”按钮，则 8个整数按降序排序，如图 3-29(b)所示。 在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把 “?”改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 (2)在考生文件夹下有工程文件 sjt4 vbp。其窗体界面如图 3-30所示，可以实现以下功能： “添加项目 ”按钮可以把在组合框编辑区中输入的新项目添加到组合框列表中，但不能添加重复项目； “删除项目 ”按钮从列表中删除选中的项目； “添加爱好 ”按钮把组合框编辑区中的内
4、容追加到下面的文本框原有内容之后； “清除爱好 ”按钮清除该文本框内容。 在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把 “?”改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。 三、综合应用题 3 (1)在考生文件夹下有 工程文件 sjt5 vbp，窗体上有两个标题分别是 “读数据 ”和“统计 ”的命令按钮，请添加一个名称为 Label1、标题为 “回文的个数为 ”的标签和一个名称为 Text1，初始值为空的文本框，如图 3 87所示。程序功能如下： 单击“读数据 ”按钮，则将考生文件夹下 in
5、5 dat文件的内容读到变量 s中。 单击 “统计 “按钮，则统计 in5 dat文件 (该文件中仅含由空格间隔开的字母串 )中回文的个数，并将统计的回文个数显示在 Text1文本框内。 (所谓回文是指顺读与倒读都一样的字符串，如 “recycer”)。 “读数据 ”按钮和 “统计 ”按钮的 Click事件过程已经给出，请完善 Function过程 foundhuiwen的功能，实现上述程序功能。 注意：考生不得修改窗体文件中已存在的控件和程序，在结束程序运行之前，必须先进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试
6、卷 350答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中加入一个图像框和命令按钮。按表 4 5设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中加入一个通用对话框。按表 4-6设置其相关属性。步骤 2：利用菜单设计器按表 1在窗体上建立一个菜单，属性设置如表 4 7所示。 步骤 3：在打开的代码编辑窗口中，编写菜单的 Click事件代码。参考代码： PriVate Sub OpenFile_Click()CD1 ShowOpenEnd SubPriv
7、ate Sub SaveFile_Click()CD1 ShowSaveEnd Sub 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 (1)根据题目要求，图像框内加载 picl bmp，可以通过图像框的Picture属性来设置控件中要显示的图片。图像框的 Stretch属性决定了图形框控件是否自动改变大小以显示图片的全部内容，当值为 Tree，图像可以自动改变大小以显示全部内容；当值为 False时，则不具备图像的自我调节功能。命令按钮的Default属性设置为 True时，按回车键与单击此命令按钮的作用相同，这个命令按钮也被称为默认按钮。 (2)本题只需按题目要求利用 VB的菜单
8、设计器建立一个菜单，在菜单的事件响应过程里面按照要求打开通用对话框。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： k=i For j=i+1 To 7 If Val(Text1(j) Text) Val(Text1(k) Text) Then Text1(k) Text=j 步骤 2：按要求将文件保存至考生文 件夹中。 (2)步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内
9、容。参考代码： If Combol Text=Combol List(k)Then Combol AddItem Combol Text Combol RemoveItem Combol ListIndex Text1 Text=Text1 Text & “ “ & Combol Text Text1 Text=“ 步骤 2：按要求将文件保存至考 生文件夹中。 【试题解析】 (1)题目要求对一组数据进行排序，分析代码可知程序使用的是数据排序可以使用多种排序方法，比如选择法排序，其方法是： (1)从 n个数的数序列中选出最大的数，与第 1个数交换位置；除第 1个数外，其余 n-1个数再按 (1)
10、的方法选出次大的数，与第 2个数交换位置： (3)重复 (1)步 n-1遍，最后构成递减序列。 第一个 “?”处是补充 k的值，根据选择发排序原理，变量 k记录最大数的位置，从外层循环的起始位置开始，因此 k的值应为 i：第二个 “?”处是补充内存循环的结束条件，外层循环 7次，找 出 7个最大的数，内层循环从 i+l的位置开始，直到结束；第三个 “?”处是补充判断条件，如果 Text1(k) Text的值比 Text1(j) Text要小的话，那么更新 k的值；最后一个 “?”处是交换两个元素的值。 (2)题目要求在组合框里面添加数据，从组合框获取数据显示在文本框，主要是考查组合框的常用方法
11、和属性。 第一个 “?”处是判断组合框编辑区的内容是否和组合框元素值一样，获取组合框的某个元素值是一 List方法；第二个 “?”处是如果编辑区内容不重复，添加到组合框列表里面，使用 Addltem方法 ；第三个 “?”处是删除列表中选中的项目，使用Removeltem方法；第三个 “?”处是把列表框选中的项目添加到文本框里面；最后一个 “?”处是清空文本框的内容。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹下的工程文件 sjt5 vbp，如表 4 55所示在窗体上画出控件并设置它们的相关属性。步骤 2：打开代码编辑窗口，在指定位置编写 foundhuiwen函数的过程。参考代
12、码： Function foundhuiwen(p As String)foundhuiwen=Truek=Len(p)For i=1 To k 2If Mid(p， i， 1)Mid(p， k+1-i，1)Thenfoundhuiwen=FalseExit ForEnd IfNextEnd Function 步骤 3：按键运行程序，先单击 “读数据 ”按钮，再单击 “统计 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 本题中自定义函数 fotmdhuiwen的功能是判断字符串参数 p是否为回文，若是则返回函数值 True，否则返回函数值 False。根据回文的定义程序设计思路：在 For循环 中按从两端到中间的顺序，分别用 Mid函数依次从字符串参数 p中同时取出两个字符，并比较这两个字符是否相同，若不相同则返回函数值False，并用 Exit Function语句退出自定义函数；否则继续往下比较直至循环结束。循环正常结束时，返回函数值 True。
