VB关于append

文件方式，有 Append、Binary、Input、Output、或 Random 方式。如果未指定方式，则以 Random 访问方式打开文件。
Append是以追加的方式打开，每次写入的都追加在文件最后，所以会出现你那种现象。其他都是覆盖方式。
Binary是以二进制方式打开，每个字符都以二进制形式读出，写入。
Input、Output是以文本方式打开，一个读，一个写。
Random 是随机方式。
----因此你应该把追加方式改为覆盖方式，且是写入，所以改为Output

文件方式，有 Append、Binary、Input、Output、或 Random 方式。如果未指定方式，则以 Random 访问方式打开文件。

对文件做任何 I/O 操作之前都必须先打开文件。Open 语句分配一个缓冲区供文件进行 I/O 之用，并决定缓冲区所使用的访问方式。

如果 pathname 指定的文件不存在，那么，在用 Append、Binary、Output、或 Random 方式打开文件时，可以建立这一文件。

如果文件已由其它进程打开，而且不允许指定的访问类型，则 Open 操作失败，而且会有错误发生。

如果 mode 是 Binary 方式，则 Len 子句会被忽略掉。

重要 在 Binary、Input 和 Random 方式下可以用不同的文件号打开同一文件，而不必先将该文件关闭。在 Append 和 Output 方式下，如果要用不同的文件号打开同一文件，则必须在打开文件之前先关闭该文件。

改成input

改为 output 就行了

Open "e:\a.txt" For Append As lsr 改为Open "e:\a.txt" For Output As lsr