在窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程: Private Sub Form_Click() Open“d:\Temptxte1.txt”.For:

admin2012-09-07  35

问题 在窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程:
    Private Sub Form_Click()
       Open“d:\Temptxte1.txt”.For:Input As#1
       Do While Not______________。
          Line Input#1.aspect$
          wholes=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程序中关于文件的操作,主要是先打开一个文件,然后对这个文件进行读或写的操作,操作完成后,关闭这个文件。打开文件的基本格式为:OpenFileNameForModeAs#FileNumber。其中,FileNumber参数表示打开文件的句柄,即文件号。当从文件中读取全部数据时,常用Do While当型循环,并以:Not EOF(文件号)作为循环条件,用于判断是否已到文件结尾,故第一空应填入EOF(1)。由于在写文件时又将需要写入的文件打开为1号文件,所以再打开该文件前应该先关闭1号文件,第二空应填入Close#1:若要对以Output形式打开的某文件使用Print方法进行输出,标准格式为:Print文件号,字符串,故第三空应填入Text1.Text。
转载请注明原文地址:https://jikaoti.com/ti/8aO0FFFM
0

最新回复(0)