Private Sub Command1_Click()
D.im inData As String
Text1.Text = ""
Open "d:/myfile.txt" For ( 14 ) As #1
D.o While ( 15 )
Input #1, inData
Text1.Text = Text1.Text + inData
Loop
C.lose #1
E.nd Sub
程序的功能是,打开 D 盘根目录下的文本文件 myfile.txt ,读取它的全部内容并显示在文本框中 。 请填空。