主题：一道非常简单的问题
游戏之王
[专家分：540] 发布于 2007-08-13 10:31:00
ABCDEFG 如图:用字母组成一个长方形,试编程按逆时针方向移动字母,直到按任意键时结束
Z H
Y I
X J
W K
V L
U M
TSRQPON
回复列表 （共5个回复）
沙发
网虫一号 [专家分：1230] 发布于 2007-08-13 10:37:00
CLS
FOR i = 1 TO 26
x$ = x$ + CHR$(64 + i)
NEXT i
10 LOCATE 7, 37: PRINT LEFT$(x$, 8);
FOR i = 1 TO 5:
LOCATE 7 + i, 37: PRINT MID$(x$, 27 - i, 1);
LOCATE 7 + i, 44: PRINT MID$(x$, 8 + i, 1);
NEXT i
FOR i = 1 TO 8
LOCATE 13, 36 + i: PRINT MID$(x$, 22 - i, 1);
NEXT i
FOR t = 1 TO 10000
NEXT t
x$ = RIGHT$(x$, 25) + LEFT$(x$, 1)
v$ = INKEY$
IF v$ <> "" THEN END ELSE GOTO 10
板凳
QB小猪 [专家分：1200] 发布于 2007-08-14 09:33:00
CLS
FOR i = 1 TO 26:q$ = q$ + CHR$(64 + i):NEXT i
10 LOCATE 7, 37: PRINT LEFT$(q$, 8);
FOR i = 1 TO 5:
LOCATE 7 + i, 37: PRINT MID$(q$, 27 - i, 1);
LOCATE 7 + i, 44: PRINT MID$(q$, 8 + i, 1);
NEXT i
FOR i = 1 TO 8
LOCATE 13, 36 + i: PRINT MID$(q$, 22 - i, 1);
NEXT i
FOR t = 1 TO 10000
NEXT t
q$ = RIGHT$(q$, 25) + LEFT$(q$, 1)
v$ = INKEY$
IF v$ <> "" THEN END ELSE GOTO 10
3 楼
小精灵1号 [专家分：1040] 发布于 2007-08-14 09:36:00
CLS
FOR i = 1 TO 26
x$ = x$ + CHR$(64 + i)
NEXT i
10 LOCATE 7, 37: PRINT LEFT$(x$, 8);
FOR i = 1 TO 5:
LOCATE 7 + i, 37: PRINT MID$(x$, 27 - i, 1);
LOCATE 7 + i, 44: PRINT MID$(x$, 8 + i, 1);
NEXT i
FOR i = 1 TO 8
LOCATE 13, 36 + i: PRINT MID$(x$, 22 - i, 1);
NEXT i
FOR t = 1 TO 10000
NEXT t
x$ = RIGHT$(x$, 25) + LEFT$(x$, 1)
v$ = INKEY$
IF v$ <> "" THEN END ELSE GOTO 10
4 楼
我的电脑 [专家分：990] 发布于 2007-08-14 09:44:00
CLS
FOR i = 1 TO 26
x$ = x$ + CHR$(64 + i)
NEXT i
10 LOCATE 7, 37: PRINT LEFT$(x$, 8);
FOR i = 1 TO 5:
LOCATE 7 + i, 37: PRINT MID$(x$, 27 - i, 1);
LOCATE 7 + i, 44: PRINT MID$(x$, 8 + i, 1);
NEXT i
FOR i = 1 TO 8
LOCATE 13, 36 + i: PRINT MID$(x$, 22 - i, 1);
NEXT i
FOR t = 1 TO 10000
NEXT t
x$ = RIGHT$(x$, 25) + LEFT$(x$, 1)
v$ = INKEY$
IF v$ <> "" THEN END ELSE GOTO 10
5 楼
hxy_anhui [专家分：320] 发布于 2009-01-29 22:20:00
CLS
FOR I=1 TO 26:X$=X$+CHR$(64+I):NEXT I
DO
LOCATE 7,37:PRINT LEFT$(X$,7)
FOR I=1 TO 6
LOCATE 7+I,37:PRINT MID$(X$,27-I,1)
LOCATE 7+I,43:PRINT MID$(X$,7+I,1)
NEXT I
FOR I=1 TO 7
LOCATE 14,36+I:PRINT MID$(X$,21-I,1)
NEXT I
FOR I=1 TO 9000000:NEXT I
X$=RIGHT$(X$,25)+LEFT$(X$,1)
LOOP UNTIL INKEY$<>""
END
我来回复
您所在位置：