以下程序的功能是:把当前目录下的顺序文件smtext1.txt的内容读入内存,并在文本框Text1中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Tex

admin2013-04-11  10

问题 以下程序的功能是:把当前目录下的顺序文件smtext1.txt的内容读入内存,并在文本框Text1中显示出来。请填空。
   Private Sub Command1_Click()
   Dim inData As String
   Text1.Text=""
   Open".\smtext1. _______ AS#1
   Do While  ______
   Input#1,inData
   Text1.Text=Text1.Text&inData
   Loop
   Close#1
   End Sub

选项

答案For Input NotEOF(1)

解析
转载请注明原文地址:https://kaotiyun.com/show/JIQp777K
0

最新回复(0)