适用于河北对口计算机升学
SM=数学
DO WHILE SUBSTR(学号,1,8)= BJBM
IF数学<SM
SM=数学 ENDIF IF英语<YM
YM=英语 ENDIF
PYSCJ= PYSCJ+英语 PSJCJ= PSJCJ+数学 NBJ=NBJ+1 SKIP
ENDDO
? BJBM, ":",PYSCJ/NBJ, PSJCJ/NBJ, YM, SM
ENDDO
CLOSE DATABASE SET TALK ON
七、程序改错(本大题共2小题,每题5分,共10分。)
1.有两个字符串X$="ABCDEKG"和Y$="BDFC",每个字符串中都没有重复出现的字符,把Y$中的字符插入到x$中。插入方法:从Y$中取出一个字符,然后在X$中查找,若有相同字符,就把它放在该相同字符后,若找不到则放在X$的后面,然后从Y$中取下一个,直到全部处理完,最后x$中的内容为”ABBCDDEKGGF”。程序中有两行错误,请将改正后的全行写在答题纸上。
10 X$= " ABCDEKG " 20 Y$= " BDFC " 30 L2= LEN(Y$) 40 FOR I=l TO L2 50 C$= MID$( X$,I,1) 60 L1=LEN( X$) 70 FOR J=l TO Ll
80 IF C$= MID$( X$ ,J,1)THEN X$= MID$( xs,1,J)+ C$ + MID$(X$,J+1):GOT0 100 90 NEXT J
95 IF J<= Ll THEN X$=X$+C$
搜索“diyifanwen.net”或“第一范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,第一范文网,提供最新工程科技2010年河北省普通高等学校对口招生考试计算机理论试题A(18)全文阅读和word下载服务。
相关推荐: