| 一、选择题（每题2分，共计70分） |
| 1.数据结构____。 A、用于描述系统的动态特性 B、描述系统的静态特性 C、是一组规则 D、描述数据之间的联系 |
| A B C D |
| 2.设有栈S和队列Q，其状态为空，元素a1，a2，a3，a4，a5，a6依次入栈，出栈的元素则进入队列Q，若6个元素出列的顺序是a2，a3，a4，a6，a5，a1，则栈的容量至少是____。 A、6 B、4 C、3 D、2 |
| A B C D |
| 3.设树T的度为4，其中度为1，2，3，4的结点个数分别为4，2，1，1。则T是的叶子结点个数为 A、8 B、7 C、6 D、5 |
| A B C D |
| 4.排序的重要目的是为了以后对已排序的数据元素进行____。 A、打印输出 B、分类 C、查找 D、合并 |
| A B C D |
| 5.下列关于结构化设计原则的描述，错误的是 A、在块和进程的非正常出口处往往需要调用GOTO语句，使用GOTO语句使程序执行效率提高， 但是滥用GOTO语句确实有害，应该避免使用GOTO语句。 B、程序设计时应该自顶向下，逐步求精。 C、程序设计时，应该将复杂问题进行模块化，就是将程序设计的总目标分解为若干个分目 标，再进一步分解为具体的小目标。 D、在进行程序设计时，应该尽量在一行书写一条语句，尽量做到效率第一，清晰第二。 |
| A B C D |
| 6.下面不属于软件工程的三个要素的是 A、工具 B、过程 C、方法 D、环境 |
| A B C D |
| 7.成功的测试是指 A、运行测试实例后未发现错误 B、发现程序的错误 C、证明程序正确 D、软件产生 |
| A B C D |
| 8.在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统联合体。 其中数据独立性最高的阶段是 A、数据库系统 B、文件系统 C、人工管理 D、数据项管理 |
| A B C D |
| 9.在关系数据库系统中，当关系的模型改变时，用户程序也可以不变，这是 A、数据的物理独立性 B、数据的逻辑独立性 C、数据的位置独立性 D、数据的存储独立性 |
| A B C D |
| 10.将E-R图转换成关系模式时，实体与联系都可以表示成 A、属性 B、关系 C、键 D、域 |
| A B C D |
| 11.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() 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 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是 A、3 B、4 C、5 D、6 |
| A B C D |
| 12.在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组 元素的参数是 A、Tag B、Index C、ListIndex D、Name |
| A B C D |
| 13.假定有以下函数过程： Function Fun(S As String)As String Dim s1 As String For i = 1 To Len(S) s1 = UCase(Mid(S,i,1))+s1 Next i Fun = s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String, Str2 As String Str1 = InputBox("请输入一个字符串") Str2 = Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"，则单击“确定” 按钮后在窗体上的输出结果为 A、abcdefg B、ABCDEFG C、gfedcba D、GFEDCBA |
| A B C D |
| 14.以下叙述中错误的是 A、用Shell函数可以调用能够在Windows下运行的应用程序 B、用Shell函数可以调用可执行文件，也可以调用Visual Basic的内部函数 C、调用Shell函数的格式应为：<变量名>=Shell(……) D、用Shell函数不能执行DOS命令 |
| A B C D |
| 15.在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(keyascii as integer) …… End Sub 若焦点位于文本框中，则能够触发KeyPress事件的操作是 A、单击鼠标 B、双击文本框 C、鼠标滑过文本框 D、按下键盘上的某个键 |
| A B C D |
| 16.假定有如下事件过程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 then PopupMenu popForm End If End Sub 则以下描述中错误的是 A、该过程的功能是弹出一个菜单 B、popForm是在菜单编辑器中定义的弹出式菜单的名称 C、参数X、Y指明鼠标的当前位置 D、Button = 2 表示按下的是鼠标左键 |
| A B C D |
| 17.在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为label1、Label2的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click() X = 5 : Y=3 Call proc(X,Y) Label1.Caption = X Label2.Caption = Y End Sub Private Sub proc(ByVal a As Integer, ByVal b As Integer) |
| A B C D |
| 18.在窗体上画一个名称为Command1命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码： Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 z = n + z y = y + z x = x + z Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是 A、10 10 10 B、30 30 30 C、30 30 10 D、10 30 30 |
| A B C D |
| 19.在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称 为Filel的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和“共有文件” 的标签。编写程序，使得驱动器列表框与目录列表框与文件列表框同步变化，并且在标签 Label1中显示当前文件夹中文件的数量。如图所示。 能够正确实现上述功能的程序是 A)Private Sub Dirl_Change() File1.Path=Dirl.path End Sub Private Sub Drive1_Change() Dirl.Path=Drive1.Drive Label1.Caption=File1.ListCount End Sub B)Private Sub Dirl_Change() File1.Path=Dirl.path End Sub Private Sub Drive1_Change() Dirl.Path=Drive1.Drive Label1.Caption=File1.List End Sub C)Private Sub Dirl_Change() File1.Path=Dirl.path Label1.Caption=File1.ListCount End Sub Private Sub Drive1_Change() Dirl.Path=Drive1.Drive Label1.Caption=File1.ListCount End Sub D)Private Sub Dirl_Change() File1.Path=Dirl.path Label1.Caption=File1.List End Sub Private Sub Drive1_Change() Dirl.Path=Drive1.Drive Label1.Caption=File1.List End Sub |
| A B C D |
| 20.窗体上有两名称分别为Text1、Text2的文本框，一个名称为Command1命令按钮。运行后的 窗体外观如图所示： 设有如下的类型声明 Type Person name As String*8 major As String*20 End Type 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29.dat中。设文本框中 的数据已正确地赋值给Person类型的变量p。 则能够正确地把数据写入文件的程序段是： A)Open "c:“Test29.dat"For Random As #1 Put #1,1,p Close #1 B)Open "c:“Test29.dat"For Random As #1 Get #1,1,p Close #1 C)Open "c:“Test29.dat"For Random As #1 Len=Len(p) Put #1,1,p Close #1 D)Open "c:“Test29.dat"For Random As #1 Len=Len(p) Get #1,1,p Close #1 |
| A B C D |
| 21.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 A、工程资源管理器窗口 B、工具箱窗口 C、代码窗口 D、属性窗口 |
| A B C D |
| 22.以下叙述中正确的是 A、窗体的Name属性指定窗体的名称，用来标识一个窗体 B、窗体的Name属性的值是显示在窗体标题栏中的文件 C、可以在运行期间改变对象的Name属性的值 D、对象的Name属性值可以为空 |
| A B C D |
| 23.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是 A、单选按钮 B、图片框 C、通用对话框 D、文本框 |
| A B C D |
| 24.设有如下变量声明 Dim TestDate AS Date 为变量TestDate正确赋值的表达式是 A、TestDate=#1/12002# B、TestDate=#"1/1/2002"# C、TestDate=date("1/1/2002") D、Testdate=Format("m/d/yy","1/1/2002") |
| A B C D |
| 25.设有如下声明： Dim X As Integer 如果Sgn（X）的值为-1，则X的值是 A、整数 B、大于0的整数 C、等于0的整数 D、小于0的数 |
| A B C D |
| 26.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Static X As Integer Static Y As Integer Cls Y=1 Y=Y+5 X=5+X Print X,Y End Sub 程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为 A、15 16 B、15 6 C、15 15 D、5 6 |
| A B C D |
| 27.设a=3,b=5,则以下表达式值为真的是 A、a>=b And b>10 B、(a>b) Or (b>0) C、(a<0) Eqv (b>0) D、(-3+5>a) And (b>0) |
| A B C D |
| 28.设有语句 x=InputBox("输入数值","0""示例") 程序运行后，如果从键盘上输入数值（并按回车键，则下列叙述中正确的是） A、变量X的值是数值10 B、在InputBox对话框标题栏中显示的是"示例" C、0是默认值 D、变量X值是字符串"10" |
| A B C D |
| 29.从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是 A、Left B、Mid C、String D、Instr |
| A B C D |
| 30.设a="Visual Basic"，下面使b="Basic"的语句是 A、b=Lift(a,8,12) B、b=Mid(a,8,5) C、b=Right(a,5,5) D、b=Left(a,8,5) |
| A B C D |
| 31.以下能够触发文本框Change事件的操作是 A、文本框失去焦点 B、文本框获得焦点 C、设置文本框的焦点 D、改变文本框的内容 |
| A B C D |
| 32.在窗体上有一个文本框控件，名称为为TxtTime；一个计时器控件，名称为Timer1，要求每一秒在文本框中显示一次当前的时间。程序为： Private Sub Timer1_ _____() TxtTime.text=Time End Sub 在下划线上应填入的内容是 A、Enabled B、Visble C、Interval D、Timer |
| A B C D |
| 33.在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为"宋体"和"黑体"；一个复选框，名称为Check，标题为"粗体"；一个文本框，名称为Text1，Text属性为"改变文字字体"。要求程序运行时，"宋体"单选按钮和"粗体"复选框被选中，则能够实现上述要求的语句序列是 A、Option1.Value=True Check1.Value=False B、Option1.Value=True Check1.Value=True C、Option2.Value=False Check1.Value=True D、Option1.Value=True Check1.Value=1 |
| A B C D |
| 34.为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 A、Value B、Default C、Cance1 D、Enabled |
| A B C D |
| 35.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() for I=1 To 4 For J=0 To I Print Chr$(65+I); Next J Next I End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容为是 A、BB CCC DDDD EEEEE B、A BB CCC DDDD C、B CC DDD EEEE D、AA BBB CCCC DDDDD |
| A B C D |
| 二、填空题（每空2分，共计30分） | |
| 1.设一棵完全二叉树共有700个结点，则在该二叉树中____有个叶子结点。 | |
| 输入答案，中间不含空格: | |
| 2.树最适合用来表示元素之间具有____关系的数据。 | |
| 输入答案，中间不含空格: | |
| 3.软件的面向数据流的设计方法，利用其定义的映射方法可以把数据流图变换成软件结构， 在映射中，一般将数据流分为____和事务流两种。 | |
| 输入答案，中间不含空格: | |
| 4.一般数据库系统提供模式描述语言严格地表示数据库的内容。用DDL写的一个数据集的定 义的全部语句称为____。模式是对数据库结构的一种描述，而不是数据库本身。 | |
| 输入答案，中间不含空格: | |
| 5.数据模型可分为两个级别，一个是独立于计算机系统的模型，称为概念模型；另一个是直 接面向数据库的逻辑结构，称为____模型。 | |
| 输入答案，中间不含空格: | |
| 6.Visual Basic提供的对数据文件的三种访问方式为随机访问方式、____和二进制访问方式。 |
| 输入答案，中间不含空格: |
| 7.执行下面的程序段后，变量S的值为____。 S = 5 For i = 2.6 To 4.9 Step 0.6 S = S + 1 Next i |
| 输入答案，中间不含空格: |
| 8.为了运行时把d:“pic文件夹下的图形文件a.jpg装入图片框架Picture1，所使用的语句为____。 |
| 输入答案，中间不含空格: |
| 9.计时器控件能有规律的以一定时间间隔触发____事件，并执行该事件过程中的程序代码。 |
| 输入答案，中间不含空格: |
| 10.设有如下程序 Private Sub Form_Click() Dim a As Integer, b As Integer a = 20 :b = 50 P1 a, b p2 a, b p3 a, b Print "a=";a,"b=";b End Sub Sub p1(x As Integer, ByVal y As Integer) |
| 输入答案，中间不含空格: |
| 11.上一题 |
| 输入答案，中间不含空格: |
| 12. 在窗体上画一个名称为Combo1的组合框，画两个名称分别为Label1和Label2及Caption属 性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车 键（ASCII码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列 表中，并在Label2中给提示“成功添加输入项”如图所示： 如果存在，则在Label2中给出提示“输入项已在组合框中”。请将程序补充完整。 |
| 输入答案，中间不含空格: |
| 13.上一题 |
| 输入答案，中间不含空格: |
| 14.上一题 |
| 输入答案，中间不含空格: |
| 15.设有如下程序 Private Sub search(a()As Variant, ByVal 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 = Array(1,3,5,7,9,11,13,15) Call search(b,11,n) Print n End sub 程序运行后，输出结果是____。 |
| 输入答案，中间不含空格: |