山西盛科集团:谁知道这段basic代码的结果?

来源:百度文库 编辑:神马品牌网 时间:2024/05/03 10:02:06
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