Path数值框中的数值可以按（）计算，也可按（）计算，还可以按计算。

【说明】

某个文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“0”作为结束标志。下面的程序用于计算该文件中这

些数据之和，其运行窗口如下。

用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名，再单击“累计”按钮，就

能在“总计”文本框中看到该文本文件中的数据之和。

在开发过程中，设驱动器列表框名为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

此题为判断题(对，错)。

A．按门窗洞口面积计算

B．按门窗框外围面积计算

C．按图示尺寸以延米计算

D．按樘计算

A.无亮木门框

B.无亮木门扇

C.有亮木门框

D.有亮木门扇

A．错误

B．正确

此题为判断题(对，错)。

A、石材墙面按设计图示尺寸以面积计算

B、石材墙面按设计图示框外围尺寸以而积计算

C、石材墙面按镶贴表面积计算

D、墙面装饰板按设计图示框外围尺寸以面积计算

A．墙饰面按设计图示墙净长乘以净高以面积计算

B．隔断按设计图示框外围尺寸以面积计算

C．全玻璃幕墙按设计图示尺寸以面积计算

D．梁饰面按设计图示饰面外围尺寸以体积计算