1、国家二级（ VB）机试模拟试卷 73及答案与解析 一、选择题 1 负责数据库中查询操作的数据库语言是 ( )。 （ A）数据定义语言 （ B）数据管理语言 （ C）数据操纵语言 （ D）数据控制语言 2 一个教师可讲授多门课程，一门课程可由多个教师讲授。则实体教师和课程间的联系是 ( )。 （ A） 1 1联系 （ B） 1 m联系 （ C） m 1联系 （ D） m n联系 3 有三个关系 R、 S和 T如下：则由关系 R和 S得到关系 T的操作是 ( )。（ A）自然连接 （ B）并 （ C）交 （ D）差 4 定义无符号整数类为 UInt，下面可以作为类 UInt实例化值的是 ( )。
2、（ A） 369 （ B） 369 （ C） 0.369 （ D）整数集合 1,2,3,4,5 5 VB中有这样一类文件：该文件不属于任何一个窗体，而且仅包含程序代码，这类文件的扩展名是 ( )。 （ A） .vbp （ B） .bas （ C） .vbw （ D） .frm 6 能够产生 1到 50之间 (含 1和 50)随机整数的表达式是 ( )。 （ A） Int(Rnd*51) （ B） Int(Rnd(50) 1) （ C） Int(Rnd*50) （ D） Int(Rnd*50 1) 7 要求如果 x被 7除余 2，则输出 x的值，下列语句中不能实现此功能的语句是( )。 （ A）
3、 If x mod 7 2 Then Print x （ B） If x (x7)* 7 2 Then Print x （ C） If x (x / 7)* 7 2 Then Print x （ D） If x Int(x / 7)* 7 2 Then Print x 8 表达式 Sgn(0.25)的值是 ( )。 （ A） 1 （ B） 0 （ C） 1 （ D） 0.5 9 如下关于变体类型变量的叙述中，错误的是 ( )。 （ A）变体类型数组中只能存放同类型数据 （ B）使用 Array初始化的数组变量，必须是 Variant类型 （ C）没有声明而直接使用的变量其默认类型均是 Vari
4、ant （ D）在同一程序中，变体类型的变量可以被多次赋以不同类型的数据 10 满足下列条件之一的年份是闰年： 1)年份能被 4整除但不能被 100整除 2)年份能被 400整除 若 y代表年份，下面判断闰年的正确表达式是 ( )。 （ A） y Mod 4 And y Mod 100 Or y Mod 400 （ B） y Mod 4 0 Or y Mod 1000 And(y Mod 4 0 Or y Mod 400 0) （ D） y Mod 4 0 And y Mod 1000， x 1， IIf(x0， x 1， x 1) （ C） y IIf(x0， x 1， IIf(xb a a
5、 b Wend fun a End Function 在调试时发现函数是错误的。为使函数能产生正确的返回 值，应做的修改是( )。 （ A）把 a a b改为 a b a （ B）把 a a b 改为 a ab （ C）把 While ab 改为 While ab 改为 While a b 28 在窗体上画 1个命令按钮和 1个文本框，其名称分别为 Command1和Text1，再编写如下程序： Dim ss As String Private Sub Text1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii)0时， x 1，否则 x 1，所以应该
6、是IIf(x0， x 1， x 1)。 C选项中，内层的 IIf函数中，当 x、 和键等，其他键 KeyPress事件不能识别。 D选项错误原因：窗体也有 KeyPresss 事件。故 C选项正确。 24 【正确答案】 C 【试题解析】 程序中 flag 被定义为 Static变量，它的值只在第一次执行事件过程时为 0，以后每次执行计时器事件过程它的值都会保留上次过程中运算后的值，之后它的值是 1或 1。文本框控件的 ForeColor属性表示文本框中文字的颜色，计时器控件的 Interval 属性为 5000，即计时器间隔为 5秒钟一次，每次调用就会交替改变文本框中文字的颜色。因此 C选项正
7、确。 25 【正确答案】 D 【试题解析】 程序应该计算的是 2的 0次方到 2的 10次方的和，程序少计算了 2的 1次方，应该先累加，再执行 a a*2，并且将 For k 2 to 10 改为 For k 1 to 10 ，这样最后一次循环 2的 10次方的值能正确累加，然后循环结束。因此答案为D。 26 【正确答案】 B 【试题解析】 在标准模块中定义的使用 Public定义的变量是全局变量，全局变量可 以在工程的每个模块、每个过程中使用。如果在过程中有与全局变量同名的过程变量则优先使用过程变量。在命令按钮事件中定义了局部变量 x，与全局变量同名，因此在此事件中使用局部变量，而变量 y
8、在此过程中没有定义，则仍使用全局变量。因此输出时 x值为 100， y值为 120。 27 【正确答案】 D 【试题解析】 程序中没有考虑余数为 0的情况，即，条件中应该有 a b，则 aa b，这样才能正确得到余数 0。因此程序中应该修改 While的条件 ab 为 ab。 28 【正确答案】 D 【试题解析】 题目中程序是 将 ss字符串进行反向排列，并放到 m中去。其中Number空格后的 100被当成字符串来处理，最后结果是将 “Number 100“反向排列，并通过 UCase()函数将所有字母转换成大写，得到 001 REBMUN。 29 【正确答案】 B 【试题解析】 在计时器事
9、件中不应再设置步长为 100的 For循环，应该把 For循环去掉，只留下循环体的语句，计时器每秒激发一次，每次判断小球是否移到Line2处，不到就改变自己的 Left值即继续移动。因此 B 正确。 30 【正确答案】 A 【试题解析】 错误原因 ：每一次删除列表框满足项，列表框的项目数目就会相应地减少，所以就出现了漏删内容，如果把循环变量 k改成从 List1.ListCout 1到0，从最后一个项目往第一个项目查找，满足条件就删除该项目，从而不会出现遗漏现象，所以正确答案为 A。 31 【正确答案】 D 【试题解析】 本题考查的是动态变量与静态变量。原来的程序中无法使变量 n的值保持到下一
10、次的使用，只有 D选项符合要求，将 n定义为静态局部变量，在程序执行到该对象的声明处时被首次初始化，每次执行后 n的值都会被保存到内存中，所以答案 D是正确的；而 A选 项只是对 n 赋初值，所以 A选项没有意义； B选项和 C选项都没有达到改进的目的。 32 【正确答案】 A 【试题解析】 在 Do循环语句中程序大致执行过程如下： s 103， a 9； s103 93， a 8； s 10 93 83， a 7； ，依此类推，因此正确的答案为A。 33 【正确答案】 C 【试题解析】 在通用对话框控件中， Filter 属性指定了在对话框中显示的文件类型，该属性可以设置多个文件类型，每种文
11、件类型由文件描述和文件通配符与扩展名组成，并由 “|“隔开。 FilterIndex属性用来指定默认的过滤器， Filter属性中设置了多个过滤器后，每个过滤器的对应的值按从左到右顺序是 1、 2 ，FilterIndex 属性默认为 1，即第一个过滤器，因此程序中会显示 C： 下的所有文件。应该在通话框打开之前 (CD1.Action 1之前 )添加 CD1.FilterIndex 3，即使默认过滤器为第 3个过滤器。 34 【正确答案】 B 【试题解析】 原程序的执行流程为，当按下一个键后，激活 KeyPress 事件，事件中隐藏 Form1和显示 From2的语句与判断是否按了回车键的语
12、句是顺序 的，即不论按了什么键，都会执行隐藏 Form1和显示 From2的语句。这两句应该上移到第二个 EndIf前面，也就是放在判断是否按了回车键的 If 语句块中。因此 B选项正确。 35 【正确答案】 D 【试题解析】 算法是指解题方案的准确而完整的描述，算法不等于程序，也不等于计算方法，所以 A)错误。设计算法时不仅要考虑对数据对象的运算和操作，还要考虑算法的控制结构。 36 【正确答案】 B 【试题解析】 线性结构应满足：有且只有一个根结点与每个结点最多有一个前件，也最多有一个后件，所以 B)正确。所 以有一个以上根结点的数据结构一定是非线性结构，所以 A)错误。循环链表和双向链表
13、都是线性结构的数据结构。 37 【正确答案】 B 【试题解析】 根据二叉树的基本性质 3：在任意一棵二叉树中，度为 0的叶子结点总是比度为 2的结点多一个。所以选择 B。 38 【正确答案】 A 【试题解析】 软件生命周期可以分为软件定义、软件开发与软件运行维护三个阶段。主要活动阶段是：可行性研究与计划阶段，需求分析，软件设计，软件实现，软件测试，运行和维护，所以选择 A。 39 【正确答案】 C 【试题解析】 根据总体结构图可以看出该树的深度为 3，比如： XY系统 -功能2-功能 2.1，就是最深的度数的一个表现。 40 【正确答案】 D 【试题解析】 程序调试的任务是诊断和改正程序中的错
14、误。 二、基本操作题 41 【正确答案】 (1)【操作步骤】步骤 1：新建一个窗体，在窗体中添加一个形状控件，按照题目要求设置其属性。程序中用到的控件及属性见表 3.75。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3.76和表 3.77。步骤 2：编写程序代码。参考答案 Private Sub Command1_Click() Label1.Font = “宋体 “End SubPrivate Sub Command2_Click() Label1.Font = “黑体 “End Sub步骤 3：调
15、试并运行程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件，计时器的 Enabled属性设置为 False。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Op1_Click(Index As Integer) Select Case ? Case 0 Timer1.Interval = 1000 Case 1 Timer1.Interval = 3000 End Select End Sub Private Sub Timer1_Timer() Text1.Text = ？ .Text + 1 End
16、Sub 程序结束 参考答案 第 1个？处填入： Index 第 2个？处填入： Text1 Private Sub C1_Click() Timer1.Enabled = True End Sub Private Sub C2_Click() Timer1.Enabled = False End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Dim a(100) As Integer, num As Integer, n As Integer Private Sub Command1
17、_Click() Dim k As Integer n = 60 Open App.Path & “in4.dat“ For Input As #1 For k = 1 To n Input #1, a(k) Text1 = Text1 + Str(a(k) + Space(2) Next k Close #1 End Sub Private Sub Command2_Click() num = InputBox(“请输入一个数 “) End Sub Private Sub Command3_Click() For i = 1 To n “读数据 “事件过程中已给出 n的初值 If num =
18、 ? Then Exit For Next i If ? Then MsgBox “该数不存在于数组中，不能执行删除操作！ “ Else n = n - 1 For j = i To ? a(j) = ? Next End If Text1 = “ 以下程序段将执行删除操作后的数组 a重新显示在 Text1中 For k = 1 To ? Text1 = Text1 + Str(a(k) + Space(2) Next k End Sub 程序结束 参考答案 第 1个？处填入： a(i) 第 2个？处填入： n max Then max = a(i, j) End If Next j Next i Label3 = max save Label3 End Sub Private Sub Command2_Click() Dim sum As Integer sum = 0 For i = 1 To 4 For j = 1 To 4 If i = j Then sum = sum + a(i, j) End If Next j Next i Label4 = sum save Label4 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
