完善下列程序,其功能是统计一个文本文件(内容为英文文章)中各个英文字母(不区分大小写)出现的次数。

CLEAR

cFile=GETFILE(’TXT’,’文件名’)

cc=（）(fileToMem(cFile))

DIMENSION abe(26)

abc=0

DO WHILE LEN(cc)>0

c=LEFT(cc,1)

cc=SUBSTR(cc,2)

IF !(c>=’A’ AND c<=’Z’)

（）

ENDIF

i=ASC(c)-ASC(’A’)+1

abc(i)=（）

ENDDO

FOR i=1 To 26

CHR(ASC(’A’)-1+i)+’的个数为’,abc(i)

ENDFOR

FUNCTION fileToMem &&该函数的功能是将文件内容读到内存变量中

PARAMETER cFileName

fHandle=FOPEN(cFileName)

cText=SPACE(0)

IF fhandle>0

nSize=FSEEK(fhandle,0,2)

=FSEEK(fhandle,0)

cText=FREAD(fhandle,nSize)

=FCLOSE(fhandle)

ENDIF

RETURN cText