1、国家二级（ VB）机试模拟试卷 149及答案与解析 一、选择题 1 下列叙述中正确的是 ( )。 （ A）数据的存储结构会影响算法的效率 （ B）算法设计只需考虑结果的可靠性 （ C）算法复杂度是指算法控制结构的复杂程度 （ D）算法复杂度是用算法中指令的条数来度量的 2 设数据集合为 D=1， 2， 3， 4， 5，下列数据结构 B=(D， R)中为非线性结构的是 ( )。 （ A） R=(1， 2)， (2， 3)， (3， 4)， (4， 5) （ B） R=(1， 2)， (2， 3)， (4， 3)， (3， 5) （ C） R=(5， 4)， (4， 3)， (3， 2)， (2，
2、 1) （ D） R=(2， 5)， (5， 4)， (3， 2)， (4， 3) 3 某二叉树共有 150个结点，其中有 50个度为 1的结点，则 ( )。 （ A）不存在这样的二叉树 （ B）该二叉树有 49个叶子结点 （ C）该二叉树有 50个叶子结点 （ D）该二叉树有 51个叶子结点 4 循环队列的存储空间为 Q(1： 50)，初始状态为 front=rear=50。经过一系列正常的入队与退队操作后， front=rear=25，此后又正常地插入了一个元素，则循 环队列中的元素个数为 ( )。 （ A） 51 （ B） 50 （ C） 49 （ D） 1 5 下列排序方法中，最坏情况
3、下时间复杂度 (即比较次数 )低于 O(n2)的是 ( )。 （ A）快速排序 （ B）简单插入排序 （ C）冒泡排序 （ D）堆排序 6 下列描述正确的是 ( )。 （ A）软件测试是指动态测试 （ B）软件测试可以随机地选取测试数据 （ C）软件测试是保证软件质量的重要手段 （ D）软件测试的目的是发现和改正错误 7 下列选项中属于软件设计建模工具的是 ( )。 （ A） DFD图 (数据流程图 ) （ B）程序流程图 (PFD图 ) （ C）用例图 (USE_CASE图 ) （ D）网络工程图 8 数据库 (DB)、数据库系统 (DBS)和数据库管理系统 (DBMS)之间的关系是 ( )
4、。 （ A） DB包括 DBS和 DBMS （ B） DBMS包括 DB和 DBS （ C） DBS包括 DB和 DBMS （ D） DBS、 DB和 DBMS相互独立 9 医院里有不同的科室，每名医生分属不同科室，则实体科室与实体医生间的联系是 ( )。 （ A）一对一 （ B）一对多 （ C）多对一 （ D）多对多 10 有三个关系 R、 S和 T如下：则由关系R和 S得到关系 T的操作是 ( )。 （ A）投影 （ B）选择 （ C）交 （ D）差 11 计算 z的值，当 x大于等于 y时， z=x；否则 z=y。下列语句中错误的是 ( )。 （ A） If x=y then z=x：
5、z=y （ B） If x=y Then z=x Else z=y （ C） z=y： If x=y Then z=x （ D） If x“Int“ （ B） VisualBasic“visual“ （ C） XYZ=30 Print N： S End Sub 运行程序，单击命令按钮，输出结果是 ( )。 （ A） 2 56 （ B） 2 3 （ C） 5 12 （ D） 10 20 32 阅读程序： Private Sub Form_Click() Dim I As Integer J As Integer Dim S As Integer P=1 For I=1 To 2 For J=1
6、To 3 S=S+3 Next J Next I Print S End Sub 运行程序，单击窗体，输出结果是 ( )。 （ A） 16 （ B） 17 （ C） 18 （ D） 19 33 有一个数列，第一个数和第二个数分别为 0和 1，其后每一个数均为前两个数之和。下面是输出该数中小于 10000的最大数的程序： Private Sub Form_Click() a=0 b=0 Do While b10000 C=a+b a=b b=c Loop Print a End Sub 运行程序，单击窗体，不能得到所需要的结果，说明程序有错误。以下正确的修改是 ( )。 （ A）把 b=0改为
7、b=1，同时把 b10000改为 b10000改为 b=10000 （ C）把 a=0改为 a=1 （ D）把 a=0改为 a=1，同时把 b=0改为 b=1 34 在窗体上厕一个名称为 Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer a=2 s=0 For i=1 To 3 s=s+Fun(a) Next i Print s End Sub Function Fun(a As Integer) Static C b=0 b=b+1 c=c+1 Fun=a+b+C End Function 程序运行后，
8、单击命令按钮，输出结果是 ( )。 （ A） 6 （ B） 9 （ C） 11 （ D） 15 35 有如下程序： Private Sub Form_Click() Dim i As Integer， a(10)As Integer Dim p(3)As Integer k=5 For i=0 To 10 a(i)=i Next i For i=0 To 2 P(i)=a(i*(i+1) Next i For i=0 To 2 k=k+P(i)*2 Next i Print k End Sub 运行程序，单击窗体，输出结果是 ( )。 （ A） 20 （ B） 21 （ C） 32 （ D）
9、56 36 窗体上有一个名 称为 Picturel的图片框和一个名称为 Timer1的计时器控件，并有下面程序代码： Dim x， V Private Sub Form_Load() x=Picturel Width*2 y=Picturel Height*2 Timer1 Enabled=True Timer1 Interval=100 End Sub Private Sub Timer1 Timer() If Picturel Width5 x=x一 1 Loop Print x （ C） x=10 Do Wbile x5 x=x一 1 End Do Print x （ D） x=6 Do
10、 While x5 x=x+1 Loop Until x=10 Print x 38 有下列程序代码： Private Sub Command1_Crick() Randomize Dim x(30)As Integer， s As Integer For k =1 To 30 x(k)=Int(Rnd*100) Next k For k=1 To 30 If x(k)Mod 2=1 Then s=s+x(k) End If Next k Print S End Sub 程序运行后的输出是 ( )。 （ A） 30个随机整数中所有个位数为 1的数之和 （ B） 30个随机整数中所有偶数的和 （
11、 C） 30个随机整数的和 （ D） 30个随机整数中所有奇数的和 39 窗体上有 Text1、 Text2两个文本框，并编写了下面的程序代码： Private Sub Form_Click() x =29 Text1=fun(x) Do x=x+1 Loop Until IsPrime(x) Text2=x End Sub Private Function fun(ByVal x As Integer)As Integer Do x=x一 1 Loop Until IsPrime(x) fun=x End Function Private Function IsPrime(x As Inte
12、ger)As Boolean For k=2 To x 2 If x Mod k=0 Then IsPrime=False Exit Function End If Next k IsPrime=True End Function 运行程序后单击窗体，则 Text1、 Text2中分别显示的是 ( )。 （ A） 23和 31 （ B） 23和 29 （ C） 30和 31 （ D） 29和 31 40 当前文件夹中设有一个文本文件 Filel txt，并有下面程序代码： Private Sub Command1_Click() Dim ch As String Open“Filel txt“
13、For Input As #1 Do While Not EOF(1) ch=Input(1， #1) If“A“=y Then z=x Else z=y，故 A选项表达错误， B、 C、 D均是上述表达的等价形式。 12 【正确答案】 C 【试题解析】 在计算机科学技术中，常用 “文件 ”这一术语来表示输入输出操作的对象。所谓 “文件 ”，是指记录在 外部介质上的数据的集合。所以 C选项叙述正确。 13 【正确答案】 C 【试题解析】 变量是一个名字，给变量命名时应遵循以下规则。 名字的第一个字符必须是英文字母，最后一个字符可以是类型说明符；故 A选项错误。 名字只能由字母、数字和下画线组成
14、；选项中 B选项含有非法字符 “+”，故 B选项错误。 名字的有效字符为 255个。 不能用 Visual Basic的保留字作为变量，但可以把保留字嵌入变量名中。 Abs是系统的函数名 (求绝对值函数 Abs()为保留字，不能作为变量 名。故 D选项错误。 所以 C选项正确。 14 【正确答案】 A 【试题解析】 string(n，字符串 )，第一个参数 n表示返回由 n个指定字符所组成的字符串，第二个参数可以是 ASCII码，也可以是字符串。当为 ASCII码时，返回由该 ASCII码所对应的 n个字符；当为字符串时，返回由该字符串中第一个字符所组成的 n个相同字符的字符串。故 A选项正确
15、。 15 【正确答案】 D 【试题解析】 打开顺序文件，可以使用 Open语句。它的格式如下。 Open pathname ForInput l Output | AppendAs#file numberLen=buffersize 其中， Input表示从打开的文件中读取数据。以这种方式打开文件时，文件必须存在，否则会产生错误。 Output表示向打开的文件中写入数据。以这种方式打开文件时，文件中原有的数据将被覆盖，新的数据将从文件开头开始写入。如果文件不存在，则创建一个新文件。 Append表示向打开的文件中添加数据。以这种方式打开时，文件中原有的数据将被保留，新的数据将从文件末尾开始添加
16、。如果文件不存在，则创建一个新文件。 故 D选项正确。 16 【正确答案】 D 【试题解析】 一个工程可以有多个标准模块，也可以有多个窗体模块和类模块，所有模块都属于同一个工程，但每个模块又相对独立，用一个单独的文件保存，一个工程可以含有多个标准模块，但 Sub Main过程只能有一个，即通常所说的启动窗体，故 D选项叙述错误。 17 【正确答案】 B 【试题解析】 字符串进行关系运算时，比较的依据是对应位置字符的 ASCII码值大小，若对应位置相同，则往后依次比较，数字字符的 ASCII码值小于大写字母的 ASCII码值，大写字母的 ASCII码值小于小写字母的 ASCII码值，故 B选项的
17、结果为 False。 18 【正确答案】 C 【试题解析】 Rnd英文全称 Random，意随机数， Rnd函数可以产生随机小数，范围在 0， 1之间。取整函数 Int(x)，英文全称为 Integer，返回不大于自变量 x的最大整数部分，表达式 Int(ba)*Rnd+a)+1=Int(5*Rnd+5)+1，其中 5*Rnd+5取值在 0+5， 5+5=5， 10之间， Int(5*Rnd+5)+1能产生 6， 10之间的随机整数，故C选项正确。 19 【正确答案】 A 【试题解析】 动态数组以变量作为下标值，在程序运行过程中完成定义，通常分为两步：首先在窗体层、标准模块或过程中用 Dim或
18、 Public声明一个没有下标的数组 (括号不能省略 )，当使用 Dim定义数组时，如省略 “As类型名称 ”，则数组默认为 Variant型。然后在过程中用 ReDim语句定义带下标的数组，可以使用ReDim语句反复地改变数组的元素以及维数的数目，但是不能将一个数组定义为某种数据类型之后，再使用 ReDim将该数组改为其他数据类型，除非是 Variant所包含的数组。故 A选项符合条 件。 20 【正确答案】 A 【试题解析】 对一个数据文件进行读、写、修改或增加数据之前，必须先用Open语句打开或建立该文件。如果以 In put方式打开的文件不存在，则产生 “文件未找到 ”错误；如果为输出
19、 (Output)、附加 (Append)或随机 (Random)访问方式打开的文件不存在，则建立相应的文件；故 A选项表述错误。在顺序文件中，每个记录可以具有不同的长度，不同记录中字段的长度也可以不一样，故 B选项叙述正确。用 Append方式打开一个文件后，文件指针指向文件的末尾，而如果用其他几种方式打开 文件，则文件指针都指向文件的开头，故 C选项叙述正确。打开随机文件后，用户既可以读文件也可以向文件中写入数据，故 D选项叙述正确，所以答案为 A选项。 21 【正确答案】 A 【试题解析】 窗体运行时，只能有一个控件是活动控件，故 A叙述正确，控件的缩放和移动，可以通过拖拉控件边框上的
20、8个黑色小方块来调整控件的大小，也可以通过属性窗口，改变控件的位置和大小，故 B、 C选项叙述均错误，程序运行时，在窗体上虽然不能对非活动控件进行操作，但是也不会对其进行隐藏，故D选项叙述错误，所以答案为 A选项。 22 【正 确答案】 B 【试题解析】 style属性是组合框的一个重要属性，其取值为 0、 1、 2，它决定了组合框 3种不同的类型。 Style属性被设置为 0时，组合框称为 “下拉式组合框 ”，可以输入文本或从下拉列表中选择表项。 style属性被设置为 1时，组合框被称为 “简单组合框 ”，它由可输入文本的编辑区和一个标准列表框组成。它识别 DblClick事件。 styl
21、e属性被设置为 2时，组合框被称为 “下拉式列表框 ”，可以通过下拉式箭头选择列表框中的项目。 所以答案为 B选项。 23 【正确答案】 A 【试题解析】 在文本框控件中， Locked属性用来指定文本框是否可以被编辑。当设置为 False(默认值 )时，可以编辑文本框的文本；当设置值为 Tme时，可以滚动和选择控件中的文本，但不能编辑，故 A选项正确。 24 【正确答案】 A 【试题解析】 列表框和组合框都有 Text、 style和 List属性，故 B、 C、 D选项均正确。列表框中无 Change事件，但组合框中有 change事件，故 A选项叙述错误。所以答案为 A选项。 25 【正
22、确答案】 C 【试题解析】 FillStyle属性的设置值决定了形状控件内部的填充图案，可以取以下 8种值。 0solid(实心 ) 1一 Transparent(透明 ) 2一 Horizontal Line(水平线 ) 3一 VeItical Line(垂直线 ) 4一 Upward Diagonal(向上对角线 ) 5一 Downward Diagonal(向下对角线 ) 6一 Cross(交叉线 ) 7一 Diagonal Cross(对角交叉线 ) 故 C选项正确。 26 【正确答案】 A 【试题解析】 窗体的 Name属性是用来定义对象的名称。 Form为系统的关键字，不可以用于设
23、置为窗体的 Name属性，故 A选项错误。 27 【正确答案】 A 【试题解析】 图片框中的 AutoSize属性设置为 True时，图片框会根据装入的图形的大小调整其大小。但是，如果图形的大小超过图片框所在的窗体时，则只能显示部分图形，因为窗体本身无法自动调整大小。故 A选项错误。 28 【正确答案】 B 【试题解析】 列表框显示可滚动的数值列表，用户可以从中选择一个或多个选项。不能接受键盘输入，故 A选 项错误。当组合框的 Style属性设置为 1时，此时的组合框称为 “简单组合框 ”(Simple ComboBox)，它由可输入文本的编辑区和一个标准列表框组成，可以接受键盘输入，故 B选
24、项正确。标签控件仅能用于显示文本，故 C选项错误。框架可以用来对其他控件进行分组，以便用户识别功能上的区分，故 D选项错误。所以答案为 B选项。 29 【正确答案】 C 【试题解析】 通用对话框所需要的 Action属性值和方法如下表所示。通用对话框中的 Action属性为 3时或者使用 Showcolor方法，可将通用对话框的类型设置 为颜色对话框，通用对话框没有 Showcolor属性只有 showcolor方法。所以 C选项正确， A、 B、 D选项均错误。 30 【正确答案】 B 【试题解析】 在 Form_Load事件中，设置窗体的 KeyPreview属性为 True，表示窗体比其
25、内部的其他控件优先获得键盘事件的激活权，故本题中，Form_KeyPress事件会优先于 Text1_KeyPress事件而执行，所以第一次输出Form_KeyPress事件执行的结果 “E”，然后再执行 Text1_KeyPress事件，输出结果 “D”，所以 B选项 正确。 31 【正确答案】 A 【试题解析】 本题主要考核 Do循环控制结构。 Do 语句块 Exit Do Loop Until循环条件表达式的使用方法，在 Until结构中，当 Until后面的循环条件表达式的结果为 False时，执行循环，当为 True时，结束循环。整型变量 N默认的初始值为 0，循环执行时，各变量的值
26、如下表所示。所以 A选项正确。 32 【正确答案】 C 【试题解析】 本题考查二重 For循环的执行情况，由题意可知，循环变量 I控制外层循环，循环变量 J控制内层循环，外层循环每执 行一次时，内层循环都需要执行 3次 (因为 J的取值分别为 1、 2、 3)，整型变量 N默认的初始值为 0，各循环变量及变量 S的值如下表所示。 所以 C选项正确。 33 【正确答案】 A 【试题解析】 本题考查的是使用 Do While循环计算斐波那契数列的各项问题，题目中要求，数列的第一项和第二项分别是 0和 1，变量 a和变量 b，分别表示数列的前两项，所以变量 b应该赋值为 1，在 While循环条件中
27、，当循环条件为真时，执行循环语句，否则结束循环。故 A选项的修改是正确的。 34 【正确答案】 D 【试题解析】 Function过程和 Sub过程有一个很重要的区别， Function过程可以带返回值，而 Sub过程不可以。本题的 Command1_Click()过程中，使用。 For循环结构调用函数过程 Fun，并将 Fun带回的计算结果进行累加，Command1_Click()事件过程中 For循环共执行 3次，循环执行情况及各变量的值如下表所示。 本题中 Fun函数过程中定义的变量 c是静态局部变量，可以保留上次程序执行后的结果，最后输出变量 s的值为 15，所以 D选项正确。 35
28、【正确答案】 B 【试题解析】 本题考查利用 For循环给数组元素赋值，在事件过程中定义了两个整型数组， a和 p，第一个 For循环，给 a数组中的每个元素赋值，循环共执行 11次， a(0)=0 a(1)=1 a(2)=2a(10)=10 ；利用第二个 For循环给数组 p中的元素赋值，循环共执行了 3次， p(0)=a(0*(0+1)=a(0)=0 p(1)=a(1*(1+1)=a(2)=2 p(2)=a(2*(2+1)=a(6)=6；利用第三个 For循环对数组 p中的元素进行计算并将累加结果保存到变量 k中，循环执行 3次， k=5+p(0)*2+p(1)*2+p(2)*2=5+4+
29、12=21，故最终变量 K的值为 21，所以 B选项正确。 36 【正确答案】 A 【试题解析】 在所有程序之前定义了全局变量 x和 y，所以变量 x和 y的作用域为所有过程。在 Form_Load事件过程中，对变量 x和 y进行了初始化，并启用了计时器控件，每隔 100毫秒 (0 1秒 )，触发一次计数器事件 Tiimerl_Timer。在计时器事件中利用 if语句判断图片的高度和宽度是否超过图像本身尺寸的 2倍，若未超过，则将图片的高度和宽度分别增加 3个 twip单位。所以 A选项正确。 37 【正确答案 】 A 【试题解析】 B选项中 While前缺少 Do； C选项缺少 Loop；
30、D选项 While和Until只能选用一个，故 A选项正确。 38 【正确答案】 D 【试题解析】 第一个 For循环利用表达式 Int(Rnd*100)随机产生一个 0， 99之间的整数，并依次赋值给数组中每个元素。第二个 For循环语句的功能是：循环遍历数组中的所有元素，使用 If语句判断每个元素是否为奇数，若是奇数则将该元素累加到变量 s中。综上所述，本程序的功能是随机产生 30个整数，并将所有奇数进行累加输出。故 D选项正确。 39 【正确答案】 A 【试题解析】 本题中 IsPrime函数的功能是判断一个数是否为素数，是素数则返回 True，不是则返回 False；素数的判断方法是：
31、一个数除了能被 1和自身整除以外，不能再被其他数整除。 fun函数的功能是找出小于形参 x最大的素数，并返回。在过程 Form_Click事件过程中， Text1=fun(x)， x=29，通过调用 fun函数，得到小于 29的最大素数为 23，所以 Text1中的值为 23， Form_Click事件过程中的 Do Loop Until循环的功能是找到大于变量 x的最小素数 ，大于 29的最小素数为 31，故 Text2中的值为 31，所以 A选项正确。 40 【正确答案】 C 【试题解析】 本题中，利用 Open语句，以顺序输入方式打开文本文件“Filel txt”，然后执行 Do Whi
32、le循环结构，利用 Input(1， #1)函数，从文本文件中依次取出一个字符并将其赋值给字符串变量 ch，若取出的字符是大写字母，则在其前面显示一个 “&”符号，所以 C选项叙述正确。 二、基本操作题 41 【正确答案】 (1)步骤 1：建立界面，并设置控件的属性。程序中涉及的控件及属性见表 1和表 2。 步骤 2：编写程序代码。 参考答案 Private Sub Command1_Click() Label1 Visible=Tree Label1 Caption=Text1 Text Text1 Visible=False End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存
33、盘。 (2)步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3。步骤 2：编写程序代码。参考答案 Private Sub HScroll1_Change() Text1 Height=HScroll1 Value Text1 Width=1 2*Text1 Height End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)文本框的 Text属性用于设置文本框中显示的文本。标签的Caption属性可设置其标题。 Visible属性用于设置控件或菜单项在程序运行时是否可见。 (2)通过调整滚动条滑块的位置即可改变其 Value属性的值，滚动条
34、的 Max和Min属性为滚动条所能表示的最大值和最小值， LargeChange属性用于设置当单击滑块与两侧箭头间区域时 Value属性值 的改变量， SmallChange属性用于设置当单击滚动条两侧箭头时 Value属性值的改变量。当改变滚动条滑块位置后将触发其 Change事件。 文本框的高度和宽度分别由其 Height属性值和 Width属性值设定。 三、简单应用题 42 【正确答案】 (1)步骤 1：打开本题项目工程，并在窗体中添加文本控件 Text1，并按照表 1 6设置文本控件 Text1的属性。 步骤2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答
35、案 Private Sub Command1_Click() Dim e As Single x As Single Dim i As Integer e=0： i=0 x=1 Do While x0 00001 e=e+x i=i+1 x=1 jc(i) Loop Text1 Text=e End Sub Function jc(n As Integer)As Long Dim i As Integer Dim t As Long t=1 For i=1 To n t=t*i Next je=t End Function 步骤 3：调试并运行程序，关闭程序后按题 目要求存盘。 (2)步骤 1
36、：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 (阴影部分是需考生填入的内容 ) Private Sub Command1_Click() Dim x As String Dim num As Integer i As Integer i=1 num=0 Do While i 【试题解析】 (1)在窗体中添加 Text控件，首先将 Text控件中的内容设置为空，然后进入 “计算 ”按钮的单击事件过程， Do While循环结构中调 用求阶乘函数 jc，依次求变量 i的阶乘结果，将最后的计算结果，显示在 Text控件上。 (2)利用
37、Do While循环遍历 Text1中的字符串，并使用 Mid(Text1， i， 1)取出。Text1中相应位置的字符，判断该字符是否与 Text2中的字符相等，如果相等则将变量 num加 1，循环结束后根据 num的值，判断程序的查找结果。 四、综合应用题 43 【正确答案】 步骤 1：打开本题项目工程。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容，并在 “考生编写的代码 ”区域填 入相应的代码以实现题目的功能。 参考答案 Option Base 1 Dim a(100)As Integer， Bum As Integer Private Sub Comma
38、nd1_Click() Dim k As Integer k=1 Open App Path&“ in5 txt“For Input As #1 Do While Not EOF(1) Input#1， a(k) k=k+1 Loop Close #1 num=k-1 For k=1 To Bum Text1=Text1&a(k)&“ Next k End Sub Private Sub Command2_Click() Dim sum As Long， n As Integer， s As Integer Dim i As Integer Sum=0： n=0 For i=1 To num S=a(i)Mod 10+a(i) 10 Mod 10+a(i) 100 Mod 10+a(i) 1000
