[填空题] 下面的程序执行时，将把当前目录上的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。 Private Sub Command1_Click() Di

[填空题] 下面的程序执行时，将把当前目录上的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。

Private Sub Command1_Click()

Dim inData As String

Text1.Text=""

Open ".smtext1.txt"______As#1

Do While______

Input #1,inData

Text1.Text=Text1.Text & inData

Loop

Close #1

End Sub