本帖最后由 阿杰 于 2010-12-15 20:08 编辑
测试了下,还真是有问题。- .版本 2
- .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
- .局部变量 文件号, 整数型
- 文件号 = 打开文件 (取运行目录 () + “\1.txt”, #读写, )
- 移到文件首 (文件号)
- 标准输出 (, 插入文本行 (文件号, “新文本内容1.”))
- 标准输出 (, 插入文本行 (文件号, “新文本内容2.”))
- 标准输出 (, 插入文本行 (文件号, “新文本内容3.”))
- 关闭文件 (文件号)
- 标准输入 ()
- 返回 (0) ' 可以根据您的需要返回任意数值
复制代码
|