主题：快来做题
小精灵1号
[专家分：1040] 发布于 2007-08-14 09:33:00
ABCDEFG 如图:用字母组成一个长方形,试编程按逆时针方向移动字母,直到按任意键时结束.
Z H
Y I
X J
W K
V L
U M
TSRQPON
回复列表 （共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
板凳
网虫一号 [专家分：1230] 发布于 2007-08-14 09:53: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 8LOCATE 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
3 楼
QB小猪 [专家分：1200] 发布于 2007-08-14 10:25: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 8LOCATE 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 楼
天尝地酒 [专家分：870] 发布于 2007-08-14 10:45: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
我来回复
您所在位置：