输出求助

fcode

你在主程序里 open(17,file='NUMH.txt') ，在子程序里就不需要Open了。
一般也不需要在子程序里write(17
否则你会输出2次。

fcode

open(12,file='NUMH.txt')
放到循环外面去，你要慎重考虑open语句的位置。

你需要知道这些事情：
1.文件打开之后，在关闭之前，不能再次打开。
2.文件关闭之后，重新打开，如果写入内容，默认会覆盖原有内容。

所以总体的习惯是，在需要文件之前，打开。然后陆陆续续写入。当不需要写入之后，再关闭。

很少需要把open写在循环里面，这种比较少（除非批量处理多个文件）。如果你确实需要这样，别忘了close

fcode

有呀，我得到结果
           1
           2
           1
          15