[计算机类试卷]国家二级（VB）机试模拟试卷34及答案与解析.doc

1、国家二级（ VB）机试模拟试卷 34及答案与解析 一、选择题 1 窗体上有一个名称为 Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() i = 0 Do While i 0 Then p = True Else p = False End If End Function 关于上述程序，以下叙述中正确的是 （ A）程序功能是统计 1-500范围内能被 7整除的整数个数 （ B） Command1_Click事件过程中 If语句的条件表达式不完整 （ C） Function过程定义有误，函数过程 p的名称与该过程中的变量名 p相同 （ D）函

2、数过程 p的返回值为 Boolean类型 5 窗体上有一个名称为 Combo1的组合框，一个名称为 Command1的命令按钮。要求编写程序，在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则将其删除； 若没有相同列表项，则将其添加到组合框中。现有人编写如下程序，以期实现上述功能： Private Sub Command1_Click() str1 = Trim(Combo1.Text) flag=0 If str1 = 0 To Combo1.ListCount - 1 If str1 = Combo1.List(i) Then Com

3、bo1.RemoveItem i Combo1.Text = “ fl= “0“ And c a(i) Then y = a(i) s = s + a(i) Next Print x, y, s End Sub 关于上述程序的叙述中，正确的是 （ A）程序 运行出错，第 1个 For循环之后的 x=a(i)赋值语句错 （ B）程序正常运行， x是 10个随机数中的最大值 （ C）程序正常运行， s是 10个随机数的和 （ D）程序正常运行， 10个随机数的范围是 100-200 9 窗体上有一个名称为 Command1的命令按钮。其单击事件过程如下： Private Sub Command1_

4、Click() Open “c:f1.txt“ For Input As #1 Open “c:f2.txt“ For Output As #2 Do While Not EOF(1) Line Input #1, str1 Print #2, str1 Loop Close End Sub 以下关于上述程序的叙述中，错误的是 （ A）程序的功能是将 f2.txt文件的内容复制到 f1.txt中 （ B） f1.txt和 f2.txt均是顺序文件 （ C） EOF函数可以判断是否已到文件的末尾 （ D） Close能够把打开的两个文件都关闭 10 下列叙述中正确的是 （ A）一个算法的空间复杂

5、度大，则其时间复杂度也必定大 （ B）一个算法的空间复杂度大，则其时间复杂度必定小 （ C）一个算法的时间复杂度大，则其空间复杂度必定小 （ D）算法的时间复杂度与空间复杂度没有直接关系 11 下列叙述中正确的是 （ A）循环队列中的元素个数随队头指针与队尾指针的变化而动态变化 （ B）循环队列中的元素个数随队头指针的变化而动态变化 （ C）循环队列中的元素个数随队尾指针的变化而动态变化 （ D）以上说法都不对 12 一棵二叉树中共有 80个叶子结点与 70个度为 1的结点，则该二叉树中的总结点数为 （ A） 219 （ B） 229 （ C） 230 （ D） 231 13 对长度为 10的

6、线性表进行冒泡排序，最坏情况下需要比较的次数为 （ A） 9 （ B） 10 （ C） 45 （ D） 90 14 构成计算机软件的是 （ A）源代码 （ B）程序和数据 （ C）程序和文档 （ D）程序、数据及相关文档 15 软件生命周期可分为定义阶段、开发阶段和维护阶段，下面不属于开发阶段任务的是 （ A）测试 （ B）设计 （ C）可行性研究 （ D）实现 16 下面不能作为结构化方法软件需求分析工具的是 （ A）系统结构图 （ B） 数据字典 (DD) （ C）数据流程图 (DFD图 ) （ D）判定表 17 在关系模型中，每一个二维表称为一个 （ A）关系 （ B）属性 （ C）元组

7、 （ D）主码（键） 18 若实体 A和 B是一对多的联系，实体 B和 C是一对一的联系，则实体 A和 C的联系是 （ A）一对一 （ B）一对多 （ C）多对一 （ D）多对多 19 假定有如下的程序段： Dim intVar As Integer intvar = True Print intVar 则输出结果是 （ A） 0 （ B） -1 （ C） True （ D） False 20 为了在 Form_Load 事件过程中用 Print方法在窗体上输出指定的内容，首先应执行的操作是 （ A）设置窗体的 Visible属性 （ B）设置窗体的 AutoRedraw属性 （ C）调用窗体

8、的 Show方法 （ D）设置窗体的 Enabled属性 21 以下不能用 Print方法输出数据的对象或窗口是 （ A）窗体 （ B）立即窗口 （ C）图片框 （ D）代码窗口 22 下列程序段的输出结果是 x = 5 Print x + 1; x + 1 （ A） 6 6 （ B） 5 5 （ C） 6 7 （ D） 5 6 23 以下可以判断是否在文本框（名称为 Text1）内按下了回车键的事件过程是 （ A） Text1_Change （ B） Text1_Click （ C） Text1_KeyPress （ D） Text1_GotFocus 24 下列符号常量的声明中不合法的是

9、（ A） Const a As Single = 3.5 （ B） Const a As Double = 5+8 （ C） Const a As Integer = “25“ （ D） Const a = “OK“ 25 以下叙述中错误的是 （ A）用 ReDim语句可以改变数组的维数 （ B）用 ReDim语句可以改变数组的类型 （ C）用 ReDim语句可以改变数组每一维的大小 （ D）用 ReDim语句可以对数组中的所有元素置 0或空字符串 26 在窗体模块的声明部分声明变量时，不能使用的关键字是 （ A） Dim （ B） Public （ C） Private （ D） Stati

10、c 27 以下说法中正确的是 （ A）任何时候都可以用 Ctrl+E键打开菜单编辑器 （ B）只有 当某个窗体为当前活动窗体时，才能打开菜单编辑器 （ C）只有当代码窗口为当前活动窗口时，才能打开菜单编辑器 （ D）任何时候都可以用标准工具栏的 “菜单编辑器 “按钮打开菜单编辑器 28 用语句 Open “C:teac.txt“ For Input As #1打开文件后，就可以编程序 （ A）将 C盘根目录下 teac.txt文件的内容读入内存 （ B）在 C盘根目录下建立名为 teac.txt的文件 （ C）把内存中的数据写入 C盘根目录下名为 teac.txt的文件 （ D）将某个磁盘文件

11、的内容写入 C盘根目录下 名为 teac.txt的文件 29 将文本框的 ScrollBar设置为 2，文本框中却没有垂直滚动条，其原因可能是 （ A）文本框中没有内容 （ B）文本框的 MultiLine属性值为 False （ C）文本框的 MultiLine属性值为 True （ D）文本框的 Locked 属性值为 True 30 如果把文本框的 Enabled属性设置为 False并运行程序，则以下叙述中正确的是 （ A）文本框中的文本变为灰色，且不能将光标置于文本框上 （ B）文本框中的文本变为灰色，可以将光标置于文本框上，但不能改变文 本框中的内容 （ C）文本框中的文本变为灰色

12、，可以改变文本框中的内容 （ D）文本框中的文本正常显示，可以将光标置于文本框上，但不能改变文本框中的内容 31 为了使标签 Label1 透明且不具有边框，以下正确的属性设置是 （ A） Label1.BackStyle = 0 Label1.BorderStyle = 1 （ B） Label1.BackStyle = 0 Label1.BorderStyle = 0 （ C） Label1.BackStyle = 1 Label1.BorderStyle = 1 （ D） Label1.BackStyle = 1 Label1.BorderStyle = 0 32 要想不使用 Shift

13、或 Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的 MultiSelect属性设置为 （ A） 0 -None （ B） 1 -Simple （ C） 2 -Extended （ D） 3 33 为了把命令按钮设置为图形格式，其 Style属性值应为 （ A） True （ B） False （ C） 1 （ D） 0 34 要使得文件列表框 File1中只显示文件扩展名为 jpg的图片文件，则下列正确的语句是 （ A） File1.Pattern = “*.jpg“ （ B） File1.Parent = “*.jpg“ （ C） File1.Path = “*.jpg“ （ D

14、） File1.Pattern = “图片文件 |*.jpg“ 35 决定标签内容显示位置的属性是 （ A） Text （ B） Name （ C） Alignment （ D） Caption 36 如果在列表框 List1中没有选中项目，则 List1.ListIndex 的值为 （ A） -1 （ B） 0 （ C） 1 （ D） 2 37 设 Label1、 Command1、 Text1、 Check1分别为标签、命令按钮、文本框、复选框的名称，则以下属性设置语句中，运行时不会出错的是 （ A） Label1.BackStyle = 2 （ B） Command1.Style = 1

15、 （ C） Text1.ScrollBars = 4 （ D） Check1.Value = 2 38 下列不包含滚动条的控件是 （ A）列表框 （ B）标签 （ C）组合框 （ D）文本框 39 设有如下事件过程： Private Sub Form_Click() x = 0 While x 10 x = x + 1 x = x * x Wend Print x End Sub 运行程序，单击窗体，输出结果是 （ A） 16 （ B） 19 （ C） 20 （ D） 25 40 在窗体上画一个名称为 List1的列表框，然后编写如下程序： Private Sub Form_Click() F

16、or i = 1 To 10 Item = “Item “ & i List1.AddItem Item Next i End Sub 程序运行时，单击窗体，所完成的功能是 （ A）向列表框中添加 10个项目 （ B）向列表框中添加 11个项目 （ C）向列表框中添加 10个数字 （ D）向列表框中添加 1 10的和 二、基本操作题 41 (1)在名称 Form1的窗体上画一个名称为 check1的复选框数组 (Index 属性从 0开始 )，含三个复选框，其标题分别为 “语文 ”、 “数学 ”、 “体育 ”，利用属性窗口设置适当的属性，使 “语文 ”未选， “数学 ”被选中， “体育 ”为灰

17、色，再 把窗体的标题设置为“选课 ”，如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在名称为 Form1的窗体上画两个文本框，名称分别为 Text1、 Text2，再画两个命令按钮，名称分别为 Command1、Command2，标题分别为 “复制 ”、 “删除 ”。程序运行时，在 Text1中输入一串字符，并用鼠标拖拽的方法选择几个字符，然后单击 “复制 ”按钮，则被选中的字符被复制到 Text2中 (如图所示 )。若单击 “删除 ”按钮，则选择的字符从 Text1中被删除。请编写两个命令按钮的 Click过程完成上述

18、 功能。 注意： 要求程序中不得使用变量，事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 三、简单应用题 42 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in3 dat文件中的 20个整数读人数组 a中，同时在 Text1文本框中显示。 单击 “变换 ”按钮，则数组 a中元素的位置自动对调 (第一个数组元素与最后一个数组元素对调，第二个数组元素与倒数第二个数组元素对调 ) ，并将位置 调整后的数组显示在文本框 Text2中。 在窗体文件中已经给出了全部

19、控件 (如图所示 )，但程序不完整。 要求：将程序补充完整使其实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须执行 “变换 ”操作，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体上有两个名称分别为 Text1和 Text2，初始文本为空的文本框，两个标题分别为 “读数据 ”和 “统计 ”的命令按钮，如图所示。 程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下的 in4 dat文件的内容 (该文件中仅含有字母和空格 )显示在 Text1文本框中。 在 Text

20、1文本框中选中文本后，单击“统计 ”按钮，则自动统计选中文本中没有出现过的字母 (统计过程中不区分大小写 )，并将这些字母以大写形式显示在 Text2文本框内。 请将 “统计 ”按钮 Click事件过程中的注释符去掉，把 “?”改为正确内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序。最后将修改后的文件按原文件名存盘。四、综合应用题 43 在考生文件夹中有一个工程文 件 sjt5 vbp，窗体如图所示。运行程序时，从数据文件中读取学生的成绩。单击 “统计 ”按钮，统计总人数、平均分 (四舍五入取整 )、及格人数和不及格人数，将统计结果显示在相应的文本框中。结束程序之

21、前，必须单击 “保存 ”按钮，保存统计出的结果。 注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再单击 “保存 ”按钮保存数据，否则将没有成绩。最后将修改后的文件按原文件名进行存盘。 国家二级（ VB）机试模拟试卷 34答案与解析 一、选择题 1 【正确答案】 B 【试 题解析】 For循环中 n从 1累加到 i。 Do While 循环由循环变量 i控制一共执行 6次。选 B）。 2 【正确答案】 D 【试题解析】 f(ByVal a As Integer, ByRef b As Integer, c As Integer)函数中 a是值传递，

22、b地址传递， c缺省为地址传递。值传递使用两个存储单元，地址传递使用同一个存储单元，会改变变量的值。选 D）。 3 【正确答案】 D 【试题解析】 所有维的数组缺省下界都是 0 或 1，这取决于 Option Base 语句的设置。 本题中有语句 Option Base 1，所以 LBound(a) = 1， UBound(a) = 6； For循环进行求和计算，结果为 52，选 D）。 4 【正确答案】 D 【试题解析】 程序功能是统计 1-500范围内不能被 7整除的整数个数；函数过程p 的返回值根据函数定义可知为 Boolean 类型。选 D）。 5 【正确答案】 D 【试题解析】 组合

23、框的 ListCount从 0开始； RemoveItem和 AddItem后面跟的是索引。根据题意，在没有相同列表项时需要添加，所以语句应该为 flag = 0。选D）。 6 【正确答案】 C 【试题解析】 函数 fun 执行后， x值被改变， y值不变。即 x=9， y=5；计算得结果为 33，选 C）。 7 【正确答案】 D 【试题解析】 根据题意可知，第 2个 For循环应该是统计的字符个数。 i是循环变量，所以选 D）。 8 【正确答案】 A 【试题解析】 第一个 For循环中缺省 Step，步长为 1，退出循环时下标为 10，第 1个 For循环之后的 x=a(i)赋值语句下标越界

24、，出错。选 A）。 9 【正确答案】 A 【试题解析】 程序的功能是将 f1.txt文件的内容复制到 f2.txt中。 Open 打开文件时，可以用三种模式，即 OutPut：打开一个文件，将对该文件进行写操作；Input：打开一个文件，将对该文件进行读操作； Append：打开一个文件，将在该文件末尾追加记录。选 A）。 10 【正确答案】 D 【试题解析】 算法的空间复杂度是指算法在执行过程中所需要的内存空间，算法的时间复杂度，是指执行算法所需要的计算工作量，两者之间并没有直接关系，答案为 D。 11 【正确答案】 A 【试题解析】 在循环队列中，用队尾指针 rear指向 队列中的队尾元素

25、，用排头指针 front指向排头元素的前一个位置。因此，从排头指针 front指向的后一个位置直到队尾指针 rear指向的位置之间所有的元素均为队列中的元素。所以循环队列中的元素个数与队头指针和队尾指针的变化而变化， A正确。 12 【正确答案】 B 【试题解析】 二叉树中，度为 0的节点数等于度为 2的节点数加 1，即 n2=n0-1，叶子节点即度为 0，则 n2=79，总结点数为 n0+n1+n2=80+70+79=229，答案为B。 13 【正确答案】 C 【试题解析】 冒泡法是在扫描过 程中逐次比较相邻两个元素的大小，最坏的情况是每次比较都要将相邻的两个元素互换，需要互换的次数为9+8

26、+7+6+5+4+3+2+1=45，选 C。 14 【正确答案】 D 【试题解析】 软件指的是计算机系统中与硬件相互依赖的另一部分，包括程序、数据和有关的文档，选 D。 15 【正确答案】 C 【试题解析】 开发阶段包括分析、设计和实施两类任务。其中分析、设计包括需求分析、总体设计和详细设计 3个阶段，实施则包括编码和测试两个阶段， C不属于开发阶段。 16 【正确答案】 A 【试题解析 】 结构化方法软件需求分析工具主要有数据流图、数据字典、判定树和判定表。 17 【正确答案】 A 【试题解析】 关系模型采用二维表来表示，即每个二维表称为一个关系。 18 【正确答案】 B 【试题解析】 A和

27、 B 为一对多的联系，则对于 A中的每一个实体， B 中有多个实体与之联系，而 B与 C为一对一联系，则对于 B中的每一个实体， C中之多有一个实体与之联系，则可推出对于 A中的每一个实体， C中有多个实体与联系，所以为一对多联系。 19 【正确答案】 B 【试题解析】 VB 里面 True = -1, False = 0。 20 【正确答案】 C 【试题解析】 窗体加载的时候是可以 Print的，但这个时候还没有显示出来，看不到 Print的结果，要调用窗体的 Show方法显示结果。 21 【正确答案】 D 【试题解析】 Print方法可以在窗体上显示文本字符串和表达式的值，并可在其他图形对

28、象或打印机上输出信息。其一般格式为： 对象名称 Prim表达式表 ，|； ，其中的 “对象名称 “可以是窗体 (Form)、图片框 (PictureBox)或打印机(Printer)，也可以是立即 窗口 (Debug)。不能是代码窗口。 22 【正确答案】 A 【试题解析】 Print方法对于数值表达式只打印表达式的值。该题中的表达式中x的值没有发生变化，始终等于 5，所以输出结果是 6 6。 23 【正确答案】 C 【试题解析】 KeyPress 事件：用户按下并且释放一个会产生 ASCII码的键时被触发。此事件只对会产生 ACSII 码的按键有反应，包括数字、大小写的字母、Enter、 B

29、ackspace、 Esc、 Tab 等，对于如方向键这样的不会产生 ASCII码的按键， KeyPress 事件就不 会被触发。 24 【正确答案】 C 【试题解析】 定义符号常量的一般格式： Const 常量名 As 数据类型 =表达式，“常量名 “参数就是给常量命名。 “数据类型 “表示常量的数据类型，一般可以省略，这时由后面的 “表达式 “参数来指明常量的数据类型。表达式可以是数值型常量、字符型常量、布尔型常量和日期型常量。 25 【正确答案】 B 【试题解析】 ReDim语句无法更改数组变量的数据类型。 26 【正确答案】 D 【试题解析】 VB 中变量的作用域分为：局部变量：在过程

30、内用 Dim语句 或用Static语句声明的变量，只能在本过程中使用。窗体 /模块级变量：在 “通用声明 “段中用 Dim语句或用 Private语句声明的变量 ,可被本窗体 /模块的任何过程访问。全局变量：在 “通用声明 “段中用 Public语句声明的变量，可被本应用程序的任何过程或函数访问。 27 【正确答案】 B 【试题解析】 当窗体为活动窗体时，才可以打开菜单编辑器。 28 【正确答案】 A 【试题解析】 Open语句兼有打开文件和建立文件两种功能 ,Input是指定顺序输入方式 ,题意为打开已存在的数据文件 ,以便从文 件中读出记录。 29 【正确答案】 B 【试题解析】 设置文本

31、框控件具有滚动条效果，需要设置其 ScrollBars 属性，并且还需将其 MultiLine属性设置为 Ture。 30 【正确答案】 A 【试题解析】 Enabled 是用来设置控件是否可用。如果把文本框的 Enabled 属性设置为 False并运行程序，文本框中的文本变为灰色，且不能将光标置于文本框上。 31 【正确答案】 B 【试题解析】 BackStyle 属性用于设置标签的背景样式，有两种值可选： 0，表示透明； 1，表示不 透明。 BorderStyle属性用来设置标签的边框类型，有两种值可选： 0，代表标签无边框； 1，代表标签有边框。 32 【正确答案】 B 【试题解析】

32、列表框的 Multiselect属性有 3个可选值： O-None:默认值 ,不能选择多个选项。 1-Simple:在不按任何键的情况下可选择多个选项。 2-Extended:使用 Ctrl或 Shift键进行分别多选或选择连续多个选项。 33 【正确答案】 C 【试题解析】 Style属性设定此对象是否以图片作为外观显示，有两种值可选：0，标准外 观（默认值）； 1，图片外观。 34 【正确答案】 A 【试题解析】 Pattern 属性用来指定在文件列表框中显示文件的类型； Parent属性可访问一个对象的父亲的属性、方法、或控件； Path 属性用来指定和返回当前目录。 35 【正确答案】

33、 C 【试题解析】 Alignment属性用于设置标签中文本的对齐方式。 36 【正确答案】 A 【试题解析】 列表框 List1中没有选中项目，则 List1.ListIndex 的值为 -1。 37 【正确答案】 D 【试题解析】 标签的 BackStyle属性只有 0、 1两个属性值；命令按钮的 Style属性是只读属性，必须在属性窗口设置；文本框的 ScrollBars 属性只有 0、 1、 2、 3四个属性值，并且必须在属性窗口设置。 38 【正确答案】 B 【试题解析】 标签控件不包含滚动条。 39 【正确答案】 D 【试题解析】 While.Wend 语句只要指定的条件为 Tru

34、e，则会重复执行一系列的语句。程序中只要满足 x “ “ Then n = Asc(UCase(c) - Asc(“A“) + 1 a(n) = ? End If Next For i = 1 To ? If a(i) = 0 Then Text2.Text = Text2.Text + “ “ + Chr(Asc(“A“) + i - 1) End If Next End If End Sub 程序结束 参考答案 第 1个？处填入： Text1.SelLength = 0 第 2个？处填入： sl 第 3个？处填入： a(n)+1 第 4个？处填入： 26 步骤 3：调试并运行程序，关闭程序

35、后按题目要求存盘。 四、综合应用题 43 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private arr(100) As Integer Private n As Integer Private Sub Command2_Click() Open App.Path & “out5.txt“ For Output As #1 Print #1, Text1.Text Print #1, Text2.Text Print #1, Text3.Text Print #1, Text4.Text Close #1 MsgBox “保存成功

36、！ “ End Sub Private Sub Form_Load() Open App.Path & “in5.txt“ For Input As #1 n = 0 Do While Not EOF(1) Input #1, x n = n + 1 arr(n) = x Loop Close #1 End Sub Private Sub Command1_Click() 考生编写程序开始 考生编写程序结束 End Sub 程序结束 参考答案 Private Sub Command1_Click() Dim sum As Long For i = 1 To n If arr(i) = 60 Then Text4 = Val(Text4) + 1 Else Text3 = Val(Text3) + 1 End If sum = sum + arr(i) Next Text2 = Int(sum / n + 0.5) Text1 = n End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘 。