2010年9月全国计算机等级考试二级VB笔试试卷及答案

2010 年 9 月笔试真卷及答案详解 第 1 页（共 12 页） 2010 年 9 月全国计算机等级考试二级笔试试卷 Visual Basic 语言程序 （考试时间 90 分钟，满分 100 分） 一、选择（每小题 2分，共 70分） （1）下列叙述中正确的是（ ）。 A）线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的 B）线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构 C）线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构 D）上述三种说法都不对 （2）下列叙述中正确的是（ ）。 A）在栈中，栈中元素随栈底指针与栈顶指针的变化而动态变化 B）在栈中，栈顶指针不变，栈中元素随栈底指针的变化而动态变化 C）在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化 D）上述三种说法都不对 （3）软件测试的目的是（ ）。 A）评估软件可靠性 B）发现并改正程序中的错误 C）改正程序中的错误 D）发现程序中的错误 （4）下面描述中，不属于软件危机表现的是（ ）。 A）软件过程不规范 B）软件开发生产率低 C）软件质量难以控制 D）软件成本不断提高 （5）软件生命周期是指（ ）。 A）软件产品从提出、实现、使用维护到停止使用退役的过程 B）软件从需求分析、设计、实现到测试完成的过程 C）软件的开发过程 D）软件的运行维护过程 （6）面向对象方法中，继承是指（ ）。 A）一组对象所具有的相似性质 B）一个对象具有另一个对象的性质 C）各对象之间的共同性质 D）类之间共享属性和操作的 （7）层次型、网状型和关系型数据库划分原则是（ ）。 A）长度 B）文件的大小 C）联系的复杂程度 D）数据之间的联系方式 （8）一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员 与实体计算机之间的联系是（ ）。 A）一对一 B）一对多 C）多对多 D）多对一 （9）数据库设计中反映用户对数据要求的模式是（ ）。 A）内模式 B）概念模式 C）外模式 D）设计模式 （10）有三个关系 R、S 和 T 如下： R S T A B C A D A B C D a 1 2 c 4 c 3 1 4 b 2 1 c 3 1 则由关系 R 和 S 得到关系 T 的操作是（ ）。 2010 年 9 月笔试真卷及答案详解 第 2 页（共 12 页） A）自然连接 B）交 C）投影 D）并 （11）在 Visual Basic 集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是（ ）。 A） B） C） D） （12）在 VisualBasic 集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是（ ）。 A）工程资源管理器窗口 B）属性窗口 C）工具箱窗口 D）代码窗口 （13）下列叙述中错误的是（ ）。 A）列表框与组合框都有 List 属性 B）列表框有 Selected 属性，而组合框没有 C）列表框和组合框都有 Style 属性 D）组合框有 Text 属性，而列表框没有 （14）设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是（ ）。 A）Name B）Index C）Caption D）Left （15）滚动条可以响应的事件是（ ）。 A）Load B）Scroll C）Click D）MouseDown （16）设 a=5，b=6，c=7，d=8，执行语句 x=IIf((a>b) And (c>d),10,20)后，x 的值是（ ）。 A）10 B）20 C）30 D）200 （17）语句 Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是（ ）。 A）-36 B）1 C）-1 D）-72 （18）在窗体上画一个图片框，再在图片框中画一个命令按钮，位置如图。则命令按钮的 Top 属性值是（ ）。 A）200 B）300 C）500 D）700 200 500 （19）在窗体上画一个名称为 Commandl 的命令按钮。单击命令按钮时执行如下事件过程： Private Sub Command1_Click() a$ = "software and hardware" b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, , b$, c$, 1 End Sub 则在弹出的信息框标题栏中显示的标题是（ ）。 A）software and hardware B）hardware C）software D）1 （20）在窗体上画一个文本框（名称为 Textl）和一个标签（名称为 Label1），程序运行后，如果在文本框中输 入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是（ ）。 A）Private Sub Text1_Change() B）Private Sub Label1_Change() Label1.Caption = Text1.Text Label1.Caption = Text1.Text End Sub End Sub C）Private Sub Text1_Click() D）Private Sub Label1_Click() Label1.Caption = Text1.Text Label1.Caption = Text1.Text End Sub End Sub （21）以下说法中错误的是（ ）。 A）如果把一个命令按钮的 Default 属性设置为 True，则按回车键与单击该命令按钮的作用相同 B）可以用多个命令按钮组成命令按钮数组 C）命令按钮只能识别单击（Click）事件 D）通过设置命令按钮的 Enabled 属性，可以使该命令按钮有效或禁用 （22）以下关于局部变量的叙述中错误的是（ ）。 2010 年 9 月笔试真卷及答案详解 第 3 页（共 12 页） A）在过程中用 Dim 语句或 Static 语句声明的变量是局部变量 B）局部变量的作用域是它所在的过程 C）在过程中用 Static 语句声明的变量是静态局部变量 D）过程执行完毕，该过程中用 Dim 或 Static 语句声明的变量即被释放 （23）以下程序段的输出结果是（ ）。 x=1 : y=4 Do Until y>4 x = x * y y = y + l Loop Print x A）l B）4 C）8 D）20 （24）如果执行一个语句后弹出如图所示的窗口，则这个语句是（ ）。 A）InputBox("输入框", "请输入 VB 数据") B）x=InputBox("输入框", "请输入 VB 数据") C）InputBox("请输入 VB 数据", "输入框") D）x=InputBox("请输入 VB 数据", "输入框") （25）有如下事件过程： Private Sub Form_Click() Dim n As Integer x = 0 n = InputBox("请输入一个整数") For i = 1 To n For j = 1 To i x = x + 1 Next j Next i Print x End Sub 程序运行后，单击窗体，如果在输入对话框中输入 5，则在窗体上显示的内容是（ ）。 A）13 B）14 C）15 D）16， （26）请阅读程序： Sub subp(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8 subp a() For i = 1 To 4 Print a(i) Next End Sub 运行上面的程序，单击命令按钮，则输出结果是（ ）。 A）2 B）5 C）10 D）出错 2010 年 9 月笔试真卷及答案详解 第 4 页（共 12 页） 4 6 12 6 7 14 8 8 16 （27）Fibonacci 数列的规律是：前 2 个数为 l，从第 3 个数开始，每个数是它前 2 个数之和，即：1，l，2，3， 5，8，13，21，34，55，89，…。某人编写了下面的函数，判断大于 1 的整数 x 是否是 Fibonacci 数列 中的某个数，若是，则返回 True，否则返回 False。 Function Isfab(x As Integer) As Boolean Dim a As Integer, b As Integer, c As Integer, flag As Boolean flag = False a = 1 : b = 1 Do While x < b c = a + b : a = b : b = c If x = b Then flag = True Loop Isfab = flag End Function 测试时发现对于所有正整数 x，函数都返回 False，程序需要修改。下面的修改中正确的是（ ）。 A）把 a=b 与 b=c 的位置互换 B）把 c=a+b 移到 b=c 之后 C）把 Do While xb D）把 If x=b Then flag=True 改为 If x=a Then flag=True （28）在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a$, b$, c$, k% a = "ABCD" b = "123456" c = "" k = 1 Do While k <= Len(a) Or k <= Len(b) If k <= Len(a) Then c = c & Mid(a, k, 1) End If If k <= Len(b) Then c = c & Mid(b, k, 1) End If k = k + 1 Loop Print c End Sub 运行程序，单击命令按钮，输出结果是（ ）。 A）123456ABCD B）ABCD123456 C）D6C584A321 D）A1B2C3D456 （29）请阅读程序： Private Sub Form_Click() m = 1 For i = 4 To 1 Step -1 Print str(m); m = m + 1 For j = 1 To i Print "*"; Next j Print 2010 年 9 月笔试真卷及答案详解 第 5 页（共 12 页） Next i End Sub 程序运行后，单击窗体，则输出结果是（ ）。 A）1**** B）4**** C）**** D）* 2*** 3*** *** ** 3** 2* **** *** 4* 1* * **** （30）在窗体上画一个命令按钮（其名称为 Commandl），然后编写如下代码： Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4) i = 3: j = 1 Do While i >= 0 s = s + a(i) * j i = i – 1 : j = j * 10 Loop Print s End Sub 运行上面的程序，单击命令按钮，则输出结果是（ ）。 A）432l B）123 C）234 D）1234 （31）下列可以打开随机文件的语句是（ ）。 A）Open "file1.dat" For Input As #l B）Open "file1.dat" For Append As #l C）Open "file1.dat" For Output As #1 D）Open "file1.dat" For Random As #1 Len=20 （32）有弹出式菜单的结构如右表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正 确实现这一功能的是（ ）。 内缩 标题 名称 无 编辑 edit … 剪切 cut … 粘贴 paste A）Private Sub Form_Click() B）Private Sub Command1_Click() PopupMenu cut PopupMenu edit End Sub End Sub C）Private Sub Form_Click() D）Private Sub Form_Click() PopupMenu edit PopupMenu cut End Sub PopupMenu paste End Sub （33）请阅读程序： Option Base 1 Private Sub Form_Click() Dim arr(4, 4) As Integer For i = 1 To 4 For j = 1 To 4 arr(i, j) = (i - 1) * 2 + j Next Next For i = 3 To 4 For j = 3 To 4 Print arr(j, i); 2010 年 9 月笔试真卷及答案详解 第 6 页（共 12 页） Next j Print Next End Sub 程序运行后，单击窗体，则输出结果是（ ）。 A）5 7 B）6 8 C）7 9 D）8 10 6 8 7 9 8 10 8 11 （34）下面函数的功能应该是：删除字符串 str 中所有与变量 ch 相同的字符，并返回删除后的结果。例如：若 str=“ABCDABCD”，ch=“B”，则函数的返回值为：“ACDACD'’ Function delchar(str As String, ch As String) As String Dim k As Integer, temp As String, ret As String ret = "" For k = 1 To Len(str) temp = Mid(str, k, 1) If temp = ch Then ret = ret & temp End If Next k delchar = ret End Function 但实际上函数有错误，需要修改。下面的修改方案中正确的是（ ）。 A）把 ret = ret & temp 改为 ret = temp B）把 If temp = ch Then 改为 If temp<> ch Then C）把 delchar = ret 改为 delchar = temp D）把 ret="" 改为 temp="" （35）在窗体上画一个命令按钮和两个文本框，其名称分别为 Commandl、Textl 和 Text2，在属性窗口中把窗 体的 KeyPreview 属性设置为 True，然后编写如下程序： Dim S1 As String, S2 As String Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Text1.Enabled = False Text2.Enabled = False End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) S2 = S2 & Chr(KeyCode) Print S2 End Sub Private Sub Form_KeyPress(KeyAscii As Integer) S1 = S1 & Chr(KeyAscii) Print S1 End Sub Private Sub Command1_Click() Text1.Text = S1 Text2.Text = S2 S1 = "" S2 = "" End Sub 程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框 Textl 和 Text2 中显示的内容分 别为（ ）。 A）abe 和 ABC B）空白 C）ABC 和 abc D）出错 2010 年 9 月笔试真卷及答案详解 第 7 页（共 12 页） 二、填空题（每空 2分，共 30分） （1）一个栈的初始状态为空。首先将元素 5，4，3，2，1 依次入栈，然后退栈一次，再将元素A，B，C，D 依次入栈，之后将所有元素全部退栈，则所有元素退栈（包括中间退栈的元素）的顺序为 【1】 。 （2）在长度为n的线性表中，寻找最大项至少需要比较 【2】 次。 （3）一棵二叉树有 10 个度为 1 的结点，7 个度为 2 的结点，则该二叉树共有 【3】 个结点。 （4）仅由顺序、选择（分支）和重复（循环）结构构成的程序是 【4】 程序。 （5）数据库设计的四个阶段是：需求分析，概念设计，逻辑设计和 【5】 。 （6）窗体上有一个名称为 Combol 的组合框，其初始内容为空，有一名称 为 Commandl、标题为“添加项目”的命令按钮。程序运行，若单击 命令按钮，会将给定数组中的项目添加到组合框中，如图。请填空。 Option Base 1 Private Sub Command1_Click() Dim city As Variant city = 【6】 ("北京", "天津", "上海", "武汉", "重庆", "西宁") For i = 【7】 To UBound(city) Combo1.AddItem 【8】 Next End Sub （7）窗体上有一个名称为 Textl 的文本框和一个名称为 Commandl、标题为“计算”的命 令按钮，如图所示。函数 fun 及命令按钮的单击事件过程如下，请填空。 Private Sub Command1_Click() Dim x As Integer x = Val(InputBox("输入数据")) Text1 = Str(fun(x) + fun(x) + fun(x)) End Sub Private Function fun(ByRef n As Integer) If n Mod 3 = 0 Then n = n + n Else n = n * n End If 【9】 = n End Function 当单击命令按钮，在输入对话框中输入 2 时，文本框中显示的是 【10】 （8）窗体上有一个名称为 Listl 的列表框，一个名称为 Picturel 的图片框。Form_Load 事件过程的作用是，把 Datal.txt 文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对 应的图片显示在图片框中，如图所示。以下是类型定义及程序，请填空。 Private Type Pic gName As String * 10 '物品名称 picFile As String * 20 '物品图片的图片文件名 End Type Dim p(4) As Pic, pRec As Pic 2010 年 9 月笔试真卷及答案详解 第 8 页（共 12 页） Private Sub Form_Load() Open "Data1.txt" For Random As #1 【11】 = Len(pRec) For i = 0 To 4 Get #1, i + 1, p(i) List1.AddItem p(i). gName Next i Close #1 End Sub Private Sub List1_DblClick() For i = 0 To 4 If RTrim(List1.List(i)) = RTrim( 【12】 ) Then Picture1.Picture = LoadPicture(p(i). 【13】 ) Exit For End If Next End Sub （9）窗体上有一个名称为 CDl 的通用对话框。通过菜单编辑器建立如图 l 所示的菜单。程序运行时，如果单 击“打开”菜单项，则执行打开文件的操作，当选定了文件（例如：G:\VB\2010-9\in.txt）并打开后，该 文件的文件名会被添加到菜单中，如图 2 所示。各菜单项的名称和标题等定义如下表。 图 1 图 2 标题 名称 内缩 索引 可见 文件 File 无 无 True 打开 mnuOpen … 无 True 关闭 mnuClose … 无 True － mnu … 无 True （空） FName … 0 False 以下是单击“打开”菜单项的事件过程，请填空。 Dim mnuCounter As Integer Private Sub mnuOpen_Click() CD1.ShowOpen If CD1.FileName <> "" Then Open 【14】 For Input As #1 mnuCounter = mnuCounter + 1 Load fname(mnuCounter) fname(mnuCounter).Caption = CD1.FileName fname(mnuCounter). 【15】 = True Close #1 End If End Sub 2010 年 9 月笔试真卷及答案详解 第 9 页（共 12 页） 2010 年 9 月全国计算机等级考试二级笔试试卷 Visual Basic 参考答案及详解 一、选择题（每小题 2分，共 70分） （1）B） 【解析】线性表的存储分为顺序存储和链式存储。在顺序存储中，所有元素所占的存储空间是 连续的，各数据元素在存储空间中是按逻辑顺序依次存放的。所以每个元素只存储其值就可以了，而在链式存 储的方式中，将存储空间的每一个存储结点分为两部分，一部分用于存储数据元素的值，称为数据域；另一部 分用于存储下一个元素的存储序号，称为指针域。所以线性表的链式存储方式比顺序存储方式的存储空间要大 一些。 （2）C） 【解析】在栈中，允许插入与删除的一端称为栈顶，而不允许插入与删除的另一端称为栈底。 栈跟队列不同，元素只能在栈顶压入或弹出，栈底指针不变，栈中元素随栈顶指针的变化而动态变化，遵循后 进先出的规则。 （3）D） 【解析】软件测试的目的是为了发现程序中的错误，而软件调试是为了更正程序中的错误。 （4）A） 【解析】软件危机主要表现在以下 6 个方面： ① 软件需求的增长得不到满足。 ② 软件开发成本和进度无法控制。 ③ 软件质量难以保证。 ④ 软件不可维护或维护程序非常低。 ⑤ 软件的成本不断提高。 ⑥ 软件开发生产率的提高赶不上硬件的发展和应用需求的增长。 （5）A） 【解析】软件生命周期是指软件产品从提出、实现、使用、维护到停止使用、退役的过程。 （6）D） 【解析】面向对象方法中，继承是使用已有的类定义作为基础建立新类的定义技术。广义地说， 继承是指能够直接获得已有的性质和特征，而不必重复定义它们。 （7）D） 【解析】根据数据之间的联系方式，可以把数据库分为层次型、网状型和关系型数据库，它们 是根据数据之间的联系方式来划分的。 （8）C） 【解析】如果一个工作人员只能使用一台计算机且一台计算机只能被一个工作人员使用，则关 系为一对一；如果一个工作人员可以使用多台计算机，但是一台计算机只能被一个工作人员使用，则关系为一 对多；如果一个工作人员可以使用多台计算机，一台计算机也可以被多个工作人员使用，则关系为多对多。 （9）C） 【解析】概念模式，是由数据库设计者综合所有用户的数据，按照统一的观点构造的全局逻辑 结构，是对数据库中全部数据的逻辑结构和特征的总体描述，是所有用户的公共数据视图（全局视图）。它是 由数据库管理系统提供的数据模式描述语言（Data Description Language，DDL）来描述、定义的，体现、反映 了数据库系统的整体观。 外模式对应于用户级，它是某个或某几个用户所看到的数据库的数据视图，是与某一应用有关的数据的逻 辑表示。外模式是从模式导出的一个子集，也称为子模式或用户模式，它是用户的数据视图，也就是用户所见 到的数据模式，它反映了用户对数据的要求。包含模式中允许特定用户使用的那部分数据，用户可以通过外模 式描述语言来描述、定义对应于用户的数据记录（外模式），也可以利用数据操纵语言（Data Manipulation Language，DML）对这些数据记录进行描述。 内模式，对应于物理级，它是数据库中全体数据的内部表示或底层描述，是数据库最低一级的逻辑描述， 它描述了数据在存储介质上的存储方式和物理结构，对应着实际存储在外存储介质上的数据库。内模式由内模 式描述语言来描述、定义，它是数据库的存储观。 （10）A） 【解析】选择是单目运算，其运算对象是一个表。该运算按给定的条件，从表中选出满足条件 的行形成一个新表作为运算结果。投影也是单目运算，该运算从表中选出指定的属性值组成一个新表。自然连 接是一种特殊的等价连接，它将表中有相同名称的列自动进行记录匹配。自然连接不必指定任何同等连接条件。 （11）A） 【解析】在 VB 集成环境中，工具栏上的按钮可以完成需要的功能，其中 图标代表添加窗体， 图标代表新建工程， 图标代表打开菜单编辑器窗口， 图标代表打开属性窗口。 2010 年 9 月笔试真卷及答案详解 第 10 页（共 12 页） （12）D） 【解析】VB 中双击任何控件均会打开代码窗口。 （13）B） 【解析】列表框和组合框都是一系列列表项的集合，二者均具备 List 属性，该属性是列表项组 成的数组；二者均具有 Style 属性，列表框的 Style 属性用于设置是普通列表框还是复选式列表框，组合框的 Style 属性用于设置风格；组合框具有 Text 属性而列表框没有；列表框的 MultiSelect 属性用于设置其是否可以 多选，而无论是列表框还是组合框均不具备 Selected 属性。 （14）B） 【解析】控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控 件都有惟一的索引号（Index），即下标，默认索引号从 0 开始。每个数组元素的名称、大小、事件均使用同一 个，区别只在于 Index 属性不一样。 （15）B） 【解析】滚动条可以响应的事件主要为 Scroll 事件和 Change 事件，其中 Scroll 事件在拖动滚 动块时被触发，Change 事件在滚动条的 Value 值改变时被触发。 （16）B） 【解析】IIf 函数可用于执行简单的条件判断操作，它是“If…Then…Else”结构的简写版本。 【格式】result=IIf(<条件>,,) 【说明】“result”是函数的返回值，“条件”是一个逻辑表达式。当“条件”为真时，返回“True 部分” 的值；当“条件”为假时，返回“False 部分”的值。 本题中由于条件的判断值为 False，故此函数返回值为 20。 （17）C） 【解析】算术表达式的运算次序为：幂（^）→取负（-）→乘、浮点除（*、/）→整除（\）→ 取模（Mod）→加、减（+、－）→连接（&），Sgn 函数会返回参数的符号。所以在本题中表达式等于（-1）+ （36）+（-36），最后结果为-1 （18）A） 【解析】控件的 Top 属性指的是控件的上边距离该控件的容器上沿的长度，由于命令按钮在图 片框这个容器中，所以其 Top 属性为 200。 （19）B） 【解析】MsgBox()函数用于显示提示信息，并可返回一个代表用户单击了哪个按钮的 Integer 类型值，注意：这个返回值是 MsgBox()函数的而不是 MsgBox 语句的。其常用语法为： MsgBox(prompt[,buttons][,title])。 其中：prompt 参数为消息框的提示信息并不能省略；buttons 参数是一个整数用于控制消息框中按钮的数 目、类型及消息框图标的样式；title 参数为消息框标题栏上显示的内容，若省略则为默认值（也就是工程的名 字）。本题中标题栏上的内容为变量 b，即 hardware。 （20）A） 【解析】如果要在文本框中输入文本就改变标签的标题，则应编写的是文本框的 Change 事件。 （21）C） 【解析】命令按钮除响应 Click 事件外，还能响应 GotFocus、LostFocus、MouseDown 等事件。 （22）D） 【解析】局部变量是在过程（事件过程或通用过程）内定义的变量，作用域为该变量所在的过 程，定义时使用 Dim、Static 关键字。使用 Dim 关键字定义的是动态局部变量，过程执行结束后即被释放；使 用 Static 关键字定义的是静态局部变量，过程执行结束后仍然保留。 （23）B） 【解析】Do 型循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则 有可能一次也不执行循环体；如果是后判断条件，则无论条件是什么，至少执行一次循环体。在 Until 循环中 条件为 False 时执行循环体，条件为 True 时退出循环；在 While 循环中条件为 True 时执行循环体，条件为 False 时退出循环。本题中第一次循环时由于不满足 y>4，因此执行一次循环体，随后就由于满足 y>4 而退出循环， 故此 x 的值为 4。 （24）D） 【解析】InputBox 函数可产生一个对话框，这个对话框作为输入数据的界面，等待用户输入数 据，并返回输入的内容。InputBox 函数其格式为： InputBox(Prompt,[title][,default][,xpos,ypos][,helpfile,context]) 该函数有 7 个参数，其中 Prompt 是必需的，作为对话框消息出现的字符串表达式。Prompt 的最大长度大 约是 1024 个字符，由所用字符的宽度决定。如果 Prompt 包含多个行，则可在各行之间用回车符(Chr(13))、换 行符 (Chr(10))或回车和换行符的组合 (Chr(13) & Chr(10))来分隔；Title 是可选的，显示对话框标题栏中的字 符串表达式。如果省略 Title，则把应用程序名放入标题栏中。 由于 InputBox 是一个函数而不是语句，因此需要将其返回值保存至某个变量中。 （25）C） 【解析】本题是一个简单的二重循环，外循环执行第一次的时候在累加和 x 中加上 1，外循环 第二次的时候在累加和 x 中加上 2，以此类推，外循环循环 5 次，累加和中的值为 1+2+3+4+5=15。 （26）A） 【解析】数组作为过程参数时只能通过传地址的方式来调用，即实参的变化会影响到形参。本 题中在命令按钮的 Click 事件中首先为数组 a 依次赋值，然后以数组 a 为参数调用过程 Subp，在 Subp 过程中 将形参数组 b 重新赋值，这个操作也同时影响了形参 a，因此，逐行输出 2、4、6、8。 2010 年 9 月笔试真卷及答案详解 第 11 页（共 12 页） （27）C） 【解析】在本题中通过分析题干中的程序可以看出，函数的返回值就是变量 flag 的值。错误现 象是无论输入哪个正整数均会返回 False，这就代表着没有执行循环，直接输出的就是变量 flag 的初值 False。 进一步分析可以看出，由于 b 的初值为 1，而任何正整数均不会小于 1，所以永远无法满足循环条件从而进入 循环，因此需要将条件 xb。 （28）D） 【解析】在本题的每一次循环中，首先取出字符串 a 中的第 k 位连接到 c 中，然后取出字符串 b 中的第 k 位连接到 c 中，若有一个字符串全部取完，则将另一个字符串中的剩余内容连接到 c 中，因此结果 应该是 A1B2C3D456。 （29）A） 【解析】本题是一个二重循环输出二维图形的程序，其中外循环控制行，内循环控制列。在每 一行中，首先输出 m 的值，然后输出 i 个星号，即第一行是先输出 1 然后跟 4 个星号；第二行先输出 2 然后跟 3 个星号；第三行先输出 3 然后跟 2 个星号；第四行先输出 4 然后跟 1 个星号。 （30）D） 【解析】本题中第一次循环中累加的值是 a(3)*1 即 4，第二次循环中累加的值是 a(2)*10 即 30， 第三次循环中累加的值是 a(1)*100 即 200，第四次循环中累加的值是 a(0)*1000 即 1000，因此最后结果为 1234。 （31）D） 【解析】根据数据的存取方式和结构不同，文件可分为顺序文件和随机文件。顺序文件中的记 录是一个接一个地顺序存放，各个记录的长度可以不相同。随机文件又称直接存取文件，文件中的记录长度是 固定的。打开文件的基本格式为：Open FileName For Mode As #FileNumber。打开方式（Mode）主要有 Output、 Append、Input、Random 等几种。其中，打开随机文件要以 Random 方式打开，并且指定记录长度 Len。 （32）C） 【解析】弹出式菜单是一种小型的菜单，它可以在窗体的某一个地方显示出来，对程序事件做 出响应。一般用于设计右键快捷菜单（弹出式菜单）。建立弹出式菜单通常分为两步：首先用菜单编辑器建立 菜单；然后用 PopupMenu 方法弹出显示。弹出式菜单的 PopupMenu 方法应该针对主菜单项。 （33）C） 【解析】本题是有关二维数组的处理，在第一个二重循环中为二维数组 arr 赋初值，复制后的 arr 数组中的数据为：1 2 3 4 3 4 5 6 5 6 7 8 7 8 9 10 在第二个循环中输出数组的部分值，注意到在输出的值为 arr(j,i)，因此为 C 选项。 （34）B） 【解析】题干中给出的函数作用为删除参数字符串中与 ch 相同的字符，而在给出的程序段中， 每次遍历 str 参数中的每一个字符，若其与 ch 相等，则将其连接到结果字符串中，这样显然是不合要求的，应 该是若取出的字符和 ch 不等则将其连接到结果中，否则舍弃。因此，应将“If temp=ch Then”改为“If temp<>ch Then” （35）A） 【解析】常见的键盘事件有：KeyDown、KeyUp 和 KeyPress。当用户按下并释放一个可打印 的键盘字符时，KeyDown、KeyPress、KeyUp 事件将依次发生，KeyPress 事件过程中不能识别键盘的按下与释 放。 KeyDown(KeyCode As Integer,Shift as Integer)和 KeyUp(KeyCode As Integer,Shift as Integer)有两个参数，其 中，KeyCode 参数是表示所按键的位置信息的代码（将 A 和 a 作为同一个键返回，而从大键盘上输出的“1” 和右侧小键盘上输入的“1”将被视作不同的字符）；Shift 参数代表按键时、、键的状态。 KeyPress(KeyAscii As Integer)事件中 KeyAscii 参数是所按键的 ASCII 的代码，该参数不显示键盘的物理状态， 而只是传递一个字符。KeyPress 将每个字符的大、小写形式作为不同的键代码解释，即作为两种不同的字符。 本题 Form_KeyDown 事件过程的作用是：在按下键盘上的键后，将该键对应位置的字符（大写）连入字 符串变量 S2 中。Form_KeyPress 事件过程的作用是：在按下键盘上的键后，将该键键码对应的字符（区分大 小写）连入字符串变量 S1 中。程序运行后，输入“abc”后单击命令按钮，S2="ABC"，S1="abc"。 二、填空题（每空 2分，共 30分） （1）【1】1DCBA2345 【解析】栈的特点是先进后出，所以先入栈的元素是 5,4,3,2,1，然后退栈一次，此时元素 1 出栈，接着元 素 A,B,C,D,依次入栈，此时栈中的元素从栈低到栈端的顺序是：5432ABCD，之后将所有元素全部退栈，此时 出来的元素顺序就是上面元素顺序的逆序，即 DCBA2345，再加上第一次出栈的元素 1，退栈顺序就是 1DCBA2345。 （2）【2】n-1 2010 年 9 月笔试真卷及答案详解 第 12 页（共 12 页） 【解析】顺序查找线性表中的最大数，从第一个元素开始两两比较，先比较第 1 个和 2 个，记录下较大的 一个元素的下标，再按顺序用线性表中下一个元素与这个较大的元素比较，如果比这个较大的元素大，就把这 个大的元素的下标记录下来，依次类推，就可以找到最大的元素了，所以比较的次数至少是 n-1 次。（注意： 对于类似递增或递减的有序线性表，通过 1 次比较得到排序方式即可得到最大数，本题不考虑这种情况） （3）【3】25 【解析】二叉树有一条很重要的性质：度为 0 的结点的个数=度为 2 的结点的个数+1。所以总个数为：度 为 0 的结点的个数+度为 1 的结点的个数+度为 2 的结点的个数=8+10+7=25。 （4）【4】结构化 【解析】结构化程序设计由顺序、选择（分支）和重复（循环）结构构成。 （5）【5】物理设计 【解析】数据库设计的四个阶段是：需求分析、概念设计，逻辑设计和物理设计。 （6）【6】Array 【7】1 【8】city(i) 【解析】根据题意，【6】空处用于产生一个数组，故此应该使用 Array 函数；【7】空处用于设定遍历数组 的循环下界，由于规定了数组下标从 1 开始，故此应填 1；【8】空处用于将数组元素添加进列表框中，故应为： city(i)。 （7）【9】fun 【10】276 【解析】在一个函数中最后的函数返回值以函数名返回，因此【9】空处应填 fun；本题中的函数使用的是 地址传递，即对实参的改变会影响到形参，在第一次调用 fun(x)时，x 的初值为 2，调用结束后 x 的值变为 4， 同时返回函数值 4；第二次调用函数时，x 的初值就为 4，调用结束后 x 的值为 16，同时返回函数值 16；第三 次调用时 x 的初值为 16，调用结束后 x 的值为 256，返回的函数值也为 256，所以【9】空处输出的值应该为 4+16+256=276。 （8）【11】Len 【12】p(i).gName 【13】picFile 【解析】根据数据的存取方式和结构不同，文件可分为顺序文件和随机文件。顺序文件中的记录是一个接 一个地顺序存放，各个记录的长度可以不相同。随机文件又称直接存取文件，文件中的记录长度是固定的。打 开文件的基本格式为：Open FileName For Mode As #FileNumber。打开方式（Mode）主要有 Output、Append、 Input、Random 等几种。其中，打开随机文件要以 Random 方式打开，并且指定记录长度 Len，因此，按照格 式【11】空处应填 Len。 在列表框的双击事件中，首先遍历所有的列表框，依次判断列表项的值是否等于 p(i)中的 gName 域的值， 若相等的话，则取出图片路径（p(i)中 picFile 域的值），使用 LoadPicture 函数为图片框加载图片。 （9）【14】CD1.FileName 【15】Visible 【解析】通用对话框的 FileName 属性返回的是对话框中选中的文件路径，由于本题中需要打开在对话框 中选中的文件，因此在打开文件的语句【14】空处应该填写文件路径（即 CD1.FileName）。 一般可通过菜单设计器对已有的菜单进行增减；也可通过菜单控件数组来实现菜单项的增减。菜单控件数 组可以在设计阶段建立，也可以在运行时建立。利用这一特点，可在设计时建立菜单控件数组的第一个元素， 该元素的下标为 0、Visible 属性为 False。在程序运行时，通过 Load 语句来建立该菜单控件数组的新元素，并 将其 Visible 属性置为 True，从而实现增加菜单项的功能，因此【15】空处应填 Visible。