一个水池有两个进水管，单独开甲管，5小时可以把空池注满，单独开乙管，4小时可以把空池注满，如果同时打开甲、乙两管，几小时可以把空池注满？

以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框 Text1中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Textl.Text=" "
Open ".\smtext1.______ As #1
Do While ______
Input #1，inData
Text1.Text=Text1.Text&inData
Loop
Close #1
End Sub