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

用戶只要通過(guò)驅(qū)動(dòng)器列表框、目錄列表框和文件列表框，選擇文本文件所在的驅(qū)動(dòng)器、文件夾及相應(yīng)的文件名，再單擊“累計(jì)”按鈕，就能在“總計(jì)”文本框中看到該文本文件中的數(shù)據(jù)之和。
在開(kāi)發(fā)過(guò)程中，設(shè)驅(qū)動(dòng)器列表框名為Drive1，目錄列表框名為Dir1，文件列表框名為File1，存放數(shù)據(jù)的文本文件名為D:\test\vb7\data.txt，“累計(jì)”按鈕名為sum，“總計(jì)”文本框(TextBox)名為text1。
【Visual Basic代碼】
Private Sub Drive1_Change ()
Dir1.Path = ___（1）___ ‘用戶選擇的驅(qū)動(dòng)器反映到目錄列表框中
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)對(duì)象，說(shuō)明自己的文本流對(duì)象
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