[填空题] 以下程序的功能是:把程序文件smtextl.txt的内容全部读入内存,并在文本框Textl中显示出来。请填空。 Private Sub Command1_Click() Dim in

12 查阅

[填空题] 以下程序的功能是:把程序文件smtextl.txt的内容全部读入内存,并在文本框Textl中显示出来。请填空。

Private Sub Command1_Click()

Dim inData As String

Text1.Text=" "

Open"smtext1.txt"______As______

DO While______

Input # 2,inData

Text1.Text=Text1.Text&inData

Loop

Close # 2

End Sub

参考答案:

For Input#2,NOT EOF(2)

打开一个存在的文件,以便读出其中的内容。语句的一般格式是:Open"文件名"For Input As#文件号。 文件号:为被打开的文件指定一个文件号,在以后访问该文件时,以文件号来代表文件。文件号的取值为1~511之间的整数。每个文件号对应唯一的一个文件,不能将已使用的文件号再指定给其他文件。由下面的程序可知应该是#2。 EOF函数用于测试文件的结束状态,格式为:EOF(文件号),NOT EOF(2)即当文件号为2的文件没有结束时,执行Do While循环体,由下面的Do While中的Input#2,inData知文件号是2,故是NOT EOF(2)。

计算机考试