这是给你的一个老式的 IF 语句，但是有一个问题

Question

我在 QBASIC 中有一个 IF 语句...是的...QBASIC...

我一直在教某人编程（我认为这会很好并且很容易看到 语法如何工作）。

...无论如何，我有这样的代码：

CLS

start:
INPUT ">>", a$

PRINT a$
IF (INSTR(a$, "do you")) THEN
    IF (INSTR(a$, "like")) THEN
        IF (INSTR(a$, "cheese")) THEN PRINT "Yep, I like cheese":
        IF (INSTR(a$, "music")) THEN PRINT "Depends, which genre?": GOTO musicGenre
    ELSE IF (INSTR(a$, "hate")) THEN
            IF (INSTR(a$, "cheese")) THEN PRINT "No, I like cheese"
        END IF
    END IF
END IF


musicGenre:
INPUT ">>", m$
SELECT CASE (m$)
    CASE "pop"
        PRINT "..pop! lol, baa baa"
    CASE "rock"
        PRINT "Rock is ok"
END SELECT
GOTO start

但是当我输入“你喜欢奶酪吗？”时，它似乎只每隔一次回复“是的，我喜欢奶酪” ...

有人能解释一下吗？

注意：
“你喜欢音乐吗？”每次都有效...

注释 2：
输出截图：

Answer 1

您提供的代码看起来是正确的。

请尝试以下操作之一：

• 如果可能，请向我们发送更大的代码示例。我猜错误超出了您提供的代码范围。
• 在第一个 IF 之前输出输入 (a$)，以确认您的代码能够处理预期的输入。
• 在大多数语言中，FALSE 为零，true 则为其他值。但是，您可能希望使用以下 IF (INSTR(a$) > 0) 更加明确。

编辑：您应该在任何奶酪结果上添加goto start。否则，它将转到 musicGenre 代码。

Answer 2

CLS

start:
    INPUT ">>", a$

    IF (INSTR(1, a$, "do you")) THEN
        IF (INSTR(1, a$, "like")) THEN
            IF (INSTR(1, a$, "cheese")) THEN PRINT "Yep, I like cheese"
            IF (INSTR(1, a$, "music")) THEN PRINT "Depends, which genre?": GOSUB musicGenre
        END IF
    IF (INSTR(1, a$, "hate")) THEN
        IF (INSTR(1, a$, "cheese")) THEN PRINT "No, I like cheese"
    END IF
END IF

GOTO start
musicGenre:
    INPUT ">>", m$
    SELECT CASE (m$)
        CASE "pop"
            PRINT "..pop! lol, baa baa"
        CASE "rock"
            PRINT "Rock is ok"
    END SELECT
RETURN

Answer 3

该程序演示了在 Basic 中解析输入和 gosub。

REM Cheese progran source:
CLS
DO
    INPUT ">>", a$
    a$ = LCASE$(a$)
    PRINT a$
    IF INSTR(a$, "do you") THEN
        IF INSTR(a$, "like") THEN
            IF INSTR(a$, "cheese") THEN
                PRINT "Yep, I like cheese":
            END IF
            IF INSTR(a$, "music") THEN
                PRINT "Depends, which genre?"
                GOSUB MusicGenre
            END IF
        ELSE
            IF INSTR(a$, "hate") THEN
                IF INSTR(a$, "cheese") THEN
                    PRINT "No, I like cheese"
                END IF
            END IF
        END IF
    END IF
LOOP
END
MusicGenre:
INPUT ">>>", m$
a$ = LCASE$(a$)
SELECT CASE (m$)
    CASE "pop"
        PRINT "..pop! lol, baa baa"
    CASE "rock"
        PRINT "Rock is ok"
END SELECT
RETURN