D）3 8 12
（34）为了从当前文件夹中读入文件File1.txt，某人编写了下面的程序：
Private Sub Command1_Click()
Open \Do While Not EOF(20) Line Input #20, ch$ Print ch Loop End Sub
程序调试时，发现有错误，下面的修改方案中正确的是 A）在Open语句中的文件名前添加路径 B）把程序中各处的“20”改为“1” C）把Print ch 语句改为Print #20,ch D）把Open语句中的Output改为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, 1)) If c < \ Check = False Exit Function End If Next k
Check = True End Function
程序运行时，如果在组合框的编辑区中输入“Java”,则单击命令按钮后产生的结果是 A） 显示“输入错误” B） 显示“添加项目失败” C） 显示“添加项目成功” D） 没有任何显示
二、填空题（每空2分，共30分）
请将每空的正确答案写在答题卡【1】至【15】序号的横线上，答在试卷上不得分。
6
（1）有序线性表能进行二分查找的前提是该线性表必须是【1】存储的。
（2）一棵二叉树的中序遍历结果为DBEAFC，前序遍历结果为ABDECF，则后序遍历结果为【2】。 （3）对软件设计的最小单位（模块或程序单元）进行的测试通常称为【3】测试。 （4）实体完整性约束要求关系数据库中元组的【4】属性值不能为空。
（5）在关系A（S,SN,D）和关系B（D，CN，NM）中，A的主关键字是S，B的主关键字是D，则称【5】是关系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
End Function
运行程序，单击命令按钮Command1后的输出结果为【6】。
（7）在窗体上画1个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click() Dim m As Integer, x As Integer Dim flag As Boolean flag = False
n = Val(Intputbox(\请输入任意1个正整数\Do While Not flag a = 2
flag = 【7】
Do While flag And a <= Int(Sqr(n)) If n / a = n \\ a Then flag = False Else 【8】 End If Loop
If Not flag Then n = n + 1 Loop
Print【9】 End Sub
上述程序的功能是，当在键盘输入任意的1个正整数时，将输出不小于该整数的最小素数。请填空完善程序。
（8）以下程序的功能是，先将随机产生的10个不同的整数放入数组a中，再将这10个数按升序方式输出。请填空。
Private Sub Form_Click()
Dim a(10) As Integer, i As Integer Randomize i = 0
7
Do
num = Int(Rnd * 90) + 10
For j = 1 To I ’检查新产生的随机数是否与以前的相同，相同的无效 If num = a(j) Then Exit For End If Next j
If j > i Then i = i + 1 a(i) = 【10】 End If
Loop While i < 10 For i = 1 To 9
For j = 【11】 To 10
if a(i)>a(j) then temp =a(i),a(i)=a(j);【12】 Next j Next i
For i = 1 To 10 Print a(i) Next i End Sub
（9）窗体上已有名称分别为Drive1、Dir1、File1的驱动器列表框、目录列表框和文件列表框，且有1个名称为Text1的文本框。以下程序的功能是：将指定位置中扩展名为“.txt”的文件显示在File1中，如果双击File1中某个文件，则在Text1中显示该文件的内容。请填空。
Private Sub Form_Load() File1.Pattern = 【13】 End Sub
Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub
Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub
Private Sub File1_DblClick() Dim s As String * 1
If Right(File1.Path, 1) = \ f_name = File1.Path + File1.FileName Else
f_name = File1.Path + \End If
Open f_name 【14】 As #1 Text1.Text = \ Do While 【15】 s = Input(1, #1)
Text1.Text = Text1.Text + s Loop
Close #1 End Sub
8
2011年全国计算机等级考试二级VB参考答案
选择题：
1-5 AADDB 6-10 BCDCB 11-15 AACBC 16-20 BDBAA 21-25 DBACD
26-30 CCBAA 31-35 DCBDB
填空题
1、顺序 2、DEBFCA 3、单元 4、主键 5、D
6、10 7、Ture 8、a=a+1 9、n 10、num 11、i 12、a(j)=temp 13、”*.txt|*.txt” 14、for input 15、not eof(1)
9
2019年3月全国计算机等级考试二级VB笔试试卷及答案word版.doc
