全国计算机等级考试二级笔试2005年4月真题公共基础知识和VisualBask语言程序设计

航空

游客，如果您要查看本帖隐藏内容请回复

航空

全国计算机等级考试二级笔试2005年4月真题

公共基础知识和VisualBask语言程序设计

(考试时间90分钟，满分100分)

一、选择题((1)～(35)每小题2分，共70分)
    下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
(1)数据的存储结构是指______。

A) 存储在外存中的数据
B) 数据所占的存储空间量

C) 数据在计算机中的顺序存储方式
D) 数据的逻辑结构在计算机中的表示
(2)下列关于栈的描述中错误的是______。

A) 栈是先进后出的线性表

B) 栈只能顺序存储

C) 栈具有记忆作用

D) 对栈的插入与删除操作中，不需要改变栈底指针
(3)对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是______。

A) 冒泡排序为n/2
B) 冒泡排序为n

C) 快速排序为n
D) 快速排序为n(n-1)/2
(4)对长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为______。

A) log2n
B) n/2
C) n
D) n+1
(5)下列对于线性链表的描述中正确的是______。

A) 存储空间不一定是连续，且各元素的存储顺序是任意的

B) 存储空间不一定是连续，且前件元素一定存储在后件元素的前面

C) 存储空间必须连续，且前件元素一定存储在后件元素的前面

D) 存储空间必须连续，且各元素的存储顺序是任意的
(6)下列对于软件测试的描述中正确的是______。

A) 软件测试的目的是证明程序是否正确

B) 软件测试的目的是使程序运行结果正确

C) 软件测试的目的是尽可能多地发现程序中的错误

D) 软件测试的目的是使程序符合结构化原则
(7)为了使模块尽可能独立，要求______。

A) 模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强

B) 模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱

C) 模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱

D) 模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强
(8)下列描述中正确的是______。

A) 程序就是软件

B) 软件开发不受计算机系统的限制

C) 软件既是逻辑实体，又是物理实体

D) 软件是程序、数据与相关文档的集合
(9)数据独立性是数据库技术的重要特点之一。所谓数据独立性是指______。

A) 数据与程序独立存放

B) 不同的数据被存放在不同的文件中

C) 不同的数据只能被对应的应用程序所使用

D) 以上三种说法都不对
(10)用树形结构表示实体之间联系的模型是______。

A) 关系模型
B) 网状模型
C) 层次模型
D) 以上三个都是
(11)在窗体(名称为Forml)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是______。

A) Private Sub Text1_Change()



Commandl.Caption="计算机等级考试"

End Sub

B) Private Sub Commandl_Click()



Caption=”计算机等级考试”

End Sub

C) Private Sub Forml_Click()


Text1.Caption="计算机等级考试"

End Sub

D) PrivateSubCommandl Ulick()



Text1.Text="计算机等级考试"

End Sub
(12)设a=5，b=4，c=3，d=2下列表达式的值是

3＞2*b Or a=c And b＜＞C Or c＞d

A) 1
B) True
C) False
D) 2
(13)设a="Microsoft Visual Basic"，则以下使变量b的值为“Visual Basic”的语句是

A) b=Left(a,10)
B) b=Mid(a,10)

C) b=Right(a,10)
D) b=Mid(a,11,10)
(14)假定有如下的窗体事件过程：

Private Sub Form_Click()

a$="Microsoft Visual Basic"

b$=Right(a$,5)

c$=Mid(a$,1,9)

MsgBoxa$,34,b$,c$,5

End Sub
  程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是______。

A) Microsoft Visual
B) Microsoft

C) Basic
D) 5
(15)设a="a",b="b",c="c",d="d",执行语句x=IIf((a＜B) Or(c＞D) ，"A","B")后，x的值为______。

A) "a"
B) "b"
C) "B"
D) "A"
(16)为了使命令按钮(名称为Commandl)右移200，应使用的语句是______。

A) Commandl.Move-200

B) Commandl.Move200

C) Commandl.Left=Commandl.Left+200

D) Commandl.Left=Commandl.Left-200
(17)在窗体上画一个文本框，然后编写如下事件过程：

Private Sub Form_Click()

x=InputBox("请输入一个整数")

Print x+Text1.Text

End Sub
    程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为______。

A) 123
B) 456
C) 479
D) 123456
(18)在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timerl，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：

Private Sub Commandl_Click()



Timerl.______

End Sub

Private Sub Timerl_Timer()

Text1.Text=Time

End Sub
    在下划线处应填入的内容是______。

A) Enabled=True
B) Enabled=False

C) Visible=True
D) Visible=False
(19)假定在图片框Picturel中装入了一个图形，为了清除该图形(不删除图片框)，应采用的正确方法是______。

A) 选择图片框，然后按Del键

B) 执行语句Picturel.Picture=LoadPicture("")

C) 执行语句Picturel.Picture=""

D) 选择图片框，在属性窗口中选择Picture属性条，然后按回车键
(20)在窗体上画一个名称为Listl酌列表框，一个名称为Labell的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是：______。

A) Private Sub Listl_Click()



Labell.Caption=Listl.ListIndex

End Sub

B) Private Sub Listl_Click()



Labell.Name=Listl.ListIndex

End Sub

C) Private Sub Listl_click()



Labell.Name=Listl.Text

End Sub

D) Private Sub Listl_Click()



Labell.Caption=Listl.Text

End Sub
(21)在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：

Private Sub Commandl_click()

Dim i As Integer,X As Integer

For i=1 To 6

If i=1 Then x=i



If i＜=4 Then


x=x+1


Else


x=x+2


End If

Next i

Print x

End Sub
  程序运行后，单击命令按钮，其输出结果为______。

A) 9
B) 6
C) 12
D) 15
(22)在窗体上画一个名称为Commandl命令按钮，然后编写如下事件过程：

Private Sub Commandl_click()

c="ABCD"

For n=1 To 4

Print______

Next

End Sub
  程序运行后，单击命令按钮，要求在窗体上显示如下内容

D

CD

BCD

ABCD
  则在______处填入的内容为。

A) Left(c,n)
B) Right(c,n)
C) Mid(c,n,1)
D) Mid(c,n,n)
(23)执行以下程序段

Dim i As Integer,X As Integer

x=0

For i=20 To 1 Step -2

x=x+i\5

Next

Print x
    后,x的值为______。

A) 16
B) 17
C) 18
D) 19
(24)在Visual Basic32程中，可以作为“启动对象”的程序是______。

A) 任何窗体或标准模块
B) 任何窗体或过程

C) SubMain过程或其他任何模块
D) Sub Main过程或任何窗体
(25)假定建立了一个名为Commandl的命令按钮数组，则以下说法中错误的是______。

A) 数组中每个命令按钮的名称(Name属性)均为Commandl

B) 数组中每个命令按钮的标题(Caption属性)都一样

C) 数组中所有命令按钮可以使用同一个事件过程

D) 用名称Commandl(下标)可以访问数组中的每个命令按钮
(26)把窗体的KeyPreview属性设置为Tree，然后编写如下事件过程

Private Sub Form_KeyPress(KeyAscii As Integer)



Dim ch As String



ch=Chr(KeyAscii)



KeyAscii=Asc(UCase(ch))



Print Chr(KeyAscii+2)


End Sub
    程序运行后，按键盘上的“A”键，则在窗体上显示的内容是______。

A) A
B) B
C) C
D) D
(27)在窗体上画一个命令按钮和一个文本框，名称分别为Commandl和Text1，然后编写如下程序：

Private Sub Commandl_click()



a=InputBox(“请输入日期(1～31)”)



t="旅游景点:"



& IIf(a＞0 And a＜=10,"长城","")_


& IIf(a＞10 And a＜=20,"故宫","")_


& IIf(a＞20 And a＜=31,"颐和园","")



Text1.Text=t

End Sub
    程序运行后，如果从键盘上输入16，则在文本框显示的内容是______。

A) 旅游景点：长城故宫
B) 旅游景点：长城颐和园

C) 旅游景点：颐和园
D) 旅游景点：故宫
(28)在窗体上画一个名称为Labell的标签，然后编写如下事件过程：

Private Sub Form_Click()



Dim arr(10,10)As Integer



Dim i As Integer,j As Integer



For i =2 To 4



For j=2 To 4



arr(i,j)=i*j


Next j


Next i


Labell.Caption=Str(arr(2,2)+arr(3,3))

End Sub
  程序运行后，单击窗体，在标签中显示的内容是

A) 12
B) 13
C) 14
D) 15
(29)在窗体上画一个名称为Commandl的命令按钮，然后编写如下通用过程和命令按钮的事件过程：



Private Function fun(By Val m As Integer)



If m Mod 2=0 Then



fun=2



Else



fun=1



End If

End Function

Private Sub Commandl_Click()



Dim i As Integer,s As Integer



s=0



For i=1 To 5



s=s+fun(i)



Next



Print s


End Sub
    程序运行后，单击命令按钮，在窗体上显示的是______。

A) 6
B) 7
C) 8
D) 9
(30)阅读程序：

Option Base 1

Dim arr()As Integer

Private Sub Form_Click()



Dim i As Integer,j As Integer



ReDim arr(3,2)



For i=1 To 3



For j=1 To 2




arr(i,j)=i*2+j



Next j



Next i



ReDim Preserve arr(3,4)



For j=3 To 4





arr(3,j)=j+9



Next j



Print arr(3,2)+arr(3,4)

End Sub
    程序运行后，单击窗体，输入结果为______。

A) 21
B) 13
C) 8
D) 25
(31)在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：

Option Base 1

Private Sub Commandl_Click()



Dim c AS Integer，d As Integer



d=0



c=6



x=Array(2,4,6,8,10,12)



For i=1 To 6



If x(i)＞c Then



d=d+x(i)



c=x(i)


ElSe



d=d-c



End If



Next



Print d

End Sub
    程序运行后，如果单击命令按钮，则在窗体上输出的内容为

A) 10
B) 16
C) 12
D) 20
(32)设有如下程序：

Private Sub Commandl_click()



Dim c As Integer,d As Integer



c=4



d=InputBox("请输入一个整数")



Do While d＞0





If d＞c Then



c=c+1





End If




d=InputBox("请输入一个整数")



Loop


Print c+d

End Sub
  程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、 0，则输出结果是

A) 12
B) 11
C) 10
D) 9
(33)在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：Microsoft Visual Basic Programming
  然后编写如下事件过程：

Private Sub Commandl_Click()



Open"d:\temp\outf,txt"For Ouput As #1



For i=1 To Len(Text1.Text)



c=Mid(Text1.Text,i,1)



If c＞="A"And C＜="Z"Then



Print #1,LCase(C)



End If



Next i



Close

End Sub
  程序运行后，单击命令按钮，文件outf.txt中的内容是______。

A) MVBP
B) mvbp
C) M
D) m

V
V

B
b


P
p

(34)在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：

Dim SW As Boolean

Function func(X As Integer)As Integer



If X＜20 Then



Y=X



Else



Y=20+X



End If



func=Y

End FunctiOn

Phvate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)



SW=False



End Sub



Phvate Sub Form_MouseUp(BuRon As Integer,Shin As Integer，X As Single,Y As Single)


SW=Tree



End Sub



Pdvate Sub Commandl-Click()



Dim intNum As Integer



intNum=InputBox("")



If SW Then


Print func(intNum)



End If

End Sub
  程序运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入25，则程序的执行结果为______。

A) 输出0
B) 输出25
C) 输出45
D) 无任何输出
(35)设有如下通用过程：

Public Sub Fun(a()As Integer,x As Integer)



For i=1 To 5





x=x+a(i)



Next

End Sub
  在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮。然后编写如下的事件过程：

Private Sub Commandl_Click()



Dim arr(5)As Integer,n As Integer



For i=1 To 5



arr(i)=i+i



Next



Fun arr,n



Text1.Text=Str(n)

End Sub
    程序运行后，单击命令按钮，则在文本框中显示的内容是______。

A) 30
B) 25
C) 20
D) 15
二、填空题(每空2分，共30分)
    请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。
(1)某二叉树中度为2的结点有18个，则该二叉树中有 【1】 个叶子结点。
(2)在面向对象方法中，类的实例称为 【2】 。
(3)诊断和改正程序中错误的工作通常称为 【3】 。
(4)在关系数据库中，把数据表示成二维表，每一个二维表称为 【4】 。
(5)问题处理方案的正确而完整的描述称为 【5】 。
(6)以下语句输出结果是 【6】 。

Print Int(12345.6789* 100+0.5)/100
(7)在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：

Private Sub Form_Click()



Text1.Text="VB程序设计"

End Sub

Private Sub Text1_Change()

Picturel.Print"VB Programming"

End Sub
  程序运行后，单击窗体，则在文本框中显示的内容是 【7】 ，而在图片框中显示的内容是 【8】 。
(8)阅读下面的程序：

Private Sub Form_Click()

Dim Check As Boolean,Counter As Integer

Check=True

Counter=5

Do



Do While Counter＜20


Counter=Counter+1



If Counter=10 Then



Check=False



Exit Do



End If


Loop

Loop Until Check=False

Print Counter

End Sub
    程序运行后，单击窗体，输出结果为 【9】 。
(9)设有如下程序：


Private Sub Form_Click()

Dim n As Integer，s As Integer

n=8

s=0

Do



s=s+n



n=n-1

Loop While n＞0

Print s

End Sub
  以上程序的功能是 【10】 。程序运行后，单击窗体，输出结果为 【11】 。
(10)设有如下程序：

Option Base 1

Private Sub Commandl Click()

Dim arrl


Dim Min As Integer，i As Integer

arrl=Array(12,435,76,-24,78,54,866,43)

Min=【12】

For i=2 To 8



If arrl(i)＜Min Then【13】

Next

Print"最小值是:";Min

End Sub
  以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
(11)在名称为Forml的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的

MultiLine属性设置为True，然后编写如下的事件过程：

Private Sub Form Click()



Open"d:\test\smText1.txt"For Input As #1



Do While Not【14】



Line Input #1,aspect$



whole$=whole$+aspect$+Chr$(13)+Chr$(10)



Loop



Text1.Text=whole$



Close #1



Open"d:\test\smtext2.txt"For Output As #1



Print #1,【15】



Close #1
End Sub
上述程序的功能是，把磁盘文件smText1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。

航空

全国计算机等级考试二级笔试2005年4月真题

公共基础知识和Visual Basic语言程序设计

(考试时间90分钟，满分100分)

全国计算机等级考试二级笔试2005年4月真题

公共基础知识和Visual Basic语言程序设计

参考答案及评析

一、选择题
(1)D
[评析] 数据的逻辑结构在计算机存储空间中的存放形式称为数据的存储结构(也称数据的物理结构)。
(2)B
[评析] 栈是一种特殊的线性表，这种线性表只能在固定的一端进行插入和删除操作，允许插入和删除的一端称为栈顶，另一端称为栈底。一个新元素只能从栈顶一端进入，删除时，只能删除栈顶的元素，即刚刚被插入的元素。所以栈又称先进后出表(FILO,First In Last Out)。线性表可以顺序存储，也可以链式存储，而栈是一种线性表，也可以采用链式存储结构。
(3)D
[评析] 假设线性表的长度为n，则在最坏情况下，冒泡排序需要经过n/2遍的从前往后扫描和n/2遍的从后往前扫描，需要比较次数为n(n-1)/2。快速排序法的最坏情况比较次数也是n(n-1)/2。
(4)C
[评析] 在进行顺序查找过程中，如果线性表中的第一个元素就是被查找元素，则只需做一次比较就查找成功，查找效率最高：但如果被查找的元素是线性表中的最后一个元素，或者被查找的元素根本就不在线性表中，则为了查找这个元素需要与线性表中所有的元素进行比较，这是顺序查找的最坏情况。所以对长度为。的线性表进行顺序查找，在最坏情况下需要比较n次。
(5)A
[评析] 在链式存储结构中，存储数据结构的存储空间可以不连续，各数据结点的存储顺序与数据元素之间的逻辑关系可以不一致，而数据元素之间的逻辑关系是由指针域来确定的。
(6)C
[评析] 关于软件测试的目的，Grenford J.Myers在《The Art of Software Testing》一书中给出了深刻的阐述：软件测试是为了发现错误而执行程序的过程；一个好的测试用例是指很可能找到迄今为止尚未发现的错误的用例；一个成功的测试是发现了至今尚未发现的错误的测试。整体来说，软件测试的目的就是尽可能多地发现程序中的错误。
(7)B
[评析] 模块独立性是指每个模块只完成系统要求的独立的子功能，并且与其他模块的联系最少且接口简单。耦合性与内聚性是模块独立性的两个定性标准，耦合与内聚是相互关联的。在程序结构中，各模块的内聚性越强，则耦合性越弱。一般较优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，有利于提高模块的独立性。
(8)D
[评析] 计算机软件是计算机系统中与硬件相互依存的另一部分，是包括程序、数据及相关文档的完整集合。软件具有以下特点：①软件是一种逻辑实体，而不是物理实体，具有抽象性；②软件的生产过程与硬件不同，它没有明显的制作过程；③软件在运行、使用期间不存在磨损、老化问题：④软件的开发、运行对计算机系统具有依赖性，受计算机系统的限制，这导致软件移植的问题；⑤软件复杂性高，成本昂贵；⑥软件开发涉及诸多的社会因素。
(9)D
[评析] 数据独立性是数据与程序间的互不依赖性，即数据库中数据独立于应用程序而不依赖于应用程序。也就是说，数据的逻辑结构、存储结构与存取方式的改变不会影响应用程序。选项A、B、C三种说法都是错误的。
(10)C
[评析] 层次模型是最早发展起来的数据库模型，它的基本结构是树形结构。
(11)A
[评析] 本题考的是Text控件的Change事件和Command控件的Caption属性。Change事件是在控件内容发生改变时发生，而Caption属性定义的是控件的标题。
(12)B
  评析；本题考的是关系运算符和逻辑运算符的执行顺序。当运算符不只一种时，要先处理关系运算符，然后再处理逻辑运算符。关系运算符的优先顺序是相同的，而逻辑运算符的执行顺序是：Not，And，Ou Xor， Eqv，Imp。本题中先运行关系运算，3＞2*b为False，a=c为False，b＜＞c为True，c＞d为True；然后执行 And运算，为False，再执行第一个Or，为False，最后执行第二个Or，即False Or True为True。
(13)B
[评析] Left函数返回包含字符串中从左边算起指定数量的字符。Right函数返回包含字符串中从右边算起指定数量的字符。Mid函数包含字符串中指定数量的字符，如果第二个参数省略，将返回从开始位置到尾端的所有字符。本题中Left(a,10)=MicrosofiV,Mid(a,10)=VisualBasic,Right(a,10)=isualBasic，Mid(a,11,10)=isualBasic。

(14)C
[评析] MsgBox函数的参数中，第一个作为显示在对话框中的内容，第二个用于指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等，第三个显示对话框的标题，第四个识别用来向对话框提供上下文相关帮助的帮助文件，第五个是由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。本题中第三个参数是b$，而Right(a$,5)="Basic"。所以弹出信息框中的标题为Basic。
(15)D
[评析] IIf函数是根据表达式的值，宋返回两部分中的其中之一。如果表达式的值为True，则返回第二个参数；如果值为False，则返回第三个参数。本题中a＜b为True，故表达式的值为True，所以返回“A”。
(16)C
[评析] Commandl的Move是用来把控件移动到指定的位置，Left属性是用来指定控件左边缘的位置。本题中，选项A是把控件的左边缘移到-200的位置，而选项B是把控件的左边缘移到200的位置，选项C是把控件右移200，选项D是把控件左移200。
(17)D
[评析] “+”是加号运算符，如果“+”加号两边的表达式都是String型，则“+”起连接作用。lnputBox返回的是一个字符型，而TextBox(Text1)的Text属性值也是String型。所以本题是做字符串连接，故答案是123456。
(18)A
[评析] Enabled是用来设置控件是否可用，而Visible是用来设置控件是否可见。Timer控件的Enabled属性设置为False，则Timer停止计数；设置为True，则开始计数，过程Fimerl Timer()按计时器的Interval属性值定时运行。
(19)B
[评析] 选项A的结果是删除图片框；选项B是清除图形；选项C语句错误，类型不匹配：选项D是不起任何作用。
(20)D
[评析]
List控件中Listlndex属性表示当前选中项目的索引，Text属性表示当前选中项目的内容；Label控件的Name属性表示控件的名称，Caption属性表示Label控件显示的内容。
(21)A
[评析] 本题循环6次，当i=1时，x先被赋值为1，然后再加1；当i等于2、3、4时，x都被加1；而当i等于5、6时，x都被加2。故x=1+1+1+1+1+2+2=9。
(22)B
[评析] 由显示内容可以看出，题目要求每次从右开始取n的字符，而从右开始取n的字符的语句为Right(c,n)。
(23)C
[评析]
For循环语句中；Step是表示步长，即循环计数器变化的幅度。本题中i每次减2，故要执行10次循环。而“\”是整除运算符，故当i=20时，x加4，当i等于18、16时，x都加3，当i等于14、12、10时，x都力D 2，当i等于8、6时，x加1，当i等于4、2时，x都加0。所以x=4+3+3+2+2+2+1+1=18。

(24)D
[评析] Visual Basic规定Sub Main过程是具有启动应用程序功能的启动过程，即除了窗体模块以外，应用程序还可以由Sub Main过程启动。

(25)B
[评析] 控件数组的特点：控件数组由一组相同类型的控件组成；这些控件具有相同的名称：数组中的每个控件都有惟一的索引号，即下标，下标值由Index属性指定，通过索引值来区别控件数组中的元素；控件数组可以使用同，个事件过程，只是在参数中多了一个索引号来区分。控件数组中的各个控件的标题可以不一样。

(26)C
[评析] 当把窗体的KeyPreview属性设置为True时，按键盘上的键时，就触发窗体的KeyPress事件。如果键盘上按的是“A”，则KeyAscii=97，即小写的“a”，把该字母转化为大写以后，再对Ascii码加2，则为大写的“C”。

(27)D
[评析] IIf函数是根据表达式的值，来返回两部分中的其中之一。如果表达式的值为True，则返回第二个参数；如果值为False，则返回第三个参数。本题中输入的是16，则第一个11f函数返回的是””，第二个IIf函数返回的是”故宫”，第三个IIf函数返回的是””，故结果为“旅游景点：故宫”。

(28)B
[评析] 本题中For循环语句就是对数组赋值，而arr(i,j)=i*j。故art(2,2)=2*2=4,alt(3,3)=3*3=9，两者相加为13。


(29)B
[评析] 本题中fun函数的功能是偶数时返回2，奇数时返回1。而1到5中，有三个奇数，两个偶数。所以s是三个1和两个2之和。故s=7。

(30)A
[评析] ReDim语句的功能是为动态数组变量重新分配储存空间。而Preserve的功能是当改变原有数组最末维的大小时，使用此关键字可以保持数组中原来的数据。从题目可以看出，第一个For循环是为第二维为1和 2的数组赋值，而第二个For循环是为第二维为3和4的数组赋值。而arr(3,2)=i*2+i=3*2+2=8， arr(3,4)司+9=-4+9=13，故输出结果为8+13=21。

(31)C
[评析] Array函数是为数组赋值，而Option Base l是用来设置数组下标是从1开始。本题中，由于刚开始c的值为6，故前三个数组值不大于c，执行三次d=d-c，d=-18；而后三个数组值都大于c，执行三次d二d+ x(i)，d=-18+8+10+12=12。

(32)D
[评析] Do While语句是条件为True时，执行循环体。本题中当d＞c时，执行c=c+1，即在输入对话框中输入5、6、7、8、9时执行该语句，也就是该语句被执行了5次，故c=4+1*5=9。而当在输入对话框中输入0时，循环结束，此时d=0。所以最后输出结果为9。

(33)D
[评析] 在进行文件写操作时，每执行一次Print语句，就是在文件中输入一行。故选项A、B都是错的，而 LCase函数是把大写字符转化为小写字符，故选项C也是错误的，选项D正确。

(34)D
[评析] 当鼠标指针在屏幕的某个对象上按键时，就会激发这个对象的MouseDown事件与MouseUp事件。本题中单击的是命令按钮，而不是窗体，故窗体的MouseDown事件与MouseUp事件没有被激发，所以SW为 False，因为如果定义了一个Boolean型变量，如果不对它赋值，默认就是False。所以Print func(intNum)语句没有被执行，当然也就无任何输出了。

(35)A
[评析] 参数的传送分为两种：一种是按值传送(ByVal)，一种是按地址传送(ByRef)，而ByRef是默认的传送方式。按值传送时，不影响实参的值，而按地址传送则影响实参的值。本题中的参数都是按默认方式来传送的，即按地址传送，所以调用过程Fun后n的值被改变。而在Commandl的Click事件中，数组被赋值为 2、4、6、8、10，故n=2+4+6+8+10=30。
二、填空题
(1)【1】19
[评析] 二叉树的性质3：在任意一棵二叉树中，度为0的结点(即叶子结点)总是比度为2的结点多一个。本题中度为2的结点数为18，故叶子结点数为18+1=19个。
(2)【2】对象
[评析] 将属性、操作相似的对象归为类，也就是说，类是具有共同属性、共同方法的对象的集合。所以，类是对象的抽象”它描述了属于该对象类型的所有对象的性质，而一个对象则是其对应类的一个实例。
(3)【3】程序调试
[评析] 程序调试的任务是诊断和改正程序中的错误。它与软件测试不同，软件测试是尽可能多地发现软件中的错误；先要发现软件的错误，然后借助于一定的调试工具去找出软件错误的具体位置。软件测试贯穿整个软件生命期，调试主要在开发阶段执行。
(4)【4】关系
[评析] 在关系数据库中，把数据表示成二维表，而一个二维表就是一个关系。
(5)【5】算法
[评析] 所谓算法是指解题方案的准确而完整的描述。
(6)【6】1234.68
[评析] Int函数的功能是返回参数的整数部分。本题中12345.6789*100+0.5=1234568.39，执行Int(1234568.39)后，结果为1234568，再除以100后，结果为12345.68。
(7)【7】VB程序设计
   【8】VB Programming
[评析] TextBox控件中，Text属性是用来显示文本内容的，而Change事件是在TextBox控件的Text内容发生改变时触发。本题中，单击窗体后，把“VB程序设计”赋值给文本框，同时在图片框中打印出“VB Programming”。
(8)【9】 10
[评析] Do While…Loop是先判断条件表达式的值是否为True，如果为True，则执行循环体，如果为False，则执行Loop后面的语句。Do'”Loop Until是先执行循环体，再判断条件表达式，如果表达式的值为True，则执行Loop后面的语句，如果为False，则继续执行循环体。而ExitDo则是强行退出循环。本题中，当Counter =10时，强行退出DoWhile循环，而由于此时Check二False，使得Umil的条件为Tree，结束外层循环。所以最终Counter=10。
(9)【10】求整数1～8之和
   【11】 36
[评析] Do…Loop While语句，是先执行循环体，然后再判断条件，当条件表达式为True时，继续执行循环体，当表达式为False时，退出循环。本题中先执行一次循环体，即s+8,n-1，每执行一次循环体，n就减1,当n＜=0时，则退出循环。所以当n=0时，结束循环，此时循环体执行了8次n=8+7+6+5+4+3+2+1=36。所以此程序的功能就是求整数1-8之和。
(10)【12】arrl(1)
    【13】Min=arrl(i)
[评析] 由于有Option Base 1语句，所以数组下标是从1开始。本题的功能是查找8个数中的最小值，首先使用Array语句给数组赋值，然后把第一个值赋值给最小值变量，及Min=arrl(1)，然后从第二个数开始循环与最小值比较，如果比最小值小，则把这个值赋值给Min，即Min=arrl(i)。
(11)【14】EOF(1)
    【15】Text1.Text
[评析] EOF函数是判断Random或顺序Input打开的文件是否已到结尾。本题中首先是要读出"d:\test\smText1.txt"中的内容，使用DoWhile语句宋循环读出内容并赋值给变量wholes，而结束循环的条件是到达文件的尾部，所以第一空应该填EOF(1)。读完以后把内容赋值给Text1文本框。程序的第二部分就是向文件 "d:\test\smtext2.txt"写内容，题目要求把文本框中的内容写入文件smtext2.txt，所以第二空填Text1.Text。