2002年4月全国计算机等级考试二级VB程序设计笔试试卷及答案
一、选择题1~35题每题2分，共70分。
  下列各题A）、B）、C）、D）四个选项中，只有一个选择是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
1．下列不能打开属性窗口的操作是（ ）。
　A）执行“视图”菜单中的“属性窗口”命令
　B）按F4键
　C）按Ctrl+T
　D）单击工具栏上的“属性窗口”按钮。
2．下列可以打开立即窗口的操作是（怎样养杜鹃花 ）。
　A）Ctrl+D
　B）Ctrl+E
　C）Ctrl+F D）Ctrl+G
3．InputBox函数返回值的类型为（ ）。
　A）数值
　B）字符串
　C）变体
　D）数值或字符串（视输入的数据而定）
4．可以同时删除字符串前导和尾部空白的函数是（ ）。
　A）Ltrim
　B）Rtrim
　C）Trim
　D）Mid
5．表达式4+5 6 * 7 / 8 Mod 9 的值是（ ）。
　A）4  
　B）5
　C）6
　D）7
6．如果在立即窗口中执行以下操作：
a=8　 <CR> 　（<CR>是回车键，下同）
b=9　 <CR>
print a>b　 <CR>
则输出结果是（ ）。
　A）-1  
　B）0
　C）False
　D）True
7．以下语句的输出结果是（ ）。
Print Format $(32548.5,“000,000.00”)
　A）32548.5
　B）32,548.5
　C）032,548.50　
　D）32,548.50
8．执行以下程序段后，变量c$的值为（ ）。
a$="Visual Basic Programing"
b$="Quick”
c$=b$ & UCase(Mid$(a$,7,6)) & Right $ (a$,11)
　A）Visual BASIC Programing
　B）Quick Basic Programing
　C）QUICK Basic Programing
　D）Quick BASIC Programing
9．为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（ ）。
　A）Value 
　B）Default
　C）Cancel 
　D）Enabled
10．为了把焦点移到某个指定的控件，所使用的方法是（ ）。
　A）SetFocus 
　B）Visible
　C）Refresh 　
　D）GetFocus

11．设a=6，则执行 x=IIf(a>5,-1,0)后，x 的值为（ ）。
　A）5
　 B）6
　C）0 　
　D）-1
12．执行下面的程序段后，x 的值为（ ）。
x=5
For i=1 To 20 Step 2
x=x+i5
Next i
　A）21 　
　B）22
　C）23 　
　D）24
13．在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For i=1 To 4
x=4
For j =1 To 3 
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
　A）7
　B）15
　C）157
　D）538
14．在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do Until x=-1
a = InputBox(“请输入A的值”)
a = Val(a)
b = InputBox(“请输入B的值”)
b = Val(b)
x = InputBox(“请输入x的值”)
x = Val(x)
a = a+b+x
Loop
Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为（ ）。
　A）2
　B）3
　C）14  
　D）15
15．在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：
Private Sub Command1_Click()
a=Text1.Text+Text2.Text
Print a
End Sub
Private Sub Form_Load()
Text1.Text=""
Text2.Text=""
End sub
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为（ ）。
　A）444
　B）321123
　家长意见怎么写30字兽态犀牛将军怎么抓C）123321 
　D）132231
16．阅读下面的程序段：
For i=1 To 3
For j=1 To i
For k=j To 3
a=a+1
Next k
Next j
Next i
执行上面的三重循环后，a 的值为（ ）。
　A）3
　B）9
　C）14 　
　D）21
17．在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：
Private Sub Form_Load()
Text1.Text=""
Text1.SetFocus
For i=1 To 10
Sum=Sum+i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是（ ）。
　A）在文本框Text1中输出55
　B）在文本框Text1中输出0
　C）出错
　D）在文本框Text1中输出不定值
18．在窗体上画两个文本框（其Name属性分别为Text1和微笑面对失败的名言Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程： Private Sub Command1_Click()
x=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。
　A）1和0
　B）2和72
　C）3和50 
　D）4和168
19．用下面语句定义的数组的元素个数是（ ）。
Dim A (-3 To 5) As Integer
　A）江南 歌词6
　B）7
　C）8  
　D）9
20．以下程序的输出结果是（ ）。
Option Base 1
Private Sub Command1_Click()
Dim a(10),p(3) As Integer
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End sub
　A）33
　B）28
　C）35
　D）37
21．在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Commandl_Click()
Dim a
a = Array(1,2,3,4)
j = 1
For i = 4 To Step -1
s = s + a(i)*j
j =j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是（ ）。
　A）4321
　B）12
　C）34  　
　D）1234
22．在窗体上画一个命令按钮（其Name属性为Commandl），然后编写如下代码：
Option Base 1
Private Sub Commandl_Click( )
Dim a(4,4)
For i =1 To 4
For j =1 To 4
a(i,j) = (i-1)*3+j
Next j
Next i
For i =3 To 4
For j =3 To 4
Print a(j,i);
Next j
Print
Next i
End Sub
程序运行后，单击命令按钮，其输出结果为（ ）。
　A）6 9 　   　B）7 10
  　7&n
  　bsp;10 　   8 11
　C）8 11     D）9 12
  　9 12     　10 13
23．假定有如下的Sub过程：
Sub S（x As Single,y As Single）
t = x
x =t/y
y =t Mod y
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click ( )
Dim a As Single
Dim b As Single
a =5
b =4
S a,b
Print a,b
End Sub
程序运行后，单击命令按钮，输出结果为（ ）。
　A）5 4
　B）1 1
　C）1.25 4 
　D）1.25 1
24．阅读程序：
Function F(a As Integer)
b = 0
Static c
b = b+1
c = c+1
F = a+b+c
End Function
Private Sub Commandl_Click ()
Dim a As Integer
a =2
For i =1 To 3
Print F(a)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为（ ）。
　A）4 　B）4   C）4   D啤酒的工艺流程）4
  4 　 5 　 　 　6 7
  4 　 6   　 8 9
25．阅读程序：
Sub subP(b() As Integer)
For i =1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Commandl_Click()
Dim a(1 To 4)As Integer
a (1)=5
a (2)=6
a (3)=7
a (4)=8
subP a ()
For i =1 To 4
Print a(i)
Next i
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。