| 1.以下关于数据的逻辑结构的叙述中，哪一条是不正确的？ A、数据的逻辑结构是数据间关系的描述 B、数据的逻辑结构抽象地反映数据元素间的逻辑关系 C、数据逻辑结构具体的反映数据在计算机中的存储方式 D、数据的逻辑结构分为线性结构和非线性结构 |
| A B C D |
| 2.以下哪一个不是队列的基本运算？ A、从队尾插入一个新元素 B、从队列中删除第I个元素 C、判断一个队列是否为空 D、读取队头元素的值 |
| A B C D |
| 3.二叉树的先序遍历和中序遍历如下： 先序遍历：ABDFHCEGI 中序遍历：BFHDAEIGC 该二叉树根的右子树的根是____。 A、N B、F C、E D、C |
| A B C D |
| 4.已知一个有序表（13，20，25，37，48，58，61，78，83，90，101），当二分查找值48的元素时，____次比较后查找成功。 A、1 B、2 C、3 D、4 |
| A B C D |
| 5.面向对象的概念方法是____。 A、用来请求对象执行某些操作。 B、描述对象动态特征的一个操作序列。 C、描述对象静态特性的一个数据项。 D、描述对象动态或者静态特征的某个项目。 |
| A B C D |
| 6.Object-orientde翻译成哪一个术语更为确切？ 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.在关系代数中，从两个关系的笛卡尔积中，选取他们属性间满足一定条件的元组的操作，称为 A、投影 B、选择 C、自然连接 D、θ连接 |
| A B C D |
| 11.以下能正确定义数据类型TelBook的代码是 A、Type TelBook Name As String*10 TelNum As Integer End Type B、Type TelBook Name As String*10 TelNum As Integer End TelBook C、Type TelBook Name String*10 TelNum Integer End Type TelBook D、Type TelBook Name String*10 TelNum Integer End Type |
| A B C D |
| 12.设窗体上有一个列表框控件List1，且其中有若干列表项，则以下能表示当前被选中的列表项内容的是 A、List1.list B、List1.listIndex C、List1.Intdex D、List1.Text |
| A B C D |
| 13.设a=10,b=5,c=1,执行语句Print a>b>c后，窗体上显示的是 A、True B、False C、1 D、出错信息 |
| A B C D |
| 14.以下能判断是否到达文件尾的函数是 A、BOF B、LOG C、LOF D、EOF |
| A B C D |
| 15.窗体的MouseDown事件过程 Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) 有4个参数，关于这此参数，正确的描述是 A、通过Button参数判定当前按下的是哪一个鼠标键 B、Shift参数只能用来确定是否按下Shift C、Shift参数只能用来确定是否按下Alt和Ctrl键 D、参数x,y用来设置鼠标当前位置的坐标 |
| A B C D |
| 16.以下关于焦点的叙述中，错误的是 A、如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据 B、当文本框失去焦点时，触发LostFocus事件 C、当文本框的Enabled属性为False时，其Tab顺序不起作用 D、可以用TabIndex属性改变Tab顺序 |
| A B C D |
| 17.执行语句Open"Tel.dat"For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是 A、只能写，不能读 B、只能读，不能写 C、既可以读，也可以写 D、不能读，有能写 |
| A B C D |
| 18.设有以下循环结构 Do 循环体 Loop While<条件> 则以下叙述中错误的是 A、若“条件”是一个为0的常数，则一次也不执行循环体 B、“条件”可以是关系表达式、逻辑表达式或常数 C、循环体中可以使用Exit Do 语句 D、如果“条件”总是为True，则不停地执行循环体 |
| A B C D |
| 19.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a<=0 Print s;a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 A、7 9 B、34 0 C、9 7 D、死循环 |
| A B C D |
| 20.设有如下通用过程： Public Sub Fun(a(),ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5) As Variant For i=1 To 5 arr(i)=i Next n=10 Call Fun(arr(),n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是 A、10 B、15 C、25 D、24 |
| A B C D |
| 21.在窗体上画两个滚动条，名称分别为Hscroll1、hscroll2；六个标签，名称分别为 Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4~Label6分别显示 “A”“B”“A＊B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值， Label3显示“A＊B”的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当 单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示 在Label3中。以下不能实现上述功能的事件过程是： A)、Private Sub Command1_Click() Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)) End Sub B)、Private Sub Command1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value End Sub C)、Private Sub Command1_Click() Label3.Caption=HScroll1*HScroll2 End Sub D)、Private Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text End Sub |
| A B C D |
| 22.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 3<>0 then m=m+n“3 Next n print n End sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 A、15 B、18 C、21 D、24 |
| A B C D |
| 23.在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Lord() Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) |
| A B C D |
| 24.设有如下程序： Private Sub Command1_Click() Dim sum As Double,X As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是 A、1+1/2+2/3+3/4+4/5 B、1+1/2+2/3+3/4 C、1/2+2/3+3/4+4/5 D、1+1/2+1/3+1/4+1/5 |
| A B C D |
| 25.以下有关数组定义的语句序列中，错误的是 A、Static arr1(3) arr(1)=100 arr(2)="Hello" arr(3)=123.45 B、Dim arr2() As Integer Dim size As Integer Private Sub Command2_Click() size=InputBox("输入：") ReDim arr2(size) ...... End Sub C、Option Base 1 Private Sub Command3_Click() Dim arr3() As Integer ...... End Sub D、Dim n As Integer Private Sub Command4_Click() Dim arr4(n) As Integer ...... End Sub |
| A B C D |
| 26.以下不能在“工程资源管理器”窗口中列出的文件类型是 A、.bas B、.res C、.frm D、.ocx |
| A B C D |
| 27.以下关于窗体的描述中，错误的是 A、执行Unload Form1语句后，窗体Form1消失，但仍在内存中 B、窗体的Load事件在加载窗体时发生 C、当窗体的Enabled属生为False时通过鼠标和键盘对窗体的操作都被禁止 D、窗体的Height、Width属于用于设置窗体的高和宽 |
| A B C D |
| 28.下列可作为Visual Basic变量名的是 A、A#A B、4A C、?xy D、constA |
| A B C D |
| 29.设有如下的记录类型 Type Student number As String name As String age As Integer End Type 则正确引用该记录类型变量的代码是 A、Student.name ="张红" B、Dim s As Student s.name ="张红" C、Dim s As Type Student s.name ="张红" D、Dim s As Type s.name ="张红" |
| A B C D |
| 30.函数String(n,"str")的功能是 A、把数值型数据转换为字符串 B、返回由n个字符组成的字符串 C、从字符串中取出n个字符 D、从字符串中第n个字符的位置开始取子字符串 |
| A B C D |
| 31.将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是 A)Cos(a+b)^2+5*exp(2) B)Cos^2(a+b)+5*exp(2) C)Cos(a+b)^2+5*ln(2) D)Cos^2(a+b)+5*ln(2) |
| A B C D |
| 32.在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程： 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、software C、hardware D、1 |
| A B C D |
| 33.执行如下语句： a = InputBox("Today","Tomorrow","yesterday",,,"Day before yesterday",5) 将显示一个输入对话框，在对话框的输入区中显示的信息是 A、Today B、Tomorrow C、Yesterday D、Day before yesterday |
| A B C D |
| 34.表示滚动条控件取值范围最大值的属性是 A、Max B、LargeChange C、Value D、Max-Min |
| A B C D |
| 35.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是 A、Private Sub List1_Click() Label1.Caption = List1.ListIndex End Sub B、Private Sub List1_Click() Label1.name = List1.ListIndex End Sub C、Private Sub List1_Click() Label1.name = List1.text End Sub D、Private Sub List1_Click() Label1.Caption = List1.text End Sub |
| A B C D |
| 二、填空题（每空2分，共计30分） | |
| 1.数据结构是一门研究非数值计算的程序设计问题中计算机的____以及它们之间的关系和运算等的学科。 | |
| 输入答案，中间不含空格: | |
| 2.排序方法中，从未排序序列中挑选元素，并将其依次放入已排序序列（初始时为空）的一端的方法，称为____。 | |
| 输入答案，中间不含空格: | |
| 3.需求分析阶段的最后成果是____，是软件开发中的重要文档之一。 | |
| 输入答案，中间不含空格: | |
| 4.每个实体有若干特性，每一个特性称为____。 | |
| 输入答案，中间不含空格: | |
| 5.关系代数运算中，传统的集合运算有____、并、交和差。 | |
| 输入答案，中间不含空格: | |
| 6.执行下面的程序段后，i的值为______，s的值为______。 s=2 For i=3.2 To 4.9 Step 0.8 s=s+1 Next i |
| 输入答案，中间不含空格: |
| 7.上一题 |
| 输入答案，中间不含空格: |
| 8.把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 程序运行后，如果直接按键盘上的“A”键（即不按住Shift键），则在窗体上输出的字符分别是_____和_____。 |
| 输入答案，中间不含空格: |
| 9.上一题 |
| 输入答案，中间不含空格: |
| 10.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、 Label1和Command1，然后编写如下两个事件过程： Private Sub Command1_Click() S$=InputBox("请输入一个字符串") Text1.text=S$ End Sub Private Sub Text1_Change() Label1.Caption=UCase(Mid(Text1.Text,7) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串 “VisualBAsic”,则在标签中显示的内容是_____。 |
| 输入答案，中间不含空格: |
| 11. 在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1 和Label1，通过属性窗口把列表框中的项目显示为：“第一个项目”“第二个项目” “第三个项目”“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命 令按钮，即可将所选择的项目删除，并在标签中显示列表框中当前的项目数，运行情况 如图所示（选择“第三个项目”的情况）。下面时实现上述功能的程序，请填空。 Private Sub Command1_Click() If List1.ListIndex>=____Then List1.RemoveItem____ Label1.Caption = ____ Else MsgBox "请选择要删除的项目" End If End Sub |
| 输入答案，中间不含空格: |
| 12.上一题 |
| 输入答案，中间不含空格: |
| 13.上一题 |
| 输入答案，中间不含空格: |
| 14.以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并 在文本框Text1中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text="" Open".“smtext1.txt"_____As#1 Do While_____ Input #1,inData Text1.Text=Text1.Text & inData Loop Close #1 End Sub |
| 输入答案，中间不含空格: |
| 15.上一题 |
| 输入答案，中间不含空格: |