这是我以前编的类似的
10 GRAPH:CLS:TEXT
20 DATA 126,96,91,115,101,55,63,98,127,119
30 FOR I=0 TO 9:READ I(I):NEXT I
40 INPUT A:A=INT(A)
50 IF A>9999 THEN A=9999 ELSE IF A<0 THEN A=0
60 A$=STR$(A):WHILE LEN(A$)<4:A$="0"+A$:WEND
70 FOR I=1 TO 4:S=VAL(MID$(A$,I,1))OKE 906+I,I(S):NEXT I
80 GOTO 40
发表于 2005-5-4 19:18:00
发表于 2005-5-4 19:30:00
发表于 2005-6-20 18:10:00
OKE 906+I,I(S):NEXT I
楼主