Label3的标签，然后编写如下代码：
Private x As Integer
Private Sub Command1_C1ick()
Static y As Integer
Dimz As Integer
n＝10
z=n十z
y＝y十z
X＝X十Z
Labell.Caption＝x
Label2．Caption=y
Label3．Caption＝z
End Sub
运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是
A)10 10 10 B)30 30 30 C)30 30 10 D)10 30
(26)设在窗体上有一个名称为Commandl的命令按钮，并有以下事件过程：
PriVate Sub Commandl_C1ick()
Static b As Variant
b＝Array(1,3,5,7,9)
End Sub
此过程的功能是把数组b中的5个数逆序存放(即排列为9，7，5，3，1)。为实现此功
能，省略号处的程序段应该是
A)For i＝0 To 5-1＼2
tmp＝b(i)
b(i)＝b(5-i-1)
b(5-i-1)＝tmp
Next
B)for i＝0 To 5
tmp=b(i)
b(i)＝b(5-i-1)
b(5-i-1)=tmp
Next
C) For i＝0 T0 5＼2
tmp＝b(i)
b(i)＝b(5-i-1)
b(5-i-1)；tmp
Next
D)For i＝1 T0 5＼2
tmp=b(i)
b(i)＝b(5一i一1)
b(5-i-1)＝tmp
Next
(27)在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，
一个名称为Filel的文件列表框，两个名称分别为Labell、Label2，标题分别为空白
和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框
与文件列表框同步变化，并且在标签Labell中显示当前文件夹中文件的数量。如图
所示。
能够正确实现上述功能的程序是
A) Private Sub Dirl_Change()
Filel．Path＝Dir1.path
End Sub
Private Sub Drivel_Change()
Dirl．Path＝Drivel．Drive
Labell．Caption＝Filel.listCount
End Sub
B)Private Sub Dir1_Change()
Filel.path=dir1．Path
End Sub
Private Sub Drive1_Change()
Dirl．Path＝Drivel.Drive
Labell．Captlon＝file1.list
End Sub
C)Private Sub Dirl_Change()
Filel．Path=Dirl．Path
Labell．Caption＝Filel．ListCount
End Sub
Private Sub Drivel_Change()
Dirl．Path＝Drivel．Drlve
Labell．Caption＝Filel．ListCount
End Sub
D) Private Sub Dirl_Change()
filel．Path＝Dir1．Path
Labell．Caption＝Filel．List
End Sub
Private Sub Drivel_Change()
Dir1．Path＝Drivel．DrlVe
Labell．Caption＝Filel.list
End Sub
(28)一个工程中包含两个名称分别为Forml、Form2的窗体，一个名称为mdlFunc的标准
模块。假定在Forml、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：
Forml中定义的过程：
PriVate Sub frmfunctionl()
End Sub
Form2中定义的过程：
Public Sub frmffunction2()
End Sub
mdlFunc中定义的过程：
PubliC Sub mdlFunction()
End Sub
在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是
A)上述三个过程都可以在工程中的任何窗体或模块中被调用
B)frmfunction2和mdlfunction过程能够在工程中各个窗体或模块中被调用
C)上述三个过程都只能在各自被定义的模块中调用
D)只有mdlFunction过程能够被工程中各个窗体或模块调用(29)窗体上有两个名称分别为Textl、Text2的文本框，一个名称为Commandl的命令按钮。运行后的窗体外观如图所示。
设有如下的类型声明
Type Person
name As String*8
major As String*20
End Type
当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29．dat中。设
文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件
的程序段是
A)0pen”c：＼Test29．dat" For Random As#1
Put #1，1，p
Close #1
B)Open "c:＼Test29.dat" For Random As #1
Get#1，1，p
C10se #1
C)open "c＼Test29．dat" For Random As #1 Len＝Len(p)
Put #1，1，p
Close #1
D)Open "c：＼Test29．dat " For Random As #1=Len(p) |
