您所在位置：主题：其中一句不懂
daihele
[专家分：0] 发布于 2007-11-10 21:38:00
DIM a AS STRING
a = "AXHIDYBVZJC"
FOR i = 1 TO LEN(a)
c$ = STRING$(1, MID$(a, i)) + c$
NEXT i
PRINT "A="; c$
i = 1
DO UNTIL i > LEN(a)
b$ = MID$(a, i, 1)
IF ASC(b$) > 75 THEN
MID$(a, 1) = MID$(STR$(ASC(b$)), 2)
i = i + 1
END IF
i = i + 1
LOOP
PRINT "A="; a
PRINT "I="; i - 1
MID$(a, 1) = MID$(STR$(ASC(b$)), 2)
什么意思啊
a = "AXHIDYBVZJC"
FOR i = 1 TO LEN(a)
c$ = STRING$(1, MID$(a, i)) + c$
NEXT i
PRINT "A="; c$
i = 1
DO UNTIL i > LEN(a)
b$ = MID$(a, i, 1)
IF ASC(b$) > 75 THEN
MID$(a, 1) = MID$(STR$(ASC(b$)), 2)
i = i + 1
END IF
i = i + 1
LOOP
PRINT "A="; a
PRINT "I="; i - 1
MID$(a, 1) = MID$(STR$(ASC(b$)), 2)
什么意思啊
