填空题 完善下列程序,其功能是统计一个文本文件(内容为英文文章)中大小写英文字母的个数。
CLEAR
cFile=GETFILE("TXT", "文件名")
cc=fileToMem(cFile)
STORE 0 TO i, j
DO WHILE LEN(cc)>0
c=LEFT(cc, 1)
1
CASE ASC(c)>96 AND ASC(c)<123
j=j+1
CASE ASC(c)>64 AND ASC(c)<91
i=i+1
ENDCASE
cc=SUBSTR( 2)
ENDDO
?"大写、小写英文字母个数分别为", 3
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 eText
【正确答案】
【答案解析】DO CASE;cc,2;i,j或STR(i)+STR(j)