发布时间 : 星期六 文章数据库应用练习题2009（答案）更新完毕开始阅读074fa03e580216fc700afdd6
1、注：字符\的ASCII码为65。 程序代码：
SET TALK OFF CLEAR
C=\一二三四五六七八九十\B=\R=0
L=LEN(B) FOR I=1 TO L
W=SUBSTR(B,I,1) D=ASC(W)+R-65 S=\
IF D<10 S=SUBSTR(C,2*D+1,2)
ELSE S=SUBSTR(C,2*MOD(D,10)+1,2) ENDIF
?W+\R=R+11 ENDFOR SET TALK ON
2、设A的值为：ABCDEF 程序代码：
SET TALK OFF CLEAR
ACCEPT \L=LEN(A) P=SPACE(0) I=1
DO WHILE I I=I+2 ENDDO ?A+\SET TALK ON ABCDEF---------〉EFCDAB 3、写出运行结果 程序代码： SET TALK OFF M=3 DO WHILE M<10 N=2 DO WHILE N IF INT(M/N)=M/N EXIT ENDIF N=N+1 ENDDO IF N=M ?M ENDIF M=M+1 ENDDO SET TALK ON 3 5 7 4、写出运行结果 程序代码： SET TALK OFF CLEAR INPUT \ IF INT(M)!=M OR ABS(M)!=M ?\输入的数值不符合题目要求!\ LOOP ENDIF ?ALLTRIM(STR(M,19))+\的质数因子有:\I=2 DO WHILE I<=M IF M%I=0 ??STR(I,6) M=INT(M/I) LOOP ENDIF I=I+1 ENDDO SET TALK ON SET ESCAPE ON 设：M的输入值为12。 5、写出运行结果 程序代码： SET TALK OFF CLEAR ?\ 1 2 3 4 5\A=1 DO WHILE A<=5 ?ALLTRIM(STR(A))+SPAC(2) B=1 DO WHILE B<=A S=A*B ??STR(S,2)+SPAC(2) B=B+1 ENDDO A=A+1 ENDDO SET TALK ON 6、写出运行结果 程序代码： SET TALK OFF CLEAR DIMENSION A(6,6) FOR I=1 TO 6 FOR J=1 TO 6 IF I<>J A(I,J)=0 ELSE A(I,J)= ?1 ENDIF ENDFOR ENDFOR FOR I=1 TO 6 ? FOR J=1 TO 6 ??A(I,J) ENDFOR ENDFOR SET TALK ON 7、设N，M的值分别为6，8。 程序代码： SET TALK OFF CLEAR INPUT \INPUT \X=MAX(N,M) FOR I=X TO M*N IF MOD(I,M)=0 AND MOD(I,N)=0 Y1=I EXIT ENDIF ENDFOR ?\SET TALK ON 8、设N值为4，字符”A”的ASCII码为65。（P188） 程序代码： SET TALK OFF CLEAR INPUT \ FOR I=1 TO N ?SPACE(N?I+1) FOR J=1 TO 2*I?1 ??CHR(ASC(\?1) ENDFOR ENDFOR FOR P=N-1 TO 1 STEP ?1