题目内容
（请给出正确答案）
[主观题]
在有效数字计算时，零在具体数值的（），仍是有效数字。
如搜索结果不匹配，请 联系老师 获取答案
【说明】
某个文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“0”作为结束标志。下面的程序用于计算该文件中这
些数据之和，其运行窗口如下。
.jpg)
用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名，再单击“累计”按钮，就
能在“总计”文本框中看到该文本文件中的数据之和。
在开发过程中，设驱动器列表框名为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
