四、程序阅读题。阅读下列程序，写出运行结果。
1、注：字符"A"的ASCII码为65。
程序代码：
SET TALK OFF
CLEAR
C="一二三四五六七八九十"
B="ABCD"
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+"----->"+S
R=R+11
ENDFOR
SET TALK ON
参考答案：
A---->一
B---->三
C---->五
D---->七
2、设A的值为：ABCDEF
程序代码：
SET TALK OFF
CLEAR
ACCEPT "A=" TO A
L=LEN(A)
P=SPACE(0)
I=1
DO WHILE I P=P+SUBSTR(A,L-I,2) I=I+2 ENDDO ?A+"------>"+P 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 "M=" TO M 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。 参考答案： 12的质数因子有： 2 2 3 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 参考答案： * 1 2 3 4 5 1 1 2 2 4 3 3 6 9 4 4 8 12 5 5 10 15 20 25