1、二级 VISUAL+BASIC 笔试 79 及答案解析(总分：90.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.当 Style 属性为_时，组合框为简单组合框。（分数：2.00）A.0B.1C.2D.32.定义有 5 个整数型元素的数组，正确的语句是_。（分数：2.00）A.Dim a(4)As IntegerB.Option Base 1：Dim a(5)C.Dim a&(5)D.Dime a(5)As Integer3.在结构化方法中，软件功能分解属于软件开发中的_阶段。（分数：2.00）A.概要设计B.需求分析C.详细设计D.编程调试4.以下关于过程
2、及过程参数的描述中，错误的是_。（分数：2.00）A.过程的参数可以是控件名称B.用数组作为过程的参数时，使用的是“传地址”方式C.只有函数过程能够将过程中处理的信息传回到调用的程序中D.窗体可以作为过程的参数5.以下数据结构中，不属于线性数据结构的是_。（分数：2.00）A.队列B.线性表C.二叉树D.栈6.关于 Visual Basic 应用程序，正确的叙述是_。（分数：2.00）A.Visual Basic 程序是以线性方式顺序执行的B.Visual Basic 程序运行时，总是等待事件被触发C.Visual Basic 程序设计的核心是编写事件过程的程序代码D.Visual Basic
3、 的事件可以由用户随意定义，而事件过程是系统预先设置好的7.对于白箱(盒)测试用例的各设计准则，下列叙述中正确的是_。（分数：2.00）A.分支覆盖准则比语句覆盖准则严密B.条件覆盖要比分支覆盖优越，因此，条件覆盖能完全满足分支覆盖C.组合条件覆盖准则既能满足分支覆盖准则，也能满足条件覆盖准则。因此，组合条件覆盖准则是一种完全测试D.上述说法都不对8.已知 c:/1txt 是一个非空文件，其程序代码如下。 Private Sub Command1_Click() Dim MaxSize，NextChar，MyChat Open“c:/1txt“For Input As#1 MaxSize=LO
4、F(1) For NextChar=MaxSize To 1 Step-1 Seek #1，NextChar MyChar=Input(1，#1) Next NextChar Print EOF(1) Close #1 End Sub 程序运行后，单击命令按钮，其输出结果为_。（分数：2.00）A.TrueB.NullC.0D.False9.当 a1、b3、c5、d4 时，执行下面一段程序后，x 的值为_。 If ab Then If cd Then x=1 Else If ac Then If bd Then x=2 Else x=3 End If Else x=6 End If End I
5、f Else x=7 End If（分数：2.00）A.1B.2C.3D.610.以下程序运行后输出的结果是_。 For j=i To 4 GoSub s： m=m+1/n Next j Print m；n End s：n=j*(j+1) Return（分数：2.00）A.0.8，20B.0.75，12C.1.8，20D.1.75，1211.关于实体完整性规则，正确的叙述是_。（分数：2.00）A.实体完整性规则规定关系的主码不能为空B.实体完整性规则规定关系的候选码不能为空C.实体完整性规则规定关系的主属性不能为空D.实体完整性规则规定关系的外码不能为空12.在窗体上画一个命令按钮，名称为
6、Commandl，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array(“北京“，“上海“，“天津“，“重庆“) Print city(1) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是_。（分数：2.00）A.空白B.错误提示C.北京D.上海13.如果要改变窗体的标题，则需要设置的属性是_。（分数：2.00）A.CaptionB.NameC.BackColorD.BorderStyle14.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是_。（
7、分数：2.00）A.MouseDownB.MouseUpC.LoadD.Click15.以下叙述中，正确的一条是_。（分数：2.00）A.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器B.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令打开菜单编辑器C.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器D.只有当代码窗口为活动窗口时，才能打开菜单编辑器16.在数据库技术中，面向对象数据模型是一种_。（分数：2.00）A.概念模型B.结构模型C.物理模型D.形象模型17.软件工程包括软件开发技术和软件工程管理。属于软件工程管理内容的是_。（分数：2.00）A.软件工具B.软件
8、工程环境C.开发方法D.软件工程经济学18.为取名为 MenuColor 的菜单项添加标记的语句是_。（分数：2.00）A.MenuColor，PopupTrueB.MenuColoEnabledTrueC.MenuColoVisibleTrueD.MenuColoCheckedTrue19.软件测试的内容包括： 、有效性测试 、集成测试 、验收测试 、系统测试 、单元测试 正确的测试顺序是_。（分数：2.00）A.、B.、C.、D.、20.假定有一个菜单项取名为 Menuhem，为了在运行时使该菜单项失效(变灰)，应使用的语句是_。（分数：2.00）A.MenuIteEnabled=Fals
9、eB.MenuIteEnabledTrueC.MenuIteVisibleTrueD.MenuIteVisibleFalse21.菜单编辑器窗口有 3 个区域，下列不属于菜单编辑器的是_。（分数：2.00）A.菜单项属性区B.菜单项显示区C.菜单在线演示区D.菜单编辑区22.确定复选框是否选中，应该访问的属性是_。（分数：2.00）A.StyleB.ValueC.SelectedD.Checked23.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 30 Then
10、 m=m+n/3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.15B.18C.21D.2424.在窗体上画 3 个单选按钮，组成一个名为 chkOption 的控件数组。用于标识各个控件数组元素的参数是_。（分数：2.00）A.TagB.IndexC.ListIndexD.Name25.在包含 1000 个元素的线性表中实现如下各运算，_所需的执行时间最长。（分数：2.00）A.线性表按顺序方式存储，在线性表的第 10 个结点后面插入一个新结点B.线性表按链接方式存储，在线性表的第 10 个结点后面插入一个新结点C.
11、线性表按顺序方式存储，删除线性表的第 990 个结点D.线性表按链接方式存储，删除指针 P 所指向的结点26.下列叙述中，错误的是_。（分数：2.00）A.一种数据的逻辑结构可以有多种存储结构B.数据的存储结构与数据处理的效率无关C.数据的存储结构与数据处理的效率密切相关D.数据的存储结构在计算机中所占的空间不一定是连续的27.以下程序运行后输出的结果是_。 Private Sub Form _Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub（分数：2.00）A.10B.15C.80D.10028.运行以下程序时，由键盘为
12、变量 load 输入的数据为 20，输出结果为_。 Private Function Wei(load As Integer)，Money As Single If load20 Then Money=load/2 Else Money=20+load End if Wei=Money End Function Private Sub Form _Click() Dim load As Integer，fee As Single load=InputBox(“请输入一个数：”) fee=Wei(loaD) Print fee End Sub（分数：2.00）A.10B.20C.30D.4029
13、.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer，n As Integer For i=0 To 50 i=i+3 n=n+1 If i10 Then Exit For Next Text1Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。（分数：2.00）A.2B.3C.4D.530.以下叙述中，正确的是_。（分数：2.00）A.窗体的 Name 属性指定窗体的名称，用来标识一个窗体B.窗体的 Nam
14、e 属性的值是显示在窗体标题栏中的文本C.可以在运行期间改变对象的 Name 属性的值D.对象的 Name 属性值可以为空31.在窗体上面画一个命令按钮，然后编写如下事件过程，运行程序，单击命令按钮，其输出结果是_。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub（分数：2.00）A.4321B.12C.34D.123432.下面程序的运行结果是_。 Dim a，i，s a=Arra
15、y(“6“，“5“，“a“，“b“，“2“，“1“) s=0 i=0 Dw While a(i)=“0“ And a(i)=“9“ s=10* s+a(i)-“0“ Print s i=i+2 Loop（分数：2.00）A.12ba56B.652C.6D.6233.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是_。（分数：2.00）A.工程资源管理器窗口B.工具箱窗口C.代码窗口D.属性窗口34.以下程序段中，循环体执行的次数是_。 i=0 ： j=1 While i=j+1 Print i； i=i+2；i=j-1 Wend（分数：2.00）A.1 次B.2 次C.3 次D.无法确认3
16、5.以下_不是队列的基本操作。（分数：2.00）A.从队尾插入一个新元素B.从队列中删除第 i 个结点C.判断一个队列是否为空D.读取对头元素的值二、B填空题/B(总题数：10，分数：20.00)36.一棵二叉树的结点数为 33，其最大的深度为U 【1】 /U，最小的深度为U 【2】 /U。（分数：2.00）填空项 1:_37.设一棵完全二叉树共有 700 个结点，则在该二叉树中有U 【3】 /U个叶子结点。（分数：2.00）填空项 1:_38.软件文档分为用户文档和系统文档，描述系统设计、实现和测试的文档属于U 【4】 /U文档。（分数：2.00）填空项 1:_39.数据库模型提供了两层映像
17、功能，内模式到模式间的映像使得数据存储结构改变时，逻辑结构不变，因而相应的应用程序也不必改变，这是数据库的U 【5】 /U独立性。（分数：2.00）填空项 1:_40.单击窗体上的命令按钮 Command1，程序的输出为U 【6】 /U。 Private Sub Command1_Click() a=“AbC“ b=“dEF“ c=UCase(a) +LCase(b) Print Asc(c) End Sub（分数：2.00）填空项 1:_41.执行下列语句后，程序的输出结果为U 【7】 /U。 x=6： y=2： z=5 Print z=x-y（分数：2.00）填空项 1:_42.在窗体 f
18、orm1 上有一个驱动器列表控件 Drivel，一个目录列表控件 Dirl，一个文件列表控件 File1，一个富文本控件 Richtexbox1。要求程序运行以后，用户可以利用。Drivel 选择不同驱动器，同时 Dirl中显示当前选中的驱动器的目录，用户利用 Dirl 选择文件所在的文件夹，在 Filel 控件中将显示当前选中的文件夹下的文件，用户选中其中某个文件(假设为文本文件)，则该文件的内容显示在控件Richtexboxl 中。补充相应的语句，使之完成所述的功能。 Private Sub Dirl_Change() U 【8】 /U End Sub Private Sub Drive1
19、_Change() U 【9】 /U End Sub Private Sub Filel _Click() Dim fname AS String IfU 【10】 /UThen fname=FilelPath & FilelFileName Else fname=FilelPath& “/“ & FilelFileName End If RichTextBox1LoadFile(fname) End Sub（分数：2.00）填空项 1:_43.以下所列程序的功能是：在窗体上有一个文本框控件，程序运行后，用户可以利用鼠标左键来拖动该文本框控件(注意：拖动时，文本框移动的距离和方向由鼠标指针移动
20、的距离和方向来确定)，按下鼠标右键则可以在文本框中显示出当前文本控件的位置。 Public yx As Integer Public yy As Integer Private Sub Form_ MouseMove(Button AS Integer，Shift As Integer，_ X As Single，Y As Single) If Button=1 Then Text1Left=U 【11】 /U Text1Top=U 【12】 /U End If End Sub Private Sub Form_ MouseDown (Button As Integer，Shift As In
21、teger，_ X As Single，Y As Single) IfU 【13】 /UThen yx=Text1Left-X yy=Text1Top-Y End If If Button=2 Then Text1Text=“X 坐标：”+Str(Text1Left)+“Y 坐标：”+Str(Text1Top) End If End Sub（分数：2.00）填空项 1:_44.Visual Basic 中有一种控件组合了文本框和列表框的特性，这种控件是U 【14】 /U。（分数：2.00）填空项 1:_45.在窗体上画一个通用对话框，其名称为 CommandDialog1，再画一个命令按钮，其
22、名称为 Command1。程序运行时，单击命令按钮，在对话框内只允许显示文本文件。将以下程序补充完整。 Private Sub Command1_Click() CommandDialog1Filter=U 【15】 /U CommandDialog1ShowOpen End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 79 答案解析(总分：90.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.当 Style 属性为_时，组合框为简单组合框。（分数：2.00）A.0B.1 C.2D.3解析：解析 Style 属性决定组合框的类型
23、和行为，它的值为 0、1 或 2。当 Style 属性为 0(默认值)时，组合框为下拉式组合框；当 Style 属性为 1 时，组合框为简单组合框；当 Style 属性为 2 时，组合框为下拉式列表框。2.定义有 5 个整数型元素的数组，正确的语句是_。（分数：2.00）A.Dim a(4)As Integer B.Option Base 1：Dim a(5)C.Dim a&(5)D.Dime a(5)As Integer解析：解析 在选项 B 中，语句 Option Base l 不能放在过程中与 Dim 语句在一起；选项 C 中，使用了多余的字符“&”；选项 D 中的关键字错误。选项 A
24、中的 4 表示最大下标的值，而起始下标默认为 o，数组包含 a(0)到 a(4)5 个元素。3.在结构化方法中，软件功能分解属于软件开发中的_阶段。（分数：2.00）A.概要设计 B.需求分析C.详细设计D.编程调试解析：解析 概要设计的任务是划分出构成系统的各物理元素以及设计出软件的结构(如确定模块及模块间的关系)。设计过程通常分为以下几步：提出可选择方案、选择合理方案、推荐最佳方案、功能分解、设计软件结构、制定测试计划，最后提交概要设计文档。软件功能分解属于概要设计阶段。本题的正确答案为选项 A。4.以下关于过程及过程参数的描述中，错误的是_。（分数：2.00）A.过程的参数可以是控件名称
25、B.用数组作为过程的参数时，使用的是“传地址”方式C.只有函数过程能够将过程中处理的信息传回到调用的程序中 D.窗体可以作为过程的参数解析：解析 Visual Basic 中的参数传递默认是“传地址”方式。通过间接访问，也可以在非函数过程中访问和处理主调过程中的变量内容，并且定义多个“传地址”的参数可以返回多个值。Visual Basic中的控件和窗体都可以作为过程的参数。5.以下数据结构中，不属于线性数据结构的是_。（分数：2.00）A.队列B.线性表C.二叉树 D.栈解析：解析 线性数据结构是指满足如下条件的非空数据结构，有且只有一个根结点，每一个结点最多有一个前驱、一个后继。队列、线性表
26、和栈同时满足这些条件，二叉树的结点可能存在两个后继，所以不是线性结构。6.关于 Visual Basic 应用程序，正确的叙述是_。（分数：2.00）A.Visual Basic 程序是以线性方式顺序执行的B.Visual Basic 程序运行时，总是等待事件被触发 C.Visual Basic 程序设计的核心是编写事件过程的程序代码D.Visual Basic 的事件可以由用户随意定义，而事件过程是系统预先设置好的解析：解析 选项 A 错误，Visual Basic 程序没有明显的起点和终点。程序的执行顺序是由用户的操作所决定的。所以 Visual Basic 程序不是以线性方式顺序执行的。
27、传统的过程语言编写的程序才是这种执行方式；选项 C 错误，Visual Basic 程序设计的核心是设计对象；选项 D 错误，事件是系统预先设置好的，事件过程才是由用户定义的。选项 B 的叙述正确。7.对于白箱(盒)测试用例的各设计准则，下列叙述中正确的是_。（分数：2.00）A.分支覆盖准则比语句覆盖准则严密 B.条件覆盖要比分支覆盖优越，因此，条件覆盖能完全满足分支覆盖C.组合条件覆盖准则既能满足分支覆盖准则，也能满足条件覆盖准则。因此，组合条件覆盖准则是一种完全测试D.上述说法都不对解析：解析 白箱(盒)测试是根据对程序内部逻辑结构的分析来选取测试用例的。白箱(盒)测试用例的设计准则有：
28、语句覆盖、分支覆盖、条件覆盖和组合条件覆盖。分支覆盖通过足够多的测试用例，使程序中的每个分支至少通过一次。分支覆盖准则比语句覆盖准则严密一些，选项 A 正确；条件覆盖通过执行足够多的测试用例，使每个判定中的每个条件都能取到两种不同的结果(“真”与“假”)。虽然条件覆盖要比分支覆盖优越，但、并不能完全满足分支覆盖，选项 B 错误；组合条件覆盖要求通过足够多的测试用例，使每个判定中各条件的各种可能组合至少出现一次，它既能满足分支覆盖准则，也能满足条件覆盖准则，但也不是完全测试，选项 C 错误。8.已知 c:/1txt 是一个非空文件，其程序代码如下。 Private Sub Command1_Cl
29、ick() Dim MaxSize，NextChar，MyChat Open“c:/1txt“For Input As#1 MaxSize=LOF(1) For NextChar=MaxSize To 1 Step-1 Seek #1，NextChar MyChar=Input(1，#1) Next NextChar Print EOF(1) Close #1 End Sub 程序运行后，单击命令按钮，其输出结果为_。（分数：2.00）A.TrueB.NullC.0D.False 解析：解析 For 循环开始执行时，由于 NextCharMaxSize，所以要执行语句 Seek #l，Next
30、Char，文件指针指向文件尾，使 EOF(1)为真，循环结束后，文件指针指向文件的开始处，故其输出结果为 False。9.当 a1、b3、c5、d4 时，执行下面一段程序后，x 的值为_。 If ab Then If cd Then x=1 Else If ac Then If bd Then x=2 Else x=3 End If Else x=6 End If End If Else x=7 End If（分数：2.00）A.1B.2 C.3D.6解析：解析 当 ab 成立时，继续执行；当 cd 不成立时，执行 else 分支；当 ac 成立时，继续执行；当 bd 成立时，则 x2，随后连
31、续跳出 4 层 end if10.以下程序运行后输出的结果是_。 For j=i To 4 GoSub s： m=m+1/n Next j Print m；n End s：n=j*(j+1) Return（分数：2.00）A.0.8，20 B.0.75，12C.1.8，20D.1.75，12解析：解析 在每次循环中，都要执行一次 GoSub 语句，其作用是在一个过程中跳到另一个子程序中执行，执行 后再返回。可以在过程中的任何地方使用 GoSub 和 Return，但是 GoSub 和与之相应的 Return语句必须放在同一个过程中。一个子程序中可以包含一个以上的 Return 语句，但是当碰到
32、第一个 Return语句时，程序就会返回到紧接在刚刚执行的 GoSub 语句之后的语句继续执行。注意：不能使用 GoSub. Return 来进入或退出 Sub 过程。s 标号处的子程序用于对 n 赋值，4 次循环 n 的值分别是2、6、12、20，而每次通过 Return 语句返回后，都把 n 的倒数累加到变量 m 上。m1/2+1/6+1/12+1/200.8，输出为 0.8、20，故选项 A 正确。11.关于实体完整性规则，正确的叙述是_。（分数：2.00）A.实体完整性规则规定关系的主码不能为空B.实体完整性规则规定关系的候选码不能为空C.实体完整性规则规定关系的主属性不能为空 D.实
33、体完整性规则规定关系的外码不能为空解析：解析 实体完整性规则规定关系的主属性不能为空，而不是候选码整体不能取空值。实体完整性保证主码是关系的各个元组的唯一标识。12.在窗体上画一个命令按钮，名称为 Commandl，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array(“北京“，“上海“，“天津“，“重庆“) Print city(1) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是_。（分数：2.00）A.空白B.错误提示C.北京D.上海 解析：解析 O
34、ption Base 0 约定了数组下标从 0 开始，city(1)则为数组的第二个元素，即显示的内容为“上海”。13.如果要改变窗体的标题，则需要设置的属性是_。（分数：2.00）A.Caption B.NameC.BackColorD.BorderStyle解析：解析 Caption 属性表示窗体的标题，Name 属性表示窗体的名称，BackColor 属性表示窗体的背景颜色， BorderStyle 属性表示窗体的边框风格。14.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是_。（分数：2.00）A.MouseDownB.MouseUpC.Load D.Click解析：解析 在
35、窗体上单击鼠标，分别触发窗体的 MouseDown、MouseUp 和 Click 事件过程，不会触发Load 事件过程。15.以下叙述中，正确的一条是_。（分数：2.00）A.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器B.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令打开菜单编辑器C.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器 D.只有当代码窗口为活动窗口时，才能打开菜单编辑器解析：解析 若某个窗体要使用菜单编辑器，在该窗体上要建立菜单或编辑已经存在的菜单，必须将该窗体设置为活动窗体，才能打开菜单编辑器。16.在数据库技术中，面向对象数据模型是一种_。（分数
36、：2.00）A.概念模型B.结构模型 C.物理模型D.形象模型解析：解析 根据数据模型的应用不同目的，模型分为概念模型和结构模型。概念模型是按用户的观点对数据和信息建模，结构模型是按计算机系统观点对数据建模。数据模型按数据结构分为层次模型、网状模型、关系模型和面向对象数据模型。17.软件工程包括软件开发技术和软件工程管理。属于软件工程管理内容的是_。（分数：2.00）A.软件工具B.软件工程环境C.开发方法D.软件工程经济学 解析：解析 本题的考点是软件工程管理的内容。软件工程包括软件开发技术和软件工程管理。软件开发技术包括软件开发方法学、软件工程和软件工程环境，而软件工程管理则包括软件管理和
37、软件工程经济学。18.为取名为 MenuColor 的菜单项添加标记的语句是_。（分数：2.00）A.MenuColor，PopupTrue B.MenuColoEnabledTrueC.MenuColoVisibleTrueD.MenuColoCheckedTrue 解析：菜单控制的 Checked 属性用于将复选标记放到菜单项的左侧，以便表示菜单项的开/关状态。通过设置 Checked 属性，可以添加或者删除复选标记。如果 Checked 属性设置为 True，则含有复选标记，否则没有复选标记。19.软件测试的内容包括： 、有效性测试 、集成测试 、验收测试 、系统测试 、单元测试 正确的
38、测试顺序是_。（分数：2.00）A.、B.、C.、D.、 解析：解析 本题的考点是软件测试的顺序。软件系统的开发过程是一个自顶向下、逐步细化的过程，而测试过程是以相反顺序进行的集成过程。软件测试的顺序是单元测试、集成测试、有效性测试、系统测试和验收测试。20.假定有一个菜单项取名为 Menuhem，为了在运行时使该菜单项失效(变灰)，应使用的语句是_。（分数：2.00）A.MenuIteEnabled=False B.MenuIteEnabledTrueC.MenuIteVisibleTrueD.MenuIteVisibleFalse解析：解析 Enabled 属性代表对象在程序运行阶段是否有
39、效，如果无效，则会变灰，但在程序代码设计完毕后，程序运行之前是显示不出来的。21.菜单编辑器窗口有 3 个区域，下列不属于菜单编辑器的是_。（分数：2.00）A.菜单项属性区B.菜单项显示区C.菜单在线演示区 D.菜单编辑区解析：解析 利用 Visual Basic 提供的“菜单编辑器”可以非常方便地在应用程序的窗体上建立菜单。菜单编辑器窗口有 3 个区域，即菜单项属性区、菜单编辑区和菜单项显示区。22.确定复选框是否选中，应该访问的属性是_。（分数：2.00）A.StyleB.Value C.SelectedD.Checked解析：解析 复选框没有 Selected 和 Checked 属性
40、。Style 属性决定复选框的外观。确定复选框是否选中，应该访问的属性是 Value 属性。23.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 30 Then m=m+n/3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.15B.18C.21 D.24解析：解析 n 从 1 到 20，循环共执行 20 次，当 n21 时，循环条件不成立，循环结束，最后输出 n 的值为 21。因此，选项
41、C 正确。24.在窗体上画 3 个单选按钮，组成一个名为 chkOption 的控件数组。用于标识各个控件数组元素的参数是_。（分数：2.00）A.TagB.Index C.ListIndexD.Name解析：解析 控件数组由一组相同类型的控件组成，它们拥有相同的控件名字，具有相同的属性设置。数组中每个控件都有唯一的下标，被称为索引号。控件数组元素的引用也是把数组名和括号中的下标相结合。控件数组元素的下标由 Index 属性指定，为了区分各元素，系统会在调用发生时把下标值传送给过程，指明到底触发了哪一个控件从而导致事件的发生。因此应选 B。25.在包含 1000 个元素的线性表中实现如下各运算
42、，_所需的执行时间最长。（分数：2.00）A.线性表按顺序方式存储，在线性表的第 10 个结点后面插入一个新结点 B.线性表按链接方式存储，在线性表的第 10 个结点后面插入一个新结点C.线性表按顺序方式存储，删除线性表的第 990 个结点D.线性表按链接方式存储，删除指针 P 所指向的结点解析：解析 本题考查点是线性表的基本操作。 选项 A：线性表按顺序方式存储，在线性表的第 10 个结点后面插入一个新结点，需要将第 11 个元素到第 1000 个元素依次向后移动一个位置，然后在第 11 个元素位置处插入新结点，因此要移动 990 个元素，插入一个元素。 选项 B：线性表按链接方式存储，在线
43、性表的第 10 个结点后面插入一个新结点，只需要修改新结点的指针域和第 10 个结点的指针域就可以实现，无须移动元素。 选项 C：线性表按顺序方式存储，删除线性表的第 990 个结点，需要将第 991 个元素到第 1000 个元素依次向前移动一个位置，因此要移动 10 个元素。 选项 D：线性表按链接方式存储，删除指针 P 所指向的结点，只需要修改指针 P 所指向的指针域就可以实现，无须移动元素。 因此，选项A 所需的执行时间最长。26.下列叙述中，错误的是_。（分数：2.00）A.一种数据的逻辑结构可以有多种存储结构B.数据的存储结构与数据处理的效率无关 C.数据的存储结构与数据处理的效率密
44、切相关D.数据的存储结构在计算机中所占的空间不一定是连续的解析：解析 一种数据的逻辑结构根据需要可以表示成多种存储结构，常用的存储结构有顺序、链接、索引等，选项 A 和选项 D 正确。采用不同的存储结构，其数据处理的效率不同，因此，在处理数据时选择合适的存储结构很重要，选项 C 正确，选项 B 错误，应为本题正确答案。27.以下程序运行后输出的结果是_。 Private Sub Form _Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub（分数：2.00）A.10B.15 C.80D.100解析：解析 程序中的 For 循
45、环结构中的循环体要执行 15 次，循环控制变量的值从 1 变到 15。循环体的作用是计算每次循环变量除以 3 余数的累加和，余数按循环顺序依次排列为 1、2、0、1、2、0、显然，每循环 3 次，累加和增加 3。由于共循环 15 次，所以累加和从 0 增加到 15。28.运行以下程序时，由键盘为变量 load 输入的数据为 20，输出结果为_。 Private Function Wei(load As Integer)，Money As Single If load20 Then Money=load/2 Else Money=20+load End if Wei=Money End Func
46、tion Private Sub Form _Click() Dim load As Integer，fee As Single load=InputBox(“请输入一个数：”) fee=Wei(loaD) Print fee End Sub（分数：2.00）A.10B.20C.30D.40 解析：解析 本题的程序中调用通用函数过程，当进行虚实结合后，变量 load 的值为 20。当执行 Wei函数时，首先判断条件 load20 为假，执行语句 Money20+load，使 Money 的值为 40，接着执行语句WeiMoney，使函数名的值为 40，执行到语句 End Function 则返
47、回到调用它的事件过程，将函数值赋给变量 fee，最后输出变量 fee 的值 40。29.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer，n As Integer For i=0 To 50 i=i+3 n=n+1 If i10 Then Exit For Next Text1Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。（分数：2.00）A.2B.3 C.4D.5解析：解析 程序中执行循环的情况如下。 第一次循环：i=i+30+33，nn+10+11，
