【說明】
某個文本文件中存放了若干個非零數(shù)值有效數(shù)據(jù)，每個數(shù)據(jù)占一行，最后一行以數(shù)字“0”作為結束標志。下面的程序用于計算該文件中這些數(shù)據(jù)之和，其運行窗口如下： 

用戶只要通過驅動器列表框、目錄列表框和文件列表框，選擇文本文件所在的驅動器、文件夾及相應的文件名，再單擊“累計”按鈕，就能在“總計”文本框中看到該文本文件中的數(shù)據(jù)之和。
在開發(fā)過程中，設驅動器列表框名為Drive1，目錄列表框名為Dir1，文件列表框名為File1，存放數(shù)據(jù)的文本文件名為D:\test\vb7\data.txt，“累計”按鈕名為sum，“總計”文本框(TextBox)名為text1。
【Visual Basic代碼】
Private Sub Drive1_Change ()
Dir1.Path = ___（1）___ ‘用戶選擇的驅動器反映到目錄列表框中
End Sub
Private Sub Dir1_Change ()
File1.Path = ___（2）___ ‘用戶選擇的文件夾改變文件列表框內(nèi)容
End Sub
Private Sub sum_Click ()
Dim ___（3）___ As New FileSystemObject ， ____（4）____ As TestStream
‘創(chuàng)建自己的文件系統(tǒng)對象，說明自己的文本流對象
If Right ( Dir1.Path ， 1 ) = “ \ ” Then
Set myTextFile = fso.OpenTextFile ( Dir1.Path + File1.FileName)
End If
Set myTextFile= fso.OpenTextFile ( Dir1.Path + “ \ ” +File1.FileName)
S = 0
Do
D = Val ( myTextFile.ReadRow )
S = S + d
Loop While ___（5）___
Text1.Text = Str$ (S)
End Sub