【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
参考答案：(1)Drivel．Drive
(2)Dirl．Path
(3)fso
(4)myTextFile
(5)d＜＞0
解析：
[分析]：
驱动器列表框(DriveListBox)、目录列表框(DirListBox)和文件列表框(FileListBox)是Visual Basic提供的内部控件，驱动器列表框
(DriveListBox)可自动填写驱动器的名字和卷标，目录列表框(DirListBox)可显示指定驱动器的目录树，而文件列表框 (FileListBox)则是一
个特殊的ListBox控件，它显示指定目录下的所有文件，并可选择按文件的名字、扩展名或属性排列内容。
这些控件常常在一个窗体中工作，当用户在DriveListBox中选择一个驱动器时， DirListBox控件就更新显示该驱动器上的目录树，当用户
在DirListBox中选择一条路径时，FileListBox控件中的内容为该目录下的文件列表，这些活动自动地触发Change事件。但是，这些活动不能自
动完成，需要为Change事件编写代码，通过代码将驱动器列表框的Drive属性(指明当前驱动器)赋值给目录列表框的Path属性，将目录列表框的
Path属性(指明当前路径)赋值给文件列表框的Path属性，即Dirl．Path=Drivel．Drive， Filel．Path=Dirl．Path。
“Dim”是声明变量的关键字，在过程sum_Click()中，显然是对文件系统对象fso和文本流对象myTextFile进行声明。
根据题目的说明，所处理的文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“0”作为结束标志。计算该文
件中的数据之和时，当读入的数据d等于0时应结束计算。因此，根据循环控制，空(5)处填写“d＜＞0”(d不等于0)。
