四、程序阅读题。阅读下列程序,写出运行结果。1 K/ }0 N$ x1 W. J
1、注:字符"A"的ASCII码为65。
7 R2 E; ]% M' d* \+ y4 _ 程序代码:. P- P* P: e" i0 B0 {: d4 A
SET TALK OFF
% d% K% _, |; E5 w5 N [ CLEAR
+ l# t D# J( V& Y3 Z. v# R C="一二三四五六七八九十"
2 H% [* s: x4 L; c B="ABCD"
$ p: d/ D {& Q R=0
% X' y: I1 E$ n, x2 |% [- o# j L=LEN(B)' k# }' N: Y+ L& M5 L [6 \
FOR I=1 TO L
2 }( ]( Y2 Z# P a# e9 B W=SUBSTR(B,I,1)
8 U5 u' H/ f; [ D=ASC(W)+R-65" _% c* I' y, v& s3 q& |5 f
S=""- d8 F& r3 j" q
IF D"+S U9 Q2 o* q. L( H" u, g) _
R=R+11
4 \5 E' v( P$ @7 A2 d: I5 d/ r ENDFOR3 g5 o+ _! Z. P
SET TALK ON
- U V' u: H, J4 k) w% q9 R1 x 参考答案:
0 u+ R8 ~7 E8 i# s8 d3 T A---->一% L. L: O. B- ]8 B$ I# S" M
B---->三
8 ~; R$ A- Q1 j, H; ~0 q C---->五
" G0 c' v% m) T) X6 F _0 M. }- [: ` D---->七) h$ N7 N" o( c4 }
2、设A的值为:ABCDEF8 D" w- P" i: f" M
程序代码:
7 P: ]; A* p3 n5 h( ?' i+ M; B8 t SET TALK OFF
& Z! ]. ^; A8 j+ }; ^ CLEAR5 c* Q* |9 A+ P2 D/ I. q* o5 W
ACCEPT "A=" TO A* N% E2 D# s) a+ e' `+ `! q
L=LEN(A)
2 d' w' q& @3 g1 T P=SPACE(0)/ A9 {, G% `& g9 v; S
I=1! w1 n! n8 @" A4 W+ G
DO WHILE I"+P
/ L! ~7 p% C8 O2 i SET TALK ON! P9 V# p# x8 w3 P% h& Y, t* F
参考答案:
, x3 \2 p) m; q% k& K ABCDEF------>EFCDAB
2 \' @6 T% Q: V6 ? 3、写出运行结果
1 C8 c4 ^. t7 q- f) L7 x9 T1 o 程序代码:; q9 ^* O7 E6 s0 c' r2 L
SET TALK OFF
]) \) Z2 D$ k* @ M=3
+ B* _ `0 Z! K( \* D. t, O% i0 V9 O( {4 A0 x- B
DO WHILE M |