2011年3月全国计算机等级考试二级Visual Basic语言程序设计笔试(3)

34. 为了从当前文件夹中读入文件File1.txt，某人编写了下面的程序： Private Sub Command1_Click()

Open \Do While Not EOF(20) Line Input #20,ch$ print ch Loop

Close #20 End Sub

程序调试时，发现有错误，下面的修改方案中正确的是 A. 在Open语句中的文件名前添加路径 B. 把程序中各处的\改为\

C. 把Print ch语句改为Print #20，ch D. 把Open语句中的Output改为Input 答案：D 解析：本题要求从当前文件夹中读入文件，因此在Open语句中应使用输入(Input)打开文件。 35. 以下程序运行后的窗体如图所示。其中组合框的名称是Combo1,已有列表项如图所示；命令按钮的名称是Command1。 Private Sub Command1_Click() If Not Check(Combo1.Text) Then MsgBox(\输入错误\Exit Sub End If

For k=0 To Combo1.ListCount-1

If Combo1.Text=Combo1.List(k) Then MsgBox(\添加项目失败\Exit Sub End If Next k

Combo1.AddItem Combo1.Text MsgBox(\添加项目成功\End Sub

Private Function Check(ch As String)As Boolean

n=Len(ch) For k=1 To n

c$=UCase(Mid(ch,k,l)) If c<\Check=False Exit Function End If Next k Check=True End Function

程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是 A. 显示\输入错误\B. 显示\添加项目失败\C. 显示\添加项目成功\D. 没有任何显示 答案：B

二、填空题(每空2分，共30分)

请将每空的正确答案写在答题卡【1】至【15】序号的横线上，答在试卷上不得分。 1. 有序线性表能进行二分查找的前提是该线性表必须是【1_______】存储的。 答案：【1】顺序【解析】二分查找只适用于顺序存储的有序线性表。

2. 一棵二叉树的中序遍历结果为DBEAFC，前序遍历结果为ABDECF，则后序遍历结果为【 2_______】。

答案：【2】DEBFCA

3. 对软件设计的最小单位（模块或程序单元）进行的测试通常称为【3_______】测试。 答案：【3】单元【解析】单元测试是对软件设计的最小单位——模块（程序单元）进行正确性检验的测试。单元测试的目的是发现各模块内部可能存在的各种错误。 4. 实体完整性约束要求关系数据库中元组的【4_______】属性值不能为空。

答案：【4】主键【解析】实体完整性约束要求关系的主键中属性值不能为空值，因为主键是惟一决定元组的，如为空值则其惟一性就成为不可能的了。

5. 在关系A（S，SN，D）和关系B（D，CN，NM）中，A的主关键字是S，B的主关键字是D，则称【5_______】是关系A的外码。

答案：【5】D【解析】如果表A中的某属性集是某表B的键，则称该属性集为A的外键或外码。 6. 在窗体上有1个名称为Command1的命令按钮，并有如下事件过程和函数过程： Private Sub Command1_Click() Dim p As Integer p=m(1)+m(2)+m(3) Print p End Sub

Private Function m(n As Integer)As Integer Static s As Integer For k=1 To n s=s+1 Next m=s