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