[填空题] 在窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程: Private Sub Form_Click() Op

20 查阅

[填空题] 在窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:

Private Sub Form_Click()

Open "d:Temptext1.txt" For Input As #1

Do While Not______。

Line Input #1,aspectS

whole$=whole$+aspect$+Chr$(13)+Chr$(10)

Loop

Text1.Text=whole$

______。

Open "d:Temptext2.txt" For Output As #1

Print #1,______。

Close #1

End Sub

运行程序,单击窗体,将把磁盘文件Temptext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件Temptext2.txt。请填空。

参考答案:

EOF(1);Close #1;Text1.Text (或Text1)

VB程序中关于文件的操作,主要是先打开一个文件,然后对这个文件进行读或写的操作,操作完成后,关闭这个文件。打开文件的基本格式为:Open FileName For Mode As #FileNumber。其中,FileNumber参数表示打开文件的句柄,即文件号。当从文件中读取全部数据时,常用Do While当型循环,并以Not EOF(文件号)作为循环条件,用于判断是否已到文件结尾,故第一空应填入EOF(1)。由于在写文件时又将需要写入的文件打开为1号文件,所以再打开该文件前应该先关闭1号文件,第二空应填入Close #1;若要对以Output形式打开的某文件使用Print方法进行输出,标准格式为:Print文件号,字符串,故第三空应填入Text1.Text。

计算机考试