[填空题] 在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程： Private Sub Command1_Click() 　　Dim inData

[填空题] 在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程：

Private Sub Command1_Click()

　　Dim inData As String

　　Text1.Text=""

Open"d:myfile.txt"Fo (8) As#1

Do While (9)

　　　　Input #1,inData

　　　　Text1.Text=Text1.Text+inData

　　Loop

　　Close #1

End Sub

程序的功能是，打开D盘根目录下的文本文件myfile.txt，读取它的全部内容并显示在文本框中。请填空。