Question

谁来解释这段basic的代码啊？

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

Answer 1

GW-BASIC，乖乖，我很多年没看到这种东西了。

10：定义 A$ 变量
15：定义 B$ 变量
20：输出提示符“]:”，要求用户输入一个字符串并存储到 S$。清屏
30：循环，I 从 1 到字符串 S$ 的长度。将 S$ 第 I 个字符赋值给 T$
40：子循环，J 从 1 到 69。将 A$ 第 J 个字符赋给 X$。如果 T$ 与 X$ 相等，则将 B$ 的第 J 个字符赋给 Y$，并打印 Y$ 的值、将 J 值设为 1 并转到第 55 行。
50：J 循环结束。清屏，打印“DATA IS ERROR”
55：I 循环结束。