c语言fclose函数作用,fclose()函数不可用问题

a1.c:

void main()

{

char selrun;

FILE *p;

do

{

system("cls");

printf("请选择操作:\na:进行文件操作；\nb:进行记录操作；\n\

c:进行预测评估；\nd:显示查询；\ne:退出程序。\n请选择：");

fflush(stdin);

//selrun=getchar();

scanf("%c",&selrun);

switch(selrun)

{

case 'a':   //文件操作

p=filesel();   //vc6.0引用外部函数可不做声明？

break;

case 'b':    //记录操作

break;

case 'c':    //预测评估

break;

case 'd':    //显示查询

break;

case 'e':    //退出程序

printf("谢谢使用，再见！\n");

exit(SUCCESS);

default:

{

printf("选择无效，请重新选择：\n");

}

}

}

while(1);

}

a2.c:

#include

#include

FILE * filesel()

{

char selrun,filename[20];

FILE *p=NULL;

do

{

system("cls");

printf("请选择操作:\na:创建新文件；\nb:打开一个文件；\n\

c:删除一个文件;\nd:返回上级。\n请选择：");

selrun=getch();

fflush(stdin);

switch(selrun)

{

case 'a':   //文件创建

printf("请输入文件名：\n");

gets(filename);

if(p=fopen(filename,"ab")!=NULL)

{

printf("创建文件成功！\n");

if(fclose(p)!=0)

printf("文件关闭失败！");

else

printf("文件关闭成功！");

}

else

printf("创建文件失败！\n");

getch();

break;

case 'b':    //打开文件

printf("打开文件成功\n");

getch();

break;

case 'c':    //删除文件

printf("删除文件成功\n");

getch();

break;

case 'd':    //返加上级操作

return p;

default:

{

printf("选择无效，请重新选择：\n");

}

}

}

while(1);

}

这是源代码所有内容了.