窗体上有名为Drivel与Dirl的驱动器列表框与文件夹列表框，需要在选定驱动列表框中的列表项时，文件夹表框中内容随之改变，正确的语句及语句的位置是（）。
第1题：
在窗体上画一个名称为Drive1的驱动器列表框，—个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是
A．Drive1_Change
B．Drive1_Click
C．Dir1_Click
D．Dir1_Change
第2题：
窗体上已有名称分别为Drivel、Dirl、Filel的驱动器列表框、目录列表框和文件列表框，且有1个名称为Textl的文本框。以下程序的功能是：将指定位置中扩展名为“．txt”的文件显示在Filel中，如果双击FileI中的某个文件，则在Textl中显示该文件的内容。请填空。
Private Sub Form_Load()
Filel．Pattern=
End Sub
Private Sub Drivel_Change()
Dirl．Path=Drivel．Drive
End Sub
Private Sub Dirl_Change()
Filel．Path—Dirl．Path
End Sub
Private Sub Filel_DblCliek() ‘
Dim s As String姜1
If Right(Filel．Path，1)=“＼”Then
f_name!=Filel,Path+Filel．FileName
Else
f_name=Filel．Path+“＼”+File1．FileName
End 1f
Open f_name As1
Textl．Text=“”
Do while
s=Input(1，1)
Textl．Text=Textl．Text+s
Loop
Close-1
End Sub
第3题：
在考生文件夹下有“学生．mdb”数据库。
(1) 创建“学生和课程”窗体，分页显示学生和课程的信息。将第一页命名为“学生”，第二页命名为“课程”。学生页用列表框显示“学生”表全部信息，隐藏学号列。课程页用列表框显示“课程”表信息，隐藏课程编号列。
(2) 在“学生和课程”窗体的页眉中添加“学生和课程信息”标签，宋体12号字，居中显示。窗体结果如图所示。
第4题：
在窗体上有一个名称为Drivel的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。下列能够正确实现上述功能的程序是（ ）。
第5题：
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
1．在考生文件夹下打开工程sjt3.vbp，在窗体Form1上建立一个名称为Text1的文本框和一个名称为Command1，标题为“计算”的命令按钮(如图2—1所示)。程序运行后，单击“计算”命令按钮，通过在对话框输入整数10，放入整形变量a中，然后计算a!，(提示：运算结果应放入Long型变量中)，在文本框中显示结果，并把结果存入文件out3.txt中。在考生文件夹中有一个标准模块mode.bas，该模块中提供了保存文件的过程putdata，考生可以直接调用。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sjt3.vbp。
2．在名称为Form1的窗体上画一个驱动器列表框，其名称为Driver1，再画一个目录列表框，其名称为Dir1；然后添加一个文件列表框，名称为File1。请设置适当的控件属性和编写适当的事件过程，使得在运行时，实现驱动器列表框、目录列表框和文件列表框的同步操作，且在列表框中只显示后缀名为exe的文件；如果双击文件列表框中的文件，则执行该文件(如图2—2所示)。程序中不得使用任何变量。已知；可以用Shell函数来运行可执行文件。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。
② 编写程序代码。
参考代码：
Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path=Driver1.Drive
End Sub
Private Sub File1_DblClick()
x＝Shell(Filel.FileName1)
End Sub
③ 按题目要求存盘。
② 编写程序代码。
参考代码：
Private Sub Dir1_Change()
File1.Path=Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path=Driver1.Drive
End Sub
Private Sub File1_DblClick()
x＝Shell(Filel.FileName,1)
End Sub
③ 按题目要求存盘。
第6题：
阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。
【说明】
某个文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“0”作为结束标志。下面的程序用于计算该文件中这
些数据之和，其运行窗口如下。
用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名，再单击“累计”按钮，就
能在“总计”文本框中看到该文本文件中的数据之和。
在开发过程中，设驱动器列表框名为Drivel，目录列表框名为Dirl，文件列表框名为Filel，存放数据的文本文件名为D：\test\vb7\datA
．txt，“累计”按钮名为sum，“总计”文本框(TextBox)名为textl。
【Visual Basic代码】
Private Sub Drivel_Change()
Dirl．Path=(1) '户选择的驱动器反映到目录列表框中
End Sub
Private Sub Dirl_Change()
Filel．Path=(2) '用户选择的文件夹改变文件列表框内容
End Sub
Private Sub sum_Click()
Dim (3) As New FileSystemOject, (4) As TextStxeam
'创建自己的文件系统对象，说明自己的文本流对象
If Right (Dirl．Path，1)="\"Then
SetmyTextFile=fso．OpenTextFile (Dirl．Path+Filel．FileNamc)
Else
SetmyTextFile=fso．OpenTextFile(Dirl．Path+”\’+Filel．FileName)
End“
S=0
Do
d=Val (myTextFilE．ReadRow)
S=S+d
Loop While (5)
Textl．Text=Str$(S)
End Sub
第7题：
有一个工程文件ylc.vbp(相应的窗体文件名为ylc5.frm)，在窗体上画一个名为List1的列表框和一个名为Text1的文本框。编写窗体的MouseDown事件。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框的项目；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表中删除。程序的运行情况如图23所示。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。
第8题：
在Form1的窗体上绘制一个列表框，名为Lab1，通过属性窗口向列表框中添加4个项目，分别为lteln1、Item2、Item3和Item4。编写适当的事件过程，使程序运行后，若双击列表框中的某一项，则把该项添加到列表框中。程序的运行情况如下图所示。
注意：
过程中只能使用一条命令；文件必须存放在考生文件夹中，工程文件名为 execise80.vbp，窗体文件名为CXOCise80.frm。
第9题：
在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drivel、Dirl和Filel，为了使它们同步操作，必须触发驱动器的Change事件和目录的Change事件，在这两个雾件中执行的语句分别为（ ）。
A. Filel．Ptth=Drivel．Drive和Filel．Path=Dirl．Path
B. Dirl．Path=Drivel．Drive和Filel．Path=Dirl．Path
C. Dirl．Path=Dirl．Path和Filel．Path=Drivel．Drive
D. Dirl．P tth=Drivel．Path和Filel．Path=Dirl．Path
第10题：
在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是
A．Drivel change
B．Drive1_Click
C．Dirl_Click
D．Dirl_Change