在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下事件过程：
Private Sub Commandl_Click()
Dim inData As String
Textl.Text=""
Open"d：myfile.txt"For 【 】As#1
Do While 【 】
Input#,inData
Loop
Text1.Text=Text1.Text+inD
Loop
Close#1
End Sub
程序的功能是,打开D盘根目录下的文本文件myfile.txt,读取它的全部内容并显示在文本框中。请填空。