2014年12月计算机等级考试二级VB全真模拟卷二_第4页

31.如下程序，运行的结果是（B）
Private Sub Form_Click()
Dim m As Integer,i As Integer,x(10) As Integer
For i= 0 to 4
x(i)=i + 1
Next i
For i=1 to 2
Call proc(x)
Next i
For i= 0 to 4
Print x(i);
Next i
End Sub 
Public Sub proc(a() As Integer)
Static i As Integer
Do
a(i)=a(i)+a(i+1)
i=i+1
Loop While i<2
End Sub 
A)3 4 7 5 6
B)3 5 7 4 5
C)2 3 4 4 5
D)4 5 6 7 8
32.假设有以下程序段：
For I=1 to 3
For j=5 to 1 Step -1
Print I*j
Next j
Next I
则语句Print I*j的执行次数I、j的值分别是（A）
A)15 4 0
B)16 3 1
C)17 4 0
D)18 3 1
33.在窗体上一个文本框，其名称为Text1,然后编写如下事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String ,n As Integer
str = UCase (Chr(KeyAscii))
n=Len(str)
Text1=String(n, str)
End Sub 
程序运行后，如果在键盘上输入单字母"K"，则在文本框Text1中显示的内容为（C）
A)kk
B)kK
C)KK
D)Kk
34.下列叙述不正确的是（C）
A)驱动器列表框是一种能显示系统中所有有效磁盘驱动器的列表框
B)驱动器列表框的Drive属性只能在运行时被设置
C)从驱动器列表框中选择驱动器能自动变更系统当前的工作驱动器
D)要改变系统当前的工作驱动器需要使用ChDrive语句
35.窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序：
Dim y As Integer
Private Sub Command1_Click()
Dim x As Integer
x=2
Text1.Text= p2(p1(x),y)
Text2.Text= p1(x)
End Sub 
Privage Function P1(x As Integer) As Integer
x =x+y:y=x+y
P1=x+y
End Function
Private Function P2(x As Integer, y As Integer) As Integer
P2= 2*x+y
End Function
当单击1 次和单击2次命令按钮后，文本框Text1和Text2内的值分别是（C）
A)2 4
2 4
B)2 4
4 8
C)10 10
58 58
D)4 4
8 8