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

admin2010-03-30  59

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

选项

答案For Input, Not EOF(1)

解析 本题考查顺序文件的打开与读写操作以及EOF函数的用法。要打开smtext1文件作为读入内容用,所以第14空填:ForInput。 Do循环语句表达的意思是:  当还没有读完 smtext1文件中的内容时,持续读入,并把读入的内容赋给inDate变量。EOF函数用来测试文件读取完毕的状态。第15空填:Not EOF(1),表示没有读取完文件中的内容。
转载请注明原文地址:https://kaotiyun.com/show/Ia1p777K
0

最新回复(0)