【简答题】

试题七（15分，每空3分）
　　阅读以下说明及Visual Basic 程序代码，将应填入___(n)___处的字句写在答题纸的对应栏内。
[说明]
　　某个文本件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字"0"作为结束标志。下面的程序用于计算该文件中这些数据之和，其运行窗口如下： 
    
　　用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名，再单击"累计"按钮，就能在"总计"文本框中看到该文本文件中的数据之和。
　　在开发过程中，设驱动器列表框名为Drivel,目录列表框名为Dirl，文件列表框名为Filel,存放数据的文本文件名为D：/text/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 FileSystemobject,___(4)___ As TextStream
　　　'创建自己的文件系统对象，说明自己的文本流对象
　　　If Right(Dirl.Path,1)=″/″ Then
　　　　SetmyTextFile=fso.OpenTextFile(Dirl.Path+Filel.FileName)
　　　Else
　　　　SetmyTextFile=fso.OpenTextFile(Dirl.Path+″1″+Filel.FileName)
　　　End If
　　　S=0
　　　Do
　　　　d=Val(myTexFile.ReadRow)
　　　　S= S+d
　　　　Loop While ___(5)___
　　　Textl.Text=Str$(S)
　　End Sub