熊猫tv活动礼物是什么:谁来解释basic代码啊?

来源:百度文库 编辑:中科新闻网 时间:2024/05/12 15:38:31
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

不要重复发贴