1、二级 VISUAL+BASIC-16-2 及答案解析(总分：66.00，做题时间：90 分钟)一、选择题(总题数：24，分数：39.00)1.以下关于过程及过程参数的描述中，错误的是 _ 。（分数：2.00）A.过程的参数可以是控件名称B.用数组作为过程的参数时，使用的是“传地址”方式C.只有函数过程能够将过程中处理的信息传回调用的程序中D.窗体可以作为过程的参数2.下列程序段的执行结果是_ 。 a=0 b=0 For i = -1 To -2 Step -1 For j = 1 To 2 b=b+1 Next j a=a+1 Next i Print a; b（分数：2.00）A.24B.-
2、 20C.42D.223.假定程序中有以下语句：_。 answer=MsgBox(“Stringl“,“String2“,“String3“,2) 执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则 answer 的值为：_。（分数：1.00）A.String1B.String2C.String3D.14.窗体上有一个名称为 Text1 的文本框，一个名称为 CD1 的通用对话框，一个标题为“打开文件”的命令按钮，如图所示。 （分数：2.00）A.程序没有错误，可以正确完成打开文件、读取文件中内容的操作B.执行 Open 命令时出错，因为没有指定文件的路径C.Open 语句是错误的，
3、应把语句中的 For Input 改为 For OutputD.Line Input 命令格式错5.如果要在菜单中添加一个分隔线，则应将其 Caption 属性设置为 （分数：1.00）A.B.*C. b（分数：2.00）A.24 B.- 20C.42D.22解析：3.假定程序中有以下语句：_。 answer=MsgBox(“Stringl“,“String2“,“String3“,2) 执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则 answer 的值为：_。（分数：1.00）A.String1B.String2C.String3D.1 解析：解析 MsgBox 函数：在对话框
4、中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。 返回值 常数 值 描述 vbOK 1 OK vbCancel2 Cancel vbAbort 3 Abort vbRetry 4 Retry vblgnore 5 Ignore vb Yes 6 Yes vbNo 7 No 本题单击的是“确定”按钮，及 vbOK，所以 MsgBox 返回 1。 4.窗体上有一个名称为 Text1 的文本框，一个名称为 CD1 的通用对话框，一个标题为“打开文件”的命令按钮，如图所示。 （分数：2.00）A.程序没有错误，可以正确完成打开文件、读取文件中内容的操作 B.执行 Op
5、en 命令时出错，因为没有指定文件的路径C.Open 语句是错误的，应把语句中的 For Input 改为 For OutputD.Line Input 命令格式错解析：解析 第 1 条语句中用 ShowOpen 方法显示“打开”对话框后，在对话框中选中文件，单击“打开”按钮后，CD1.FileName 属性就会返回打开文件的路径，所以用 Open 语句打开文件时，就可用CD1.FileName 指定打开文件的路径，故 B 选项说法错误。 因为第 4 条语句中要用 Line Input 从文件读取数据，故用 Open 语句打开文件时用 Input 模式打开是正确的，故 C 选项说法错误。 Li
6、ne Input 命令格式为：Line Input #文件号，变量名，题中 Line Input 语句格式正确。故 D 选项错误。本题程序无错误，能实现所说功能，故 A 选项正确。5.如果要在菜单中添加一个分隔线，则应将其 Caption 属性设置为 （分数：1.00）A.B.*C.&D.- 解析：解析 如果要在菜单中添加一个分隔线，则应将其 Caption 属性设为“-”。 C 项的连接符一般在字母前加，显示菜单时在该字母下加上一条下划线，以表示访问键。6.窗体上有一个名称为 Text1 的文本框；一个名称为 Timer1 的计时器控件，其 Interval 属性值为2000,Enabled
7、 属性值是 True。Timer1 的事件过程如下： Private Sub Timer1_Timer() Static flag As Integer If flag=0 Then flag=1 flag=-flag If flag=1 Then Text1.ForeColor=HFF“HFF为红色 Else Text1.ForeColor=HC000“HC000为绿色 End If End Sub 以下叙述中正确的是_。（分数：2.00）A.flag 的值只可能取 0 或 1B.程序有逻辑错误，Else 分支总也不能被执行C.每次执行此事件过程时，flag 的初始值均为 1D.程序执行后，
8、文本框中的文字每 2 秒改变一次颜色 解析：解析 flag 变量为静态变量；第一次执行 Timer1_Timer 事件过程，flag=-1，文本框为绿色；第二次执行 Timer1_Timer 事件过程，flag=1，文本框为红色；第三次执行 Timer1_Timer 事件过程，flag=-1，文本框为绿色；依次类推，每执行一次，文本框的颜色变换一次，时间间隔为 5 秒，所以正确答案为D) 。7.以下程序段中 Do.Loop 循环执行的次数为_。 n=5 Do if n mod 2=0 then n=n/2 else n=n*3+1 end if Loop until n=1（分数：2.00）A
9、.4B.3C.5 D.2解析：8.Visual Basic 中的模块文件的扩展名是_。（分数：1.00）AregBfrmCbas Dvbp解析：9.下列 _表达式的值是 1239。（分数：2.00）A.Len(“1234“)+5B.Val(“1234“)+5 C.Str(1234)&5D.Cstr(1234)+“5“解析：解析 Len 函数的作用是求参数字符串的长度，所以答案 A 的值是 9；Val 函数的功能是将参数字符串中的数字转换成数值，所以答案 B 的值为 1239；Str 函数的作用是把数值型参数转换为字符串型，符号也是一位，正号用空格表示，故答案 C 的值为“12345”；Cstr
10、 函数是将参数转换成字符串型，故答案 D 的值为“12345”。10.在随机文件中使用用户自定义数据类型时，要注意它的成员的要求，它的成员不能是 _ 。（分数：2.00）A.定长字符串和数组B.变长字符串和动态数组 C.货币型和日期型D.变长字符串和货币型解析：解析 用户自定义的类型中，成员可以是任何基本数据类型，也可以是用户定义的类型。但要注意的是：在记录数据类型中的元素可以是变长字符串，也可以是定长字符串，当在随机文件中使用时，必须使用定长字符串：记录类型中不能使用动态数组。11.已知数组 Dim a(1 To 10)As Integer，则下面正确调用 GetValue 函数的是 _ 。
11、 Private Function GetValue(a()As Integer)As Integer For i=1 To 10 GetValue=GetValue+a(i) Next i End Function（分数：2.00）A.S=GetValue(a(1 To 10)B.S=GetValue(A) C.S=GetValue(a(10)D.S=GetValue a解析：解析 本题考查数组作为函数参数的调用。数组作为函数参数只能进行地址传递。需要注意的是在形参数组中可以忽略维数的定义，但是不能省略圆括号，实参数组名后面可以不跟圆括号。12.下列排序方法中，最坏情况下比较次数最少的是 _
12、 。（分数：1.00）A.冒泡排序B.简单选择排序C.直接插入排序D.堆排序 解析：解析 冒泡排序、直接插入排序与简单选择排序法在最坏情况下均需要比较 n(n-1)/2 次，而堆排序在最坏情况下需要比较的次数是 nlog 2 n。13.以下叙述中错误的是 _。（分数：2.00）A.双击鼠标可以触发 DblClick 事件B.窗体或控件的事件的名称可以由编程人员确定 C.移动鼠标时，会触发 MouseMove 事件D.控件的名称可以由编程人员设定解析：解析 Visual Basic 中的事件是事先定义好的，事件名称不能由编程人员确定，但控件名称可由编程人员确定。14.编写如下程序： Privat
13、e Sub Command1_Clickf) Dim a(3，3)As Integer Dim s As Integer For i=1 To 3 For j=1 To 3 a(i，j)=i*j+i Next j Next i s=0 For i=1 To 3 s=s+a(i，4-i) Next i Print s End Sub 程序运行后，单击命令按钮 Command1，输出结果为_。（分数：1.00）A.7B.13C.16 D.20解析：解析 程序通过 For 循环为数组 a 赋值，具体值如下： a(1，1)=1+1=2，a(1，2)=2+1=3，a(1，3)=3+1=4； a(2，1)
14、=2+2=4，a(2，2)=4+2=6，a(2，3)=6+2=8； a(3，1)=3+3=6，a(3，2)=6+3=9，a(3，3)=9+3=12； 程序要计算指定数组元素的和，这几个元素是 a(1，3)，a(2，2)，a(3，1)，所以 s=4+6+6=16。15.算法的有穷性是指 _ 。（分数：2.00）A.算法程序的运行时间是有限的 B.算法程序所处理的数据量是有限的C.算法程序的长度是有限的D.算法只能被有限的用户使用解析：解析 算法的基本特征主要包括以下四个方面： 可行性：针对实际问题而设计的算法，执行后能够得到满意的结果。 确定性：算法中的每一个步骤都必须有明确的定义，不允许有模棱
15、两可的解释和多义性。 有穷性：算法必需在有限时间内做完，即算法必需能在执行有限个步骤之后终止。 拥有足够的情报：要使算法有效必需为算法提供足够的情报当算法拥有足够的情报时，此算法才最有效的；而当提供的情报不够时，算法可能无效。16.设 x 为一整型变量，且情况语句的开始为：Select Case x，则不符合语法规则的 Case 子句是_。（分数：2.00）A.Case Is20B.Case 1 To 10C.Case 0Is And IS20 D.Case 2,3,4解析：解析 Select Case 语句中表达式的形式可以是：常量或变量；若干符合条件的值用“,”隔开；表达式 1 to 表达
16、式 2；Is 关系表达式。 本题中选项 A、B 和 D 都符合语法规则。 选项 C 中 Is 关系表达式语法错误，它可以是 Is0 或 Is20，但不能是组合的 0Is And Is20，故 C选项错误。17.下列选项中，不属于模块间耦合的是（分数：2.00）A.数据耦合B.标记耦合C.异构耦合 D.公共耦合解析：解析 模块之间的耦合程度反映了模块的独立性，也反映了系统分解后的复杂程度。按照耦合程度从强到弱分别是：内容耦合、公共耦合、外部耦合、控制耦合、标记耦合、数据耦合和非直接耦合，没有异构耦合这种方式。18.要将窗体 Form1 标题设为“学习 VB”以下能正确实现该功能的语句为（分数：1
17、.00）A.Form1.Name=“学习 VB”B.Form1.Visible=“学习 VB“C.Form1.Caption=“学习 VB“ D.Form1.Show=“学习 VB“解析：解析 设置窗体(Form1)的标题值应使用 Caption 属性其代码书写为：Form1. Caption= “学习 VB“19.若要获得滚动条的当前值，可访问的属性是 _ 。（分数：2.00）A.TextB.Value C.MaxD.Min解析：解析 滚动条的 Value 指示当前滚动条值。20.表达式 Right(“Beijing“,4)的值是 _ 。（分数：2.00）A.BeijB.jing C.eij
18、iD.ijin解析：解析 Right(string,length)函数是字符串截取函数。功能是返回从字符串 string 右边取出的指定数量“length”个字符。21.以下叙述中，不正确的是_。（分数：2.00）A.在一个程序执行 End 语句后，系统自动将所有打开的文件关闭B.可以使用 Close 语句关闭一个或几个指定的文件C.使用不带语句体的 Close 语句可关闭所有文件D.执行完一个程序段的所有语句后程序自动关闭文件 解析：22.下列关于线性链表的叙述中，正确的是 _ 。（分数：1.00）A.各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致B.各数据结点的存储顺序
19、与逻辑顺序可以不一致，但它们的存储空间必须连续C.进行插入与删除时，不需要移动表中的元素 D.以上说法均不正确解析：解析 一般来说，在线性表的链式存储结构中，各数据结点的存储序号是不连续的，并且各结点在存储空间中的位置关系与逻辑关系也不一致。线性链表中数据的插入和删除都不需要移动表中的元素，只需改变结点的指针域即可。23.下列可以启动 Visual Basic 的方法是（分数：1.00）A.打开“我的电脑”，找到存放 Visual Basic 所在系统文件的硬盘及文件夹，双击“VB6exe”图标B.在 DOS 窗口中，键入 Visual Basic 的路径，执行 Visual Basic 可执
20、行文件C.利用“开始”莱单中的“程序”命令可启动 Visual BasicD.和 C) 解析：解析：启动 Visual Basic 有 4 种方式：打开“我的电脑”，找到存放 Visual Basic 所在的系统文件的硬盘及文件夹，双击“VB6exe”图标，即可进入 Visual Basic 编程环境；所以选项 A)是正确的；利用“开始”菜单 中的“程序”命令方式进入；所以选项 C)也是正确的；使用“开始”菜单中的“运行”命令，在“打开”栏中键人 VB6exe 的存放路径，单击 “确定”按钮即可；把 VB6exe 文件直接拖到桌面可建立启动 Visual Basic 的快捷方式，双击该执行文件
21、即可。24.下列叙述中正确的是 _。（分数：1.00）A.在窗体的 Form_Load 事件过程中定义的变量是全局变量B.局部变量的作用域可以超出所定义的过程C.在某个 Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程 D.在调用过程中，所有局部变量被系统初始化为 0 或空字符串解析：解析 1模块变量包括窗体变量和标准模块变量，窗体变量可以作用于该窗体的所有过程。全局变量只能在标准模块中声明，不能在过程或窗体模块中声明。 2在过程(事件过程或通用过程)内定义的变量叫做局部变量，其作用域是它所在的过程。某一过程的执行只对该过程内的变量产生作用，对其他过程
22、中相同名字的局部变量没有任何影响。因此，在不同的过程中可以定义相同名字的变量，它们之间没有任何关系。如果需要，则可以通过“过程名变量名”的形式分别引用不同过程中相同名字的变量。 3在过程中的局部变量，如果过程定义使用了 Static，则过程中的局部变量就是 Static 型的，即在每次调用过程时，局部变量的值保持不变；如果省略 Static，则局部变量就默认为“自动”的，即在每次调用过程时，局部变量被初始化为 0 或空字符串。二、填空题(总题数：15，分数：27.00)25.对于输入的 N 个数进行快速排序算法的平均时间复杂度是 _ 1_ 。 （分数：2.00）解析：O(Nlog 2 N) 解
23、析 快速排序法的关键是对线性表进行分割，以及对各分割出的子表再进行分割。对于输入的 N 个数进行排序，在最坏情况下，快速排序法需要比较的次数为 O(Nlog 2 N)。26.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下程序： Function M(x As Integer, y As Integer) M=IIf(xy, x, y) End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a=100 b=200 Print M(a, B) End Sub 程序运行后，单击命令按钮，输出
24、结果为 _ 1_ 。 （分数：2.00）解析：200 解析 该题主要考察自定义函数调用和 IIf 函数的使用。 IIf 函数格式为 IIf(expr, truepart, falsepart) 根据表达式的值，来返回两部分中的其中一个。 题目中调用 M()时，xy 所以返回值为 y，即 200。27.由一棵二叉树的前序遍历序列和 _ 1_ 可唯一确定这棵二叉树。 （分数：1.00）解析：中序遍历序列解析 由一棵二叉树的前序遍历序列和中序遍历序列可唯一确定这棵二叉树。28.用二维表的形式来表示实体之间联系的数据模型叫做 _ 1_ 。 （分数：2.00）解析：关系模型或关系 解析 以二维表的形式来
25、表示实体之间联系的数据模型是关系模型，另外还有层次模型、网状模型。 关系数据模型是以关系数学理论为基础的，在关系模型中，操作的对象和结果都是二维表，这种二维表就是关系，每一个关系都是一个二维表，无论实体本身还是实体之间的联系均用称为“关系”的一维表来表示29.算法的复杂度主要包括空间复杂度和 _ 1_ 复杂度。 （分数：1.00）解析：时间解析 算法的复杂度主要指时间复杂度和空间复杂度。30.数据库管理系统是位于用户与 _ 1_ 之间的软件系统。 （分数：1.00）解析：操作系统解析 数据库管理系统是帮助用户创建和管理数据库的应用程序的集合。因此，数据库管理系统需要操作系统的支持，为用户提供服
26、务。31.数据元素之间 1 的整体称为逻辑结构。 （分数：2.00）解析：逻辑关系32.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下事件过程： Private Sub Form_ Lead() Show Text1.Text = “ “ Text2.Text = “ “ Text2.SetFocus End Sub Private Sub Text2_ KeyDown (KeyCode As Integer, Shift As Integer) Text1.Text = Text1.Text + Chr (KeyCode - 4) End Sub 程序运行后，如
27、果在 Text2 文本框中输入 efghi，则 Text1 文本框中的内容是 1。 （分数：2.00）解析：ABCDE33.设有如下程序 Private Sub Search(a()As Variant,By Val key As Variant,index%) Dim I% For I=LBound(a) To UBound(a) If key=a(I) Then Index=I Exit Sub End If Next I Index=-1 End Sub Private Sub Form_Load() Show Dim b() As Variant Dim n As Integer b=
28、Array(1,3,5,7,9,11,13,15) Call Search(b,11,n) print n End Sub 程序运行后，输出结果是 1。 （分数：2.00）解析：534.在 3 种不同类型的组合框中，只能选择而不能输入数据的组合框是 1。 （分数：2.00）解析：下拉式列表框解析 对于组合框，当 Style 为 2 时，表示下拉式列表框。这种样式只允许从下拉列表中选择，而不能输入内容。35.在窗体上有一个列表，然后编写如下两个事件过程： Private Sub Form_Click() List1.RemoveItem 1:List1.RemoveItem 2 List1Rem
29、oveItem 3 End Sub Private Sub Form_Load() List1.AddItem“ItemA“:List1.AddItem“ItemB“P List1.AddItem“ItemC “:List1.AddItem“ItemD“ List1.AddItem“ItemE” End Sub 运行上面的程序，然后单击窗体，列表框中显示的项目是 _ 1_ 。 （分数：2.00）解析：ItemA ItemE解析 在列表框中删除项目时，“索引值”可以指定插入项在列表框中的位置，表中的项目从 0 开始计数，则题目中是删除第 2、3、4 项，列表框中显示的项目是“ItemA”和“It
30、emE”。36.在菜单中，唯一能够识别的事件是 _ 1_ 。 （分数：2.00）解析：Click 事件解析 由于我们对菜单项的操作只有单击，因此菜单项唯一识别的事件就是 Click 事件。37.在文本框中，通过 1，属性能获得当前插入点所在的位置。 （分数：2.00）解析：Selstart38.数据结构分为逻辑结构与存储结构，线性链表属于 1 。 （分数：2.00）解析：存储结构解析 数据的逻辑结构是指反映数据元素之间逻辑关系的数据结构；数据的存储结构是指数据的逻辑结构在计算机存储空间中的存放形式。在数据的存储结构中，不仅要存放各数据元素的信息，还需要存放各数据元素之间的前后件关系的信息。39.以下程序段执行后 y 的值是 _ 1_ 。 x=8.6 y=int(x+0.5) print y （分数：2.00）解析：9 解析 返回参数的整数部分，其类型和参数相同。 语法 Int(number) 必要的 number 参数是 Double 或任何有效的数值表达式。如果 number 包含 Null，则返回 Null。
