OPEN(12,FILE=FSJD,STATUS='OLD',ERR=101) 文件名的问题。 如果文件名是'FSJD.TXT',应该用引号引起来,如 OPEN(12,FILE='FSJD.TXT',STATUS='OLD',ERR=101) 如果FSJD是字符型变量,那应该先赋值,如 FSJD='ABC.TXT'