您所在位置：主题：兄弟们看看这个问题啊！还有MOZ！！
54BB
[专家分：380] 发布于 2005-08-13 20:15:00
我想编写一个英打练习的程序。以下代码是输出一行的大写字母或数字，然后从第二行照着上面的输入，不过有个问题，有时候位置会偏移，能不能试试，说说为什么
CLS
RANDOMIZE TIMER
DIM a$(36)
DIM s$(100)
FOR i = 1 TO 26
a$(i) = CHR$(64 + i)
NEXT i
FOR i = 1 TO 10
a$(26 + i) = CHR$(47 + i)
NEXT i
FOR i = 1 TO 80
s = INT(RND(5) * 36)
PRINT a$(s);
s$(i) = a$(s)
NEXT i
LOCATE 2, 1
FOR i = 1 TO 80
DO: k$ = INKEY$: LOOP UNTIL k$ <> ""
SELECT CASE k$
CASE CHR$(27)
END
CASE IS = s$(i)
COLOR 7
PRINT k$;
CASE ELSE
COLOR 4
PRINT k$;
END SELECT
NEXT i
这个程序执行了以后你跟着它输入，经常都会出问题，我实在不知道问题出在哪儿。所以希望大家帮我解决一下
CLS
RANDOMIZE TIMER
DIM a$(36)
DIM s$(100)
FOR i = 1 TO 26
a$(i) = CHR$(64 + i)
NEXT i
FOR i = 1 TO 10
a$(26 + i) = CHR$(47 + i)
NEXT i
FOR i = 1 TO 80
s = INT(RND(5) * 36)
PRINT a$(s);
s$(i) = a$(s)
NEXT i
LOCATE 2, 1
FOR i = 1 TO 80
DO: k$ = INKEY$: LOOP UNTIL k$ <> ""
SELECT CASE k$
CASE CHR$(27)
END
CASE IS = s$(i)
COLOR 7
PRINT k$;
CASE ELSE
COLOR 4
PRINT k$;
END SELECT
NEXT i
这个程序执行了以后你跟着它输入，经常都会出问题，我实在不知道问题出在哪儿。所以希望大家帮我解决一下
