R> CommonDialog1.ShowOpen
End Sub
D．Private Sub Command1_Click()
CommonDialog1.DialogTitle = "New Title"
CommonDialog1.ShowColor
End Sub
（33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是
A．任何时刻最多只有一个窗体是活动窗体
B．不能把标准模块设置为启动模块
C．用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
D．如果工程中含有Sub Main过程，则程序一定首先执行该过程
（34）假定在工程文件中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String * 10
TelNum As String * 20
End Type
要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是
A．Private Sub Command1_Click()
Dim B As Books
Open "c:\Person.txt" For Output As #1
B.Name = InputBox("输入姓名")
B.TelNum = InputBox("输入电话号码")
Write #1, B.Name, B.TelNum
Close #1
End Sub
B．Private Sub Command1_Click()
Dim B As Books
Open "c:\Person.txt" For Input As #1
B.Name = InputBox("输入姓名")
B.TelNum = InputBox("输入电话号码")
Print #1, B.Name, B.TelNum
Close #1
End Sub
C．Private Sub Command1_Click()
Dim B As Books
Open "c:\Person.txt" For Output As #1
Name = InputBox("输入姓名")
TelNum = InputBox("输入电话号码")
Write #1, B
Close #1
End Sub
D．Private Sub Command1_Click()
Dim B As Book
Open "c:\Person.txt" For Input As #1
Name = InputBox("输入姓名")
TelNum = InputBox("输入电话号码")
Print #1, B.Name, B.TelNum
Close #1
End Sub
（35）目录列表框的Path属性的作用是
A．显示当前驱动器或指定驱动器上的某目录下的文件名
B．显示当前驱动器或指定驱动器上的目录结构
C．显示根目录下的文件名
D．显示指定路径下的文件 二、填空题（每空2分，共30分）
请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。
（1）数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是 【1】 。
（2）算法复杂度主要包括时间复杂度和 【2】 复杂度。
（3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块（桩模块）。其中 【3】 的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。
（4）一棵二叉树第六层（根结点为第一层）的结点数最多为 【4】 个。
（5）数据结构分为逻辑结构和存储结构，循环队列属于 【5】 结构。
（6）设有以下函数过程：
Function fun(m As Integer) As Integer
Dim k As Integer, sum As Integer
sum = 0
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
责任编辑：小草
