(25) 在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分虽为Label1、Label2，标题分别为空白和"共有文件"的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。如图所示。

能够正确实现上述功能的程序是
A．Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub Dive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.ListCount
End Sub
B．Private Sub Dir1_Change()
File.Path=Dir1.Path
End Sub
Private Sub Dive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.List
End Sub
C．Private Sub Dir1_Change()
File1.Path = Dir1.Path
Label1.Caption = File1.ListCount
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
Label1.Caption = File1.ListCount
End Sub
(D．Private Sub Dir1_Change()
File1.Path=Dir1.Path
Label1.Caption=File1.ListCount
End Sub
Private Sub Dive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption= File1.List
End Sub
正确答案: C

(26) 设有声明语句
Option Base 1
Dim b(-1 To 10, 2 To 9, 20) As Integer
则数组b中全部元素的个数
A．2310 
B．1920
C．1500 
D．1658
正确答案: B

(27) 单击命令按钮，下列事件过程的执行结果为
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=40: y=72
Call PtoP(x, y)
Print x; y
End Sub
Public Sub PtoP(Byval n As Integer, ByVal m As Integer)
n=n ＼ 10+2
m=m ＼ 10+2
End Sub
A．0 8 
B．40 72
C．4 50 
D．78 50
正确答案: B

(28) 下列程序的执行结果为
Private Sub Command1_Click()
Dim p As Integer, q As Integer
p=12: q=20
Call Value(p, q)
Print p; q
End Sub
Private Sub Value(ByVal m As Integer, ByVal n As Integer)
m=m * 2: n=n - 5
Print m; n
End Sub
A．20 12
20 15
B．12 20
12 25
C．24 15 
12 20
D．24 12
12 15
考生答案: 正确答案: C

(29) 在窗体上画一个命令按钮，然后编写如下程序：
Private Sub Command3_Click()
Cop 2
Cop 3
Cop 4
End Sub
Sub Cop (a As Integer)
Static x As Integer
x=x + a
Print x;
End Sub
程序运行后，单击命令按钮，输出结果为
A．2 3 4 
B．2 5 9
C．3 5 4 
D．2 4 3
正确答案: B

(30) 有如下事件过程，单击命令按钮扣，输出结果为
Private Sub Command1_Click()
Dim b%(1 To 4) , j%, t#
For j=1 To 4
b(j) =j
Next j
t=Tax(b() )
Print "t="; t,
End Sub
Function Tax (a() As Integer)
Dim t#, i%
t=1
For i=2 To UBound(A．
t=t * a(i)
Next i
Tax=t
End Function
A．t＝18 
B．t＝24
C．t＝30 
D．t＝32
正确答案: B

[1] [2] [3] [4] [5] [6]