Question

我尝试使用qbasic创建一个简单的登录程序。我使用了3个子模块和1个主模块。这是代码：

DECLARE SUB login ()
DECLARE SUB menu ()
DECLARE SUB REGISTER ()
CLS
CALL menu
END

SUB login
OPEN "USERPASS.TXT" FOR INPUT AS #2
CLS
97
LOCATE 2, 30: PRINT "LOGIN"
LOCATE 4, 10: INPUT "PLEASE ENTER CORRECT USERNAME OR PRESS B IF YOU WANT TO GO BACK"; USER$
IF UCASE$(USER$) = "B" THEN
    CLOSE #2
    CALL menu
ELSE
    DO WHILE NOT EOF(2)
        INPUT #2, U$, p$
        IF U$ = USER$ THEN
            TEMPUSER$ = U$
            PASSWORDS$ = p$
            EXIT DO
        END IF
    LOOP
END IF
IF USER$ = TEMPUSER$ THEN
98
    PRINT PASSWORDS$
    LOCATE 5, 30: INPUT "ENTER PASSWORD OR PRESS B if you want to go back"; password$
    IF UCASE$(password$) = "B" THEN 
        GOTO 97
    ELSE
        IF password$ = PASSWORDS$ THEN
            PRINT "HURRAY YOU LOGGED IN"           
        ELSE
            GOTO 98
        END IF
    END IF
ELSE
    GOTO 97
END IF
CLOSE #2
END SUB

SUB menu
CLS
23
LOCATE 2, 30: PRINT "MAIN MENU"
LOCATE 4, 30: PRINT "1.LOGIN"
LOCATE 5, 30: PRINT "2.REGISTER"
LOCATE 6, 30: INPUT "PLEASE! Enter 1 or 2"; a
IF a = 1 THEN
    CALL login
ELSE
    IF a = 2 THEN
        CALL REGISTER
    ELSE
        CLS
        GOTO 23
    END IF
END IF
END SUB

SUB REGISTER
CLS
OPEN "userpass.txt" FOR APPEND AS #1
LOCATE 2, 30: PRINT "REGISTER MENU"
LOCATE 4, 30: INPUT "ENTER NEW USERNAME"; NEWU$
CLS
LOCATE 4, 30: INPUT "ENTER NEW PASSWORD"; PASSU$
WRITE #1, NEWU$, PASSU$
END SUB

一切都是我的愿望，但在子模块登录中我猜错了。即使我输入正确的密码和用户名，登录按摩也不会到来。但是，如果我输入不存在的用户名，则显示登录消息。请帮忙。提前致谢。

Answer 1

您错过了END IF来匹配ELSEIF UCASE$(USER$) <> "B" THEN（顺便说一句：如果UCASE$(USER$) = "B"为假，那么UCASE$(USER$) <> "B"为真，那么您可以简单地说{{ 1}}那里。

您可以尝试以更传统的方式缩进：

匹配的每个ELSE，IF，ELSEIF和ELSE都在同一列中，并且
这些陈述中的所有内容都缩进了几个空格。

相同的缩进规则可应用于END IF，SELECT CASE，WHILE-WEND和DO-LOOP。

无论如何，如果您这样做，可能会看到丢失的FOR-NEXT：

END IF

qbasic - 我的代码有什么问题？我没有得到我想要的东西

1 个答案: