一个企业设立了物流管理部门，那么企业降低物流成本的责任应该全部归于物流部门。（）

以下程序的功能是：把顺序文件smtext1.txt的内容全部读入内存，并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text=" "
Open"smtext1.txt" (13) As (14)
Do While (15)
Input #2 ,inData
Text1.Text=Text1.Text＆inData
Loop
Close #2
End Sub