2011年3月全国计算机等级考试二级VB语言程序设计
时长:90分钟 总分:100分
86浏览 0人已完成答题
题型介绍
| 题型 | 单选题 | 填空题 |
|---|---|---|
| 数量 | 35 | 9 |
一、选择题（每小题2分，共70分）
下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
23.
设有以下函数过程
设有以下函数过程
Private Function Fun(a() As Integer,b As String)As Integer
…
End Function
若已有变量声明：
Dim x(5)As Integer，n As Integer，ch As String
则下面正确的过程调用语句是（ ）。
25.
下面程序的执行结果是（ ）。
下面程序的执行结果是（ ）。
Private Sub Command1_Click()
a = 10
For k = 1 To 5 Step -1
a = a - k
Next k
Print a; k
End Sub
26.
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
Private Sub Command1_Click()
x! = Val(Text1.Text)
Select Case x
Case Is < -10, Is >= 20
Print "输入错误"
Case Is < 0
Print 20 - x
Case Is < 10
Print 20
Case Is <= 20
Print x + 10
End Select
EndSub
程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（ ）。
27.
设有如下程序
设有如下程序
Private Sub Command1_Click()
x = 10: y = 0
For i = 1 To 5
Do
x = x - 2
y = y + 2
Loop Until y > 5 Or x < -1
Next
End Sub
运行程序，其中Do循环执行的次数是（ ）。
28.
阅读程序：
阅读程序：
Private Sub Command1_Click()
Dim arr
Dim i As Integer
arr = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
For i = 0 To 2
Print arr(7 - i);
Next
End Sub
程序运行后，窗体上显示的是（ ）。
29.
在窗体上画一个名为Command1的命令按钮，然后编写以下程序：
在窗体上画一个名为Command1的命令按钮，然后编写以下程序：
Private Sub Command1_Click()
Dim a(10) As Integer
For k = 10 To 1 Step -1
a(k) = 20 - 2 * k
Next k
k = k + 7
Print a(k - a(k))
End Sub
运行程序，单击命令按钮，输出结果是（ ）。
30.
窗体上有一个名为Commandl的命令按钮，并有如下程序：
窗体上有一个名为Commandl的命令按钮，并有如下程序：
Private Sub Command1_Click()
Dim a(10), x%
For k = 1 To 10
a(k) = Int(Rnd * 90 + 10)
x = x + a(k) Mod 2
Next k
Print x
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
31.
窗体上有一个名为Commandl的命令按钮和一个名为Timerl的计时器，并有下面的事件过程：
窗体上有一个名为Commandl的命令按钮和一个名为Timerl的计时器，并有下面的事件过程：
Private Sub Command1_Click()
Timerl.Enabled=True
EndSub
Private Sub Form_Load()
Timerl.Interval=10
Timerl.Enabled=False
End Sub
Private Sub Timerl_Timer()
Commandl.Left=Commandl.Left+10
End Sub
程序运行时，单击命令按钮，则产生的结果是（ ）。
32.
设窗体上有一个名为Listl的列表框，并编写下面的事件过程：
设窗体上有一个名为Listl的列表框，并编写下面的事件过程：
Private Sub Listl_Click()
Dim ch As String
ch=Listl.List(Listl.ListIndex)
List1.RemoveItem List 1.ListIndex -
List1.AddItem ch
EndSub
程序运行时，单击一个列表项，则产生的结果是（ ）。
33.
窗体上有一个名为Commandl的命令按钮，并有如下程序：
窗体上有一个名为Commandl的命令按钮，并有如下程序：
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 8
b = 12
Print fun(a, b); a; b
End Sub
Private Function Fun(ByVal a As Integer, b As Integer) As Integer
a = a Mod 5
b = b \ 5
Fun = a
End Function
程序运行时，单击命令按钮，则输出结果是（ ）。
34.
为了从当前文件夹中读入文件File1.txt，某人编写了下面的程序：
为了从当前文件夹中读入文件File1.txt，某人编写了下面的程序：
Private Sub Command1_Click()
Open "File1.txt" For Output As #20
Do While Not EOF(20)
Line Input #20, ch$
Print ch
Loop
Close #20
End Sub
程序调试时，发现有错误，下面的修改方案中正确的是（ ）。
35.
以下程序运行后的窗体如图所示。其中组合框的名称是Combo1，已有列表框如图所示；命令按钮的名称是Command1。
以下程序运行后的窗体如图所示。其中组合框的名称是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 < "A" Or c > "Z" Then
Check = False
Exit Function
End If
Next k
Check = True
End Function
程序运行时。如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（ ）。
二、填空题(每空2分，共30分)
41.
在窗体上有1个名称为Command1的命令按钮，并有如下事件过程和函数过程：
在窗体上有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
运行程序，单击命令按钮Commandl后的输出结果为 ______ 。
42.
在窗体上画1个名称为Command1的命令按钮，然后编写如下程序：
在窗体上画1个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim m As Integer, x As Integer
Dim flag As Boolean
flag = False
n = Val(InputBox("请输入任意1个正整数"))
Do While Not flag
a = 2
flag = ______
Do While flag And a <= Int(Sqr(n))
If n / a = n \ a Then
flag = False
Else
______
End If
Loop
If Not flag Then n = n + 1
Loop
Print ______
End Sub
上述程序的功能是，当在键盘输入任意的1个正整数时，将输出不小于该整数的最小素数。 请填空完善程序。
43.
以下程序的功能是：先将随机产生的10个不同的整数放入数组a中，再将这10个数按升序方式输出。请填空。
以下程序的功能是：先将随机产生的10个不同的整数放入数组a中，再将这10个数按升序方式输出。请填空。
Private Sub Form_Click()
Dim a(10) As Integer, i As Integer
Randomize
i = 0
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) = ______
End If
Loop While i < 10
For i = 1 To 9
For j = ______ To 10
If a(i) > a(j) Then temp = a(i): a(i) = a(j): ______
Next j
Next i
For i = 1 To 10
Print a(i)
Next i
End Sub
44.
窗体上已有名称分别为Dri、，e1、Dirl、Filel的驱动器列表框、目录列表框和文件列表框，且有1个名称为Textl的文本框。以下程序的功能是：将指定位置中扩展名为“*.txt” 的文件显示在Filel中，如果双击Filel中的某个文件，则在Textl中显示该文件的内容。请填空。
