1、二级 VISUAL+BASIC-87 及答案解析(总分：102.00，做题时间：90 分钟)一、选择题(总题数：35，分数：69.00)1.设在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。要求单击 Command 按钮时可把光标移到文本框中。下面正确的事件过程是_。（分数：2.50）A.Private Sub Command1_Click()Text1.GotFocusEnd SubB.Private SubCommand1.GotFocusEnd SubC.Private Sub Command1_Click()Text1.SetFocusEnd Su
2、bD.Private SubCommand1.SetFocusEnd Sub2.窗体上有名称为 Text1、Text2 的两个文本框，和一个由 3 个单选按钮构成的控件数组 Optionl，如图1 所示。程序运行后，如果单击某个单选按钮，则执行 Text1 中数值与该单选按钮所对应的运算(乘 1、乘10 或乘 100)，并将结果显示在 Text2 中，如图 2 所示。为了实现上述功能，在程序中的横线处应填入的内容是 _ （分数：2.00）A.Optionl.IndexB.IndexC.Optionl(Index)D.Optionl(Index).Value3.设 a 是整型变量，与函数 IIf
3、(a0, -a, a)有相同结果的代数式是_。（分数：2.50）A.|a|B.-|a|CaD.-a4.窗体上有一个名称为 Picture1 的图片框控件，一个名称为 Label1 的标签控件，如图所示。 （分数：1.00）A.程序运行时会出错B.单击图片框，在图片框中显示一幅图片C.过程中的 x 是控件变量D.单击标签，在标签中显示一串文字5.下窗体上有名称为 Command1 的命令按钮和名称为 Text1 的文本框 Private Sub Command1_Click() Text1.Text=“程序设计“ Text1.SetFocus End Sub Private Sub Text1_
4、GotFocus() Text1.Text=“等级考试“ End sub 运行以上程序，单击命令按钮后_。（分数：2.50）A.文本框中显示的是“程序设计”，且焦点在文本框中B.文本框中显示的是“等级考试”，且焦点在文本框中C.文本框中显示的是“程序设计”，且焦点在命令按钮上D.文本框中显示的是“等级考试”，且焦点在命令按钮上6.以下关于菜单的叙述中，错误的是_。（分数：1.00）A.当窗体为活动窗体时，用 Ctrl+E 键可以打开菜单编辑器B.把菜单项的 Enabled 属性设置为 False，则可删除该菜单项C.弹出式菜单在菜单编辑器中设计D.程序运行时，利用控件数组可以实现菜单项的增加或
5、减少7.一个工程文件中含有窗体 Form1、Form2 和标准模块 Model1。如果 Form1 的声明部分有语句 Private x As Integer，且 Model1 中有语句 Public y As Integer，则下列说法中，正确的是_。（分数：2.50）A.变量 x、y 的作用域相同B.变量 x 的作用域是 Form1C.变量 y 的作用域是 Model1D.在 Form2 中可以直接使用 x 和 y8.设有如下程序： Private Sub Inv(ByVal xStr As String, yStr As String) Dim tStr As String Dim L
6、As Integer L=Len(xStr) Do While L=1 tStr=tStr+Mid(xStr, L, 1):L=L-1 Loop yStr=tStr End Sub Private Sub Form_Click() Dim S1 As String, S2 As String S1=“abcdef“ Inv S1, S2 Print S2 End Sub 运行程序，单击窗体，输出结果为（分数：2.00）A.abcdefB.afbecdC.fedcbaD.defabc9.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后输写如下程序： Pr
7、ivate Sub Commandl_Click( ) Dim x,y,z As Integer x=5 y=7 z=0 Text1.Text=“ Call Fun1(x,y,z) Text1.Text=Str(z) End Sub Sub Fun1(ByVal a As Integer,ByVal b As Integer,c As Integer) c=a+b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是（分数：2.50）A.0B.12C.Str(z)D.没有显示10.编写如下程序： Private Sub Command1_Click() Dim a(10) A
8、s String s=“123456“ n=Len(s) For k=1 To n a(k)=Mid(s, k, 1) Next k For i=1 To n/2 t=ai a(i)=a(n-i+1) a(n-i+1)=t Next i For k=1 To n Print a(k); Next k End Sub 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.50）A.654321B.123456C.654123D.12365411.滚动条控件中，用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是 _。（分数：1.00）A.MaxB.ValueC.LargeChangeD
9、.SmallChange12.设工程中有 Form1、Form2 两个窗体，要求单击 Form2 上的 Command1 命令按钮，Form2 就可以从屏幕上消失，下面的事件过程中不能实现此功能的是（分数：2.50）A.Private Sub Command1_Click() Form2.Hide End SubB.Private Sub Command1_Click() Unload Me End SubC.Private Sub Command1_Click() Form2.Unload End SubD.Private Sub Command1_Click() Me.Hide End S
10、ub13.下列叙述中正确的是_。（分数：1.00）A.在栈中，栈中元素随栈底指针与栈顶指针的变化而动态变化B.在栈中，栈顶指针不变，栈中元素随栈底指针的变化而动态变化C.在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化D.以上说法都不正确14.Visual Basic 控件一般都规定一个默认属性，在引用这样的属性时，只写对象名而不必给出属性名。默认属性为 Caption 的控件是_。（分数：1.00）A.列表框(ListBox)B.标签(Label)C.文本框(TextBox)D.组合框(ComboBox)15.窗体上已有的 3 个单选按钮组成了 1 个名为 ChkOpt1 的控件数组
11、。用于区分控件数组 ChkOpt1 中每个元素的属性是_。（分数：1.00）A.CaptionB.ListCountC.ListIndexD.Index16.下列各组排序法中，最坏情况下比较次数相同的是_。（分数：1.00）A.希尔排序与堆排序B.简单插入排序与希尔排序C.简单选择排序与堆排序D.冒泡排序与快速排序17.对于循环队列，下列叙述中正确的是_。（分数：2.50）A.队头指针是固定不变的B.队头指针一定大于队尾指针C.队头指针一定小于队尾指针D.队头指针可以大于队尾指针，也可以小于队尾指针18.把窗体的 Key Preview 属性设置为 True，然后编写如下过程： Private
12、 Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyVode As Integer, ShiftAs Integer) Print Chr(KeyCode+2) End Sub 程序运行后，如果按“A”键，则输出结果_。（分数：2.00）AABACAD.AA B C D19.下列选项中，不属于数据模型所描述的内容的是 _ 。（分数：2.00）A.数据类型B.数据操作C.数据结构D.数据约束20.设有如下 Command1 按钮的单
13、击事件过程及 fun 过程： Private Sub Command1_Click() Dim x As Integer x=Val(InputBox(“请输入一个整数“) fun(x) End Sub Private Sub fun(x As Integer) If x Mod 2=0 Then fun(x/2) Print x; End Sub 执行上述程序，输入 6，结果是_。（分数：2.50）A.3 6B.6 3C.6D.程序死循环21.为了设置或返回磁盘驱动器的名称，应使用的属性是（分数：2.50）A.ChDriveB.DriveC.ListD.ListIndex22.以下关于 VB
14、 的叙述中，错误的是（分数：2.50）A.VB 采用事件驱动方式运行B.VB 既能以解释方式运行，也能以编译方式运行C.VB 程序代码中，过程的书写顺序与执行顺序无关D.VB 中一个对象对应一个事件23.Mid(“HelloEveryone“，7,3)的执行结果是 _ 。（分数：2.00）A.ongB.everyC.EveD.one24.假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是_。（分数：2.50）A.只保存窗体模块文件B.分别保存窗体模块、标准模块和工程文件C.只保存窗体模块和标准模块文件D.只保存工程文件25.下面描
15、述中不属于软件需求分析阶段任务的是_。（分数：2.50）A.撰写软件需求规格说明书B.软件的总体结构设计C.软件的需求分析D.软件的需求评审26.下列对于线性链表的描述中正确的是_。（分数：2.50）A.存储空间不一定是连续，且各元素的存储顺序是任意的B.存储空间不一定是连续，且前件元素一定存储在后件元素的前面C.存储空间必须连续，且前件元素一定存储在后件元素的前面D.存储空间必须连续，且各元素的存储顺序是任意的27.下列叙述中正确的是_。（分数：2.50）A.循环队列是队列的一种链式存储结构B.循环队列是队列的一种顺序存储结构C.循环队列是非线性结构D.循环队列是一种逻辑结构28.下列叙述中
16、，正确的是（分数：1.00）A.用 E-R 图能够表示实体集间一对一的联系、一对多的联系和多对多的联系B.用 E-R 图只能表示实体集之间一对一的联系C.用 E-R 图只能表示实体集之间一对多的联系D.用 E-R 图表示的概念数据模型只能转换为关系数据模型29.以下叙述中错误的是_。（分数：2.00）A.在程序运行时，通用对话框控件是不可见的B.调用同一个通用对话框控件的不同方法(如 ShowOpen 或 ShowSave)可以打开不同的对话框窗口C.调用通用对话框控件的 ShowOpen 方法，能够直接打开在该通用对话框中指定的文件D.调用通用对话框控件的 ShowColor 方法，可以打开
17、颜色对话框窗口30.以下叙述中错误的是 _ 。（分数：2.00）A.在 KeyPress 事件过程中不能识别键盘的按下与释放B.在 KeyPress 事件过程中不能识别按Enter键C.在 KeyDown 和 KeyUp 事件过程中，将键盘输入的“A”和“a”视为相同的字母D.在 KeyDown 和 KeyUp 事件过程中，从大键盘上输入的“1”和从右侧小键盘上输入的“1”被视为不同的字符31.下面属于系统软件的是_。（分数：2.50）A.财务管理系统B.数据库管理系统C.编辑软件 WordD.杀毒软件32.在 Visual Basic 中，为表示钱款而设置的数据类型是_。（分数：2.00）A
18、.字节型B.对象型C.布尔型D.货币型33.文本框的 SerollBars 属性值为 3 一 Both，但在文本框中却看不见水平与垂直滚动条，可能的原因是 _（分数：2.00）A.文本框的 MultiLine 属性值为 FalseB.文本框的 MultiLine 属性值为 TrueC.文本框中尚未输入内容D.文本框的 Locked 属性值为 False34.下列叙述中正确的是_。（分数：1.00）A.有一个以上根结点的数据结构不一定是非线性结构B.只有一个根结点的数据结构不一定是线性结构C.循环链表是非线性结构D.双向链表是非线性结构35.下面过程定义语句可以使过程调用后不影响主调过程中的实际
19、参数的是_ 。（分数：2.00）A.Sub Com (By Val a，By Val b)B.Sub Com (a，By Val b)C.Sub Com (a，b)D.Sub Com (By Val a，b)二、填空题(总题数：13，分数：33.00)36.下面是用冒泡法将 5 个整数按升序排列，请将程序补充完整。 Sub GASR() Dim m m=Array(10，1，5，6，7) For i=0 To 3 For j= 1 If m(i) =m(j) Then 2 m(i) =m(j) m(j) =t End If Next j 3 For i=0 To 4 Print m(i) Ne
20、xt i End Sub （分数：1.00）37.运行下列程序，单击 Command1 命令按钮后，则在窗体上显示第一行和第二行的结果分别是 _ 1_ 和 _ 2_ 。 Private Sub Command1_Click() t=1:x=2:y=3:z=4 If t0 Or t=x And x y Or yz Then t=fun1(t，z) Print t Else t = fun1(x, y) Print t End If Print x Print y End Sub Function funl(ByVal x As Integer, ByVal y As Integer)As Int
21、eger Do While y 0 t=x/y x=y y = t Loop fun1 = x End Function （分数：1.00）以下程序的功能是从随机产生的 20 个 20200(含 20 和 200)的整数中，找出能够同时被 3 和 5 整除的数的最大值，并显示出来。请填空。 Option Base 1 Private Sub Command1_Click() Dim a(20) As Integer m=0 For i=1 To 20 a(i)=Int(Rnd* 1)+20 If a(i) Mod 3=0 2a(i) Mod 5=0 Then If a(i)m Then m=a
22、(i) End If Next If 3 Then Print“没有满足条件的数“ Else Print“满足条件的数是“；m End If End Sub（分数：6.00）填空项 1:_填空项 1:_填空项 1:_39.变量未赋值时，数值型变量的值为 1，字符串变量的值为 2。 （分数：4.00）40.执行下面的程序段后，S 的值为 _ 1_ 。 s=5 For i=-2.6 To 4.9 Step 0.6 s=s+1 Next i （分数：1.00）41.设在界面上放置了一个滚动条 Hscroll1 和一个标签控件 Label1，请补齐以下代码，要求每次单击滚动条两端箭头，或滚动条滑块与两
23、端箭头之间的空白区域时，滚动条的值能够反映在标签中。 Private Sub Hscroll1 1 Label1.Caption=Hscroll1 2 End Sub （分数：4.00）42.在 Select case 结构中，使用“To 表达式”来指定一个范围时，必须把 1 的值写在前面。 （分数：2.00）43.在最坏情况下，冒泡排序的时间复杂度为 _ 1_ 。 （分数：2.00）44.在关系模型中，把数据看成是二维表，每一个二维表称为一个 1。 （分数：2.00）45.在面向对象方法中，类的实例称为 1。 （分数：2.00）46.下列程序的功能是根据两直角边计算直角三角形的斜边并输出，完
24、成下列程序。 Private Sub Command1_Click() a%=InputBox(“Input LineA“) b%=InputBox(“Input LineB“) c%= 1 If c%=0Then Print“Wrong Lines!“ Else Print c% End If End Sub Private Function GetValue(ByVal a As Integer, ByVal b As Integer)As Integer If a=0 Or b=0 Then Exit Function GetValue= 2 End Function （分数：4.00）
25、47.下列程序功能是，产生 10 个 0100 的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an(10)As Integer Dim max As Integer Randomize For i %=1 To 10 an(i%)= 1 Next max=an(1) For i%=2 to 10 ifan(i%)max then max=an(i%) End If Next Print max End Sub （分数：2.00）48.下列程序的功能是：将数据 1，2，8 写入顺序文件 Num.txt 中，请补充完整。 Private
26、Sub Form_Click() Dim i As Integer Open“Num.txt“For Output As #1 For i=1 To 8 1 Next Close #1 End Sub （分数：2.00）二级 VISUAL+BASIC-87 答案解析(总分：102.00，做题时间：90 分钟)一、选择题(总题数：35，分数：69.00)1.设在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。要求单击 Command 按钮时可把光标移到文本框中。下面正确的事件过程是_。（分数：2.50）A.Private Sub Command1_Click(
27、)Text1.GotFocusEnd SubB.Private SubCommand1.GotFocusEnd SubC.Private Sub Command1_Click()Text1.SetFocusEnd Sub D.Private SubCommand1.SetFocusEnd Sub解析：解析 B 和 D 选项的语法格式是错误的。而 GotFocus 是文本框的事件，不能写成Text1.GotFocus，因此 A 是错误的。文本框得到光标的方法是 SetFocus，只有 C 是正确的，故选 C。2.窗体上有名称为 Text1、Text2 的两个文本框，和一个由 3 个单选按钮构成的
28、控件数组 Optionl，如图1 所示。程序运行后，如果单击某个单选按钮，则执行 Text1 中数值与该单选按钮所对应的运算(乘 1、乘10 或乘 100)，并将结果显示在 Text2 中，如图 2 所示。为了实现上述功能，在程序中的横线处应填入的内容是 _ （分数：2.00）A.Optionl.IndexB.Index C.Optionl(Index)D.Optionl(Index).Value解析：解析 控件数组中的控件共享同一个事件过程，相互间通过 Index 属性区别，题中单选按钮数组的单击事件中，有一个 Index 参数，单击不同的单选按钮，它取不同的值，根据其值进行不同的操作，所以
29、 Select Case 语句的表达式为 Index。3.设 a 是整型变量，与函数 IIf(a0, -a, a)有相同结果的代数式是_。（分数：2.50）A.|a|B.-|a| CaD.-a解析：解析 IIf 函数可以用来执行简单的条件判断操作，它是“IfThenElse“结构的简写版本，其格式为：result=IIf(条件，True 部分，False 部分)。其中“result”是函数的返回值，“条件”是一个逻辑表达式。当“条件”为真时，IIf 函数返回“True 部分”，否则返回“False 部分”。“True 部分”或“False 部分”可以是表达式、变量或其他函数。本题中 IIf 函
30、数的作用是如果 a0 则返回-a，否则返回 a，等价于-|a|。4.窗体上有一个名称为 Picture1 的图片框控件，一个名称为 Label1 的标签控件，如图所示。 （分数：1.00）A.程序运行时会出错 B.单击图片框，在图片框中显示一幅图片C.过程中的 x 是控件变量D.单击标签，在标签中显示一串文字解析：解析 程序中定义了一个过程 display(x as Control)，它的参数 x 是一个控件变量。当单击Picture1 控件或 Label1 控件时，都会调用 display 过程，而传入的参数分别是这两个参数的控件名，在display 过程中程序判断参数传入控件的类型，如果是
31、标签控件，就在它的标题上显示“计算机等级考试”，否则就认为是图片控件，就在图片框中加载一个图片显示出来。程序运行正常，因此 A 选项错。5.下窗体上有名称为 Command1 的命令按钮和名称为 Text1 的文本框 Private Sub Command1_Click() Text1.Text=“程序设计“ Text1.SetFocus End Sub Private Sub Text1_GotFocus() Text1.Text=“等级考试“ End sub 运行以上程序，单击命令按钮后_。（分数：2.50）A.文本框中显示的是“程序设计”，且焦点在文本框中B.文本框中显示的是“等级考试”
32、，且焦点在文本框中 C.文本框中显示的是“程序设计”，且焦点在命令按钮上D.文本框中显示的是“等级考试”，且焦点在命令按钮上解析：解析 运行程序，单击命令按钮后，执行 Command1_Click 事件过程代码，文本框 Text1 中显示“程序设计”，并且文本框 Text1 获得焦点，此时焦点在 Text1 中；当 Text1 获得焦点时就会触发它的Got_Focus 事件，执行 Got_Focus 事件过程，结果文本框 Text1 中显示“等级考试”。因此 B 选项正确。6.以下关于菜单的叙述中，错误的是_。（分数：1.00）A.当窗体为活动窗体时，用 Ctrl+E 键可以打开菜单编辑器B.
33、把菜单项的 Enabled 属性设置为 False，则可删除该菜单项 C.弹出式菜单在菜单编辑器中设计D.程序运行时，利用控件数组可以实现菜单项的增加或减少解析：解析 当菜单项的 Enabed 属性值设置为 False 时，菜单项只是变为无效项，不可用，不会删除该菜单项。故 B 选项错误。7.一个工程文件中含有窗体 Form1、Form2 和标准模块 Model1。如果 Form1 的声明部分有语句 Private x As Integer，且 Model1 中有语句 Public y As Integer，则下列说法中，正确的是_。（分数：2.50）A.变量 x、y 的作用域相同B.变量 x
34、 的作用域是 Form1 C.变量 y 的作用域是 Model1D.在 Form2 中可以直接使用 x 和 y解析：解析 Form1：Private x As Integer 声明的是私有变量 x，故它的作用域只有 Form1。8.设有如下程序： Private Sub Inv(ByVal xStr As String, yStr As String) Dim tStr As String Dim L As Integer L=Len(xStr) Do While L=1 tStr=tStr+Mid(xStr, L, 1):L=L-1 Loop yStr=tStr End Sub Privat
35、e Sub Form_Click() Dim S1 As String, S2 As String S1=“abcdef“ Inv S1, S2 Print S2 End Sub 运行程序，单击窗体，输出结果为（分数：2.00）A.abcdefB.afbecdC.fedcba D.defabc解析：解析 在 Visual Basic 中调用过程时，参数有两种传递形式：按值传递(Byval)和按址传递(Byref)，默认为按址传递。其中，当参数按址传递时，如果在引用该参数的过程中改变了形参的值，同时也就改变了传递参数时实参变量的值。本题中 Inv 的参数 xStr 是按值传递的，yStr 是按地
36、址传递的，因此在 Inv 中对 xStr 的改变不会影响实参 S1，对 yStr 的操作会影响实参 S2。过程 Inv 的作用是在每次循环中取出 S1 字符串靠后面的值连接到 tStr 中，然后将 tStr 赋值给 yStr 从而通过地址传递带回给S2，即字符串的逆序。9.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后输写如下程序： Private Sub Commandl_Click( ) Dim x,y,z As Integer x=5 y=7 z=0 Text1.Text=“ Call Fun1(x,y,z) Text1.Text=Str(z)
37、 End Sub Sub Fun1(ByVal a As Integer,ByVal b As Integer,c As Integer) c=a+b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是（分数：2.50）A.0B.12 C.Str(z)D.没有显示解析：解析 过程 Funl 的参数 c 是按地址传递的(ByRef，默认的传递方式)，而 Fun1 用语句 call Fun1(x，y，z)调用后，形参 c 的值为 12，则实参 z 的值亦为 12。10.编写如下程序： Private Sub Command1_Click() Dim a(10) As Strin
38、g s=“123456“ n=Len(s) For k=1 To n a(k)=Mid(s, k, 1) Next k For i=1 To n/2 t=ai a(i)=a(n-i+1) a(n-i+1)=t Next i For k=1 To n Print a(k); Next k End Sub 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.50）A.654321 B.123456C.654123D.123654解析：解析 本题中有三个 For 循环，但是这三个循环之间没有嵌套关系，而是顺序的关系。在第一个循环中依次取出字符串 s 中的每一个字符存入数组 a；第二个循
39、环中将数组的第一个元素和最后一个元素互换，第二个元素和倒数第二个元素互换以此类推完成数组的逆序；第三个循环输出数组元素。11.滚动条控件中，用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是 _。（分数：1.00）A.MaxB.ValueC.LargeChangeD.SmallChange 解析：解析 滚动条控件(HScroll 或者 VScroll)的属性和事件： 属性 Value 属性 Value 属性对应于滚动框在滚动条中的位置，其值介于 Min 和 Max 属性值之间。当 Value 属性值等于 Min 属性值时，滚动框位于滚动条的最左端(水平滚动条)或最顶端(垂直滚动条)：当 Val
40、ue 属性值等于 Max 属性值时，滚动框位于滚动条的最右端(水平滚动条)或最底端(垂直滚动条)。 Min 和 Max 属性 Min 属性设置滚动框位于滚动条最左端或者最顶端时 Value 属性的值。Max 属性设置滚动框位于滚动条最右端或者最底端时 Value 属性的值。 SmallChange 属性 设置鼠标单击滚动箭头时滚动框移动的大小。 LargeChange 属性 设置鼠标单击滚动箭头和滚动框之间的区域时，滚动框的移动大小。 事件 Scroll 事件 拖动滚动框时，Scroll 事件被触发。 Change 事件 释放滚动框或者单击滚动条或滚动箭头时，Change 事件被触发。12.设
41、工程中有 Form1、Form2 两个窗体，要求单击 Form2 上的 Command1 命令按钮，Form2 就可以从屏幕上消失，下面的事件过程中不能实现此功能的是（分数：2.50）A.Private Sub Command1_Click() Form2.Hide End SubB.Private Sub Command1_Click() Unload Me End SubC.Private Sub Command1_Click() Form2.Unload End Sub D.Private Sub Command1_Click() Me.Hide End Sub解析：解析 Hide 方法
42、可以隐藏一个窗体，Me 指代当前窗体，所以语句 Form2.Hide 和 Me.Hide 均可以隐藏当前窗体 Form2；Unload 语句可以在内存中卸载一个窗体，该语句不能当作方法使用。13.下列叙述中正确的是_。（分数：1.00）A.在栈中，栈中元素随栈底指针与栈顶指针的变化而动态变化B.在栈中，栈顶指针不变，栈中元素随栈底指针的变化而动态变化C.在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化 D.以上说法都不正确解析：解析 栈是先进后出的数据结构，在整个过程中，栈底指针不变，入栈与出栈操作均由栈顶指针的变化来操作，所以选择 C。14.Visual Basic 控件一般都规定一
43、个默认属性，在引用这样的属性时，只写对象名而不必给出属性名。默认属性为 Caption 的控件是_。（分数：1.00）A.列表框(ListBox)B.标签(Label) C.文本框(TextBox)D.组合框(ComboBox)解析：解析 标签主要用来显示文本信息，它所显示的内容只能用 Caption 属性来设置或修改，Caption为标签控件的默认属性，引用时可以只写标签控件的对象名。15.窗体上已有的 3 个单选按钮组成了 1 个名为 ChkOpt1 的控件数组。用于区分控件数组 ChkOpt1 中每个元素的属性是_。（分数：1.00）A.CaptionB.ListCountC.ListI
44、ndexD.Index 解析：解析 控件数组的每个元素都有一个与之关联的下标，下标值由：Index 属性指定，控件数组的各元素就以这个属性来区分。16.下列各组排序法中，最坏情况下比较次数相同的是_。（分数：1.00）A.希尔排序与堆排序B.简单插入排序与希尔排序C.简单选择排序与堆排序D.冒泡排序与快速排序 解析：解析 对长度为 n 的线性表，下表为常用排序算法最坏情况下的比较次数。 方法 最坏情况下的比较次数 冒泡排序 O(n 2 ) 简单插入排序 O(n 2 ) 简单选择排序 O(n 2 ) 快速排序 O(n 2 ) 堆排序 O(nlog 2 n) 上表中未包括希尔排序，因为希尔排序的时
45、间效率与所取的增量序列有关，如果增量序列为：d 1 =n/2，d i+1 =d i /2，在最坏情况下，希尔排序所需要的比较次数为 O(n 1.5 )。由表格可知冒泡排序与快速排序比较次数相同，D 选项正确。17.对于循环队列，下列叙述中正确的是_。（分数：2.50）A.队头指针是固定不变的B.队头指针一定大于队尾指针C.队头指针一定小于队尾指针D.队头指针可以大于队尾指针，也可以小于队尾指针 解析：解析 循环队列的队头指针与队尾指针都不是固定的，随着入队与出队操作要进行变化。因为是循环利用的队列结构，所以对头指针有时可能大于队尾指针，有时也可能小于队尾指针，故本题答案为D。18.把窗体的 K
46、ey Preview 属性设置为 True，然后编写如下过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyVode As Integer, ShiftAs Integer) Print Chr(KeyCode+2) End Sub 程序运行后，如果按“A”键，则输出结果_。（分数：2.00）AABACA D.AA B C D解析：解析 当键盘被按下时，输出按下的键所代表的字符，即“A”；当键盘被松开的时候，
47、输出该字符后继字符的后继字符，即“C”。19.下列选项中，不属于数据模型所描述的内容的是 _ 。（分数：2.00）A.数据类型 B.数据操作C.数据结构D.数据约束解析：解析 数据模型描述的内容包含数据结构、数据操作和数据约束。20.设有如下 Command1 按钮的单击事件过程及 fun 过程： Private Sub Command1_Click() Dim x As Integer x=Val(InputBox(“请输入一个整数“) fun(x) End Sub Private Sub fun(x As Integer) If x Mod 2=0 Then fun(x/2) Print
48、x; End Sub 执行上述程序，输入 6，结果是_。（分数：2.50）A.3 6 B.6 3C.6D.程序死循环解析：解析 题目中 fun 过程是一个递归过程，它的结束条件是参数值为奇数。第一次调用，参数值为6，是偶数所再次调用 fun 过程，这次参数为 6/2=3，是奇数，不再调用自身，接着执行下一句输出参数值，即 3，然后返回第一次调用过程中执行下一句输出第一次调用参数值，即 6。因此程序会输出 3 6。21.为了设置或返回磁盘驱动器的名称，应使用的属性是（分数：2.50）A.ChDriveB.Drive C.ListD.ListIndex解析：22.以下关于 VB 的叙述中，错误的是（分数：2.50）A.VB 采用事件驱动方式运行B.VB 既能以解释方式运行，也能以编译方式运行C.VB 程序代码中，过程的书写顺序与执行顺序无关D.VB 中一个对象对应一个事件 解析：解析 Visual Basic 是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言。在设计 Visual Basic 程序的过程中可以随时以解释方式运行程序，也可在整个应用程序设计完成后，经编译生成可脱离 Visual Basic 环境而在 Windows 下直接运行的可执
