1 T0 4 x(j)=VAL(SUBSTR(i,j,1)) ENDFOR IF x(1)+x(2)=x(3)+x(4) ?i ENDIF ENDFOR 15.完善下列程序,其功能是统计一个文本文件(内容为英文文章)中大小写英文字母 的个数。 CLEAR cFile=GETFILE('TXT','文件名') cc=fileToMem(cFile)
STORE 0 TO i,j DO WHILE LEN(cc)>0 c=LEFT(cc,1) ____(18)______ CASE ASC(c)>96 AND ASC(c)<123 j=j+1 CASE ASC(c)>64 AND ASC(e)<91 i=i+1 ENDCASE cc=SUBSTR(___(19)____) ENDDO ?'大写、小写英文字母个数分别为',_____(20)______ FUNCTION fileToMem &;&;该函数的功能是将文件内容读到内存变量中 PARAMETER cFileName fhandle=FOPEN(cFileName) cText=SPACE(0) IF fhandle>0 nSize=FSEEK(fhandle,0,2) =FSEEK(fhandle,0) eText=FREAD(fhandle,nSize) =FCLOSE(fhandle) ENDIF RETU