[填空题] 以下程序的功能是：把顺序文件smtext1.txt的内容全部读入内存，并在文本框Text1中显示出来。请填空。 Private Sub Command1_Click() Dim inD

[填空题] 以下程序的功能是：把顺序文件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