捷安特xtc758 m车架:谁来解释这段basic 代码?

来源:百度文库 编辑:高校问答 时间:2024/04/30 18:29:07
10 A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz0123456789.,?!:'"
15 B$="sCDBAGHIvJKLMNOUPQRSTVWXYZEFdfabceghijklmnopqrutwxyz01345789.,?!:' 26"
20 INPUT "]:";S$:CLS
30 FOR I=1 TO LEN(S$):T$=MID$(S$,I,1)
40 FOR J=1 TO 69:X$=MID$(A$,J,1):IF T$=X$ THEN Y$=MID$(B$,J,1):PRINT Y$;:J=1:55
50 NEXT J:CLS:PRINT "DATA IS ERROR"
55 NEXT I