窗体上有一个名称为 Command1 的命令按钮。要求编写程序,把文件 f1.txt 的内容写到文件 f2.txt 中,然后将 f1.txt 删除。命令按钮的单击事件过程如下: Private Sub Command1_Click() Open "c:f1.txt" For Input As #1 Open "c:f2.txt" For Output As #2 Do While Not EOF(2) Line Input #1, str1 Print #2, str1 Loop Close Kill "c:f1.txt" End Sub 该程序运行时发生错误,应该进行的修改是 ________ 。
举一反三
- 窗体上有一个名称为 Command1 的命令按钮。其单击事件过程如下: Private Sub Command1_Click() Open "c:f1.txt" For Input As #1 Open "c:f2.txt" For Output As #2 Do While Not EOF(1) Line Input #1, str1 Print #2, str1 Loop Close End Sub 以下关于上述程序的叙述中,错误的是 ________ 。
- 窗体上有一个名称为 Command1 的命令按钮。其单击事件过程如下: Private Sub Command1_Click() Open "c:1.txt" For Input As #1 Open "c:2.txt" For Output As #2 Do While Not EOF(1) Line Input #1, str1 Print #2, str1 Loop Close End Sub 以下关于上述程序的叙述中,错误的是 ________ 。
- 窗体上有一个名称为Command1的命令按钮,一个名称为List1的列表框。命令按钮的单击事件过程如下: Private Sub Command1_Click() Open "c:f1.txt" For Input As #1 Do While Not EOF(1) Input #1, str1 List1.AddItem str1 Loop Close End Sub 对于上述程序,以下叙述中错误的是________。
- 执行以下命令可以把f1.txt复制为f2.txt: #___f1.txt > ____.txt
- 下列程序的功能是:将数据1,2,..,8写入顺序文件Num. txt中请补充完整。 Private Sub Form_Click ( ) Dim i As Integer Open "Num. txt" For Output As #1 For i = 1 To 8 【13】 Next Close #1 End Sub