您所在位置：主题：一个小软件的困扰
andangel
[专家分：0] 发布于 2005-08-06 11:06:00
cls
PRINT "Password"
DO
WHILE k$ = ""
k$ = INKEY$
EWND
SELECT CASE ASC(k$)
CASE 0:
CASE 13: EXIT DO
CASE 8:
x = CSRLIN
y = POS(1)
IF t$ <> "" THEN
LOCATE x, y - 1
PRINT ""
LOCATE x, y -1
t$ =LEFT$(t$, LEN(t$) -1)
END IF
CASE ELSE
t$ = t$ + k$
PRINT "*";
END SELECT
k$ = ""
LOOP
PRINT
IF t$ = "Pass" THEN PRINT "Good": END
PRINT "Incorrect"
WHILE 1 < 2:WEND
这是一个密码验证的程序（作者不是我）
这个程序有两个毛病
一个是你键入字符以后出现的*只不能退格
第二个问题就是这个程序没有返回命令
密码错误只能退出
请教要怎么做才能让他密码错误返回输入对话框呢。
PRINT "Password"
DO
WHILE k$ = ""
k$ = INKEY$
EWND
SELECT CASE ASC(k$)
CASE 0:
CASE 13: EXIT DO
CASE 8:
x = CSRLIN
y = POS(1)
IF t$ <> "" THEN
LOCATE x, y - 1
PRINT ""
LOCATE x, y -1
t$ =LEFT$(t$, LEN(t$) -1)
END IF
CASE ELSE
t$ = t$ + k$
PRINT "*";
END SELECT
k$ = ""
LOOP
IF t$ = "Pass" THEN PRINT "Good": END
PRINT "Incorrect"
WHILE 1 < 2:WEND
这是一个密码验证的程序（作者不是我）
这个程序有两个毛病
一个是你键入字符以后出现的*只不能退格
第二个问题就是这个程序没有返回命令
密码错误只能退出
请教要怎么做才能让他密码错误返回输入对话框呢。
