[填空题] 以下程序的功能是:把当前目录下的顺序文件smtextl.txt的内容读入内存,并在文本框Texd中显示出来。请填空。 Pfivme Sub Commandl_Click( ) Dim inData As String Textl.Text ="" Open".smtextl.txt" 【14】 As#1 Do While 【15】 Input#1,in Data Text1.Text=Text1.Text&inData Loop Close#1End Sub
正确答案:[14]For lnput
参考解析:[15]Not EOF(1) 要打开smtext1文件作为读入内容用,所以第14空填:For lnput。 Do循环语句表达的意思是:当还没有读完smtext1文件中的内容时,持续读入,并把读入的内容赋给inDate变量。EOF函数用来测试文件读取完毕的状态。第15空填:Not EOF(1),表示没有读取完文件中的内容。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)