问题
填空题
以下程序的功能是：把程序文件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)。