basic - MID$ 函数的问题

Question

我正在尝试在新行上打印出给定字符串的每个字符。

1 INPUT ""; A$
2 E%=0
3 IF E% < LEN(A$) GOTO 5
4 END
5 PRINT MID$(A$,E%,E%+1)
6 E% = E% + 1
7 GOTO 3

我不断得到

非法数量错误 5

我不知道为什么。

Answer 1

您的代码存在三个问题，其中两个相关。

首先，E% 应该从 1 而不是 0 开始。其次，因为 E% 从 1 开始，您应该检查 <= 而不是 <。最后，您的 MID$() 函数参数应如下所示：

1 INPUT ""; A$
2 E%=1
3 IF E% <= LEN(A$) GOTO 5
4 END
5 PRINT MID$(A$,E%,1)
6 E% = E% + 1
7 GOTO 3

接下来，您应该查看 FOR/NEXT 循环。