vb中，每次点“计算”后结果保存在exe同目录下的txt里

来源：百度知道编辑：UC知道时间：2024/05/25 14:34:36

如f.exe在c:\a文件夹内，每次点“计算”后都即时存在同文件夹的f.txt内。且下次打开f.exe后点“计算”后同样保存在f.txt里（不清除上次结果）。注意，每次保存计算结果后自动换行。

Open app.path & "\f.txt" For Append As #1 'append 表示追加数据，Output 表示重写文件中的数据

Print #1, sum 'sum计算的结果

Close #1

我没有写创建文件的代码，所以首先f.txt文件要存在的。

private sub command1_click()
open "c:\a\f.txt" for append as #1
print #1,r 'r是运算结果
close #1
end sub