等考试读程序试题.docVIP

读程序 表程序 1（0701）. 数据表（STUDENT.dbf）内容如下： Record# 学号 姓名 性别 班级 总分 1 1458 张萧 女 １班 520 2 1479 王琴 女 ２班 495 3 1480 陆海军 男 ３班 500 4 1500 李文君 女 １班 468 5 1503 海涛 男 ４班 515 写出执行以下程序结果： use student do while .t. if 性别“女” exit endif if 班级=“１班” disp 姓名，性别，班级，总分 endif skip enddo use 3(0702)、数据user.dbf用于存放户信息，其字段有：tno(电话号码，字符型)，uname(姓名，字符型)，addr(地址，字符型)；数据charge.dbf用于存放户电话交费信息，其字段有：tno(电话号码，字符型)，tmonth(月份，数值型)，money(电话费，数值型)。?? user.dbf的内容如下charge.dbf的内容如下 uname addr tno tmonth money 123 u1 a1 456 1 100 456 u2 a2 123 2 90 789 u3 a3 456 5 150 789 1 300 123 1 60 456 3 80 请写出下述程序的输出结果。SET TALK OFF? SELECT B? USE charge? INDEX ON tno TO charge? SELECT A? USE user? SET RELATION TO tno INTO charge? SCAN??? SELECT charge??? AVERAGE money TO mm REST WHILE tno=user-tno??? SELECT user??? ?tno+SPACE(2)+unmae+SPACE(2)+STR(mm,3)? ENDSCAN? RETURN 1（0802）. 表文件（积分.dbf）如下表所示。 积分.dbf 学号（C） 积分（N） 2201 40 2202 70 2203 50 2204 20 2201 10 2202 70 2203 60 2201 40 2202 30 写出以下程序的运行结果。 USE 积分 STORE 0 TO X,Y,Z SCAN DO CASE CASE RIGHT(学号,1)=1 X=X+积分 CASE RIGHT(学号,1)=2 Y=Y+积分 CASE RIGHT(学号,1)=3 Z=Z+积分 ENDCASE ENDSCAN ?X+Y+Z USE 数字程序 2(0702)、有一程序如下，请写出运行结果： set talk off clear i=1 do while i=50 if i/7=int(i/7) ?? str(i,4) endif i=i+2 enddo return 1（0901）. 有如下程序，请写出运行结果： CLEA M=1 N=1 DO WHILE M10 M=M+1 IF INT(M/3)M/3 N=N+M ENDIF ENDDO ? N=,N RETURN 2（0701）．以下程序的运行结果是什么？ clear sum1=0 cc= for i=1 to 5 t=0 for j=1 to i t=t+j cc=cc+str(j,1)++ endfor if i=5 cc=cc+= endif sum1=sum1+t endfor ?cc,sum1 3（0802）. 有一程序如下，请写出运行结果。 CLEAR DIMENSION A(3,3) FOR I=1 TO 3 FOR J=1 TO 3 IF IJ A(I,J)=0 ELSE A(I,J)=9 ENDIF ??A(I,J) ENDFOR ? ENDFOR CANCEL 3．下面程序运行时输入5，请写出程序执行结果。 SET TALK OFF Clear INPUT? 请输入层数 TO N FOR K=1 TO N ??SPACE(N-K) FOR J=1 TO K ?