UC知道求一道vb编程问题
来源：百度知道 编辑：UC知道 时间：2024/06/22 05:29:34
用vb6.0编写一段程序，要求：某个命令按钮按下后，在“e:\”根目录下建立一个名为“text.txt”的文件，如果原来“e:\”有这个删除它重新建立，如果原来没有就直接新建，并在“text.txt”文件中写入1000行文字，每行的内容为：行号“我们在练习。”行号是：从1到1000的数字。（这里将总分省略）
“TXEXT.TXT”文件中的内容应该为：
1 我们在练习。
2 我们在练习。
3 我们在练习。
4 我们在练习。
........
1000 我们在练习。
“TXEXT.TXT”文件中的内容应该为：
1 我们在练习。
2 我们在练习。
3 我们在练习。
4 我们在练习。
........
1000 我们在练习。
Private Sub Command1_Click()
On Error GoTo Err:
Open "e:\text.txt" For Input As #1
Close #1
Kill "e:\text.txt"
Command1_Click
Exit Sub
Err:
If Err.Number <> 53 Then Exit Sub
Open "e:\text.txt" For Output As #2
For i = 1 To 1000
Print #2, i & " 我们在练习。"
Next i
Close #2
End Sub