您所在位置：主题：关于“*”掩码的粗略方案
飞鸟12
[专家分：2830] 发布于 2005-01-10 14:36:00
CLS : i = 0
LOCATE 12, 20, 1: PRINT "PASSWORD:"
DO
LOCATE 12, 30 + i
DO: key$ = INKEY$: LOOP WHILE key$ = ""
SELECT CASE key$
CASE CHR$(13)
EXIT DO
CASE CHR$(8)
IF i > 0 THEN
i = i - 1
LOCATE 12, 30 + i: PRINT " "
password$ = LEFT$(password$, LEN(password$) - 1)
END IF
CASE ELSE
password$ = password$ + key$
LOCATE 12, 30 + i: PRINT "*"
i = i + 1
END SELECT
LOOP UNTIL i > 16
LOCATE 12, 20, 1: PRINT "PASSWORD:"
DO
LOCATE 12, 30 + i
DO: key$ = INKEY$: LOOP WHILE key$ = ""
SELECT CASE key$
CASE CHR$(13)
EXIT DO
CASE CHR$(8)
IF i > 0 THEN
i = i - 1
LOCATE 12, 30 + i: PRINT " "
password$ = LEFT$(password$, LEN(password$) - 1)
END IF
CASE ELSE
password$ = password$ + key$
LOCATE 12, 30 + i: PRINT "*"
i = i + 1
END SELECT
LOOP UNTIL i > 16
