主题：你想得分吗？来吧
星夜的等待
[专家分：150] 发布于 2007-04-07 14:35:00
A
A B
A B C
A B C D
回复列表 （共14个回复）
沙发
net56789 [专家分：210] 发布于 2007-04-07 14:59:00
cls
n=65
for i=1 to 5
print tab(15-i)
for j=65 to n
print chr(j);
next j
n=n+1
next i
板凳
＆佑慧妹妹＆ [专家分：660] 发布于 2007-04-07 20:42:00
CLS
READ S$
FOR I = 1 TO 5
PRINT TAB (21-I)
A$=MID$(S$,1,I)
PRINT A$
PRINT
NEXT I
DATA "ABCDEF"
3 楼
Matodied [专家分：7560] 发布于 2007-04-20 17:05:00
CLS
INPUT n
a$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
FOR i=1 TO n
PRINT TAB(n+1-i);
FOR j=1 TO i
PRINT MID$(a$,j,1);
NEXT j
PRINT
NEXT i
END
4 楼
wzc1996 [专家分：1680] 发布于 2007-04-21 14:31:00
CLS
READ X$
FOR I = 1 TO 5
PRINT TAB (21-I)
A$=MID$(X$,1,I)
PRINT A$
PRINT
NEXT I
DATA "ABCDEF"
5 楼
wangyunchaoPIG [专家分：130] 发布于 2007-06-03 15:09:00
cls
a$="ABCD"
for i= 1 to 4
print tab(i);
for j = 1 to i
? mid$(a$,j,1)
next j
next i
6 楼
QB爱好者 [专家分：370] 发布于 2007-08-28 13:36:00
CLS
INPUT "N=",N
FOR I=1 TO N
FOR J=1 TO N-I
PRINT " ";
NEXT J
FOR J=1 TO N+1-I
PRINT CHR$(J+64);
NEXT J
PRINT
NEXT I
END
7 楼
我的电脑 [专家分：990] 发布于 2007-09-25 13:30:00
CLS
INPUT N
FOR I=1 TO N:A$=CHR$(64+LTRIM$(STR$(I)))
FOR I = 1 TO N
PRINT TAB(N+1-I);
FOR J=1 TO I:PRINT MID$(A$,J,1);" ";:NEXT J
PRINT
NEXT I
END
我的是人性化的哦!!!!!!!!!!
8 楼
QB小猪 [专家分：1200] 发布于 2007-09-26 13:53:00
A
A B
A B C
A B C D
cls
input n
for i=1 to n
?tab((n+1-i)*2-1); '中间有空格哦.
for j=1 to i
?chr$(64+j);" ";
next j:?
next i
end
9 楼
hxy_anhui [专家分：320] 发布于 2009-01-31 15:43:00
CLS
INPUT N
FOR I = 1 TO N
PRINT TAB(N + 1 - I);
FOR J = 1 TO I
PRINT CHR$(64 + J);
NEXT J
PRINT
NEXT I
END
10 楼
天天和和 [专家分：1420] 发布于 2009-03-05 23:40:00
CLS
INPUT N
FOR I = 1 TO N
K = K + 1
PRINT TAB(K);
FOR J = 1 TO I
PRINT CHR$(64 + J);
NEXT J: PRINT
NEXT I
END
我来回复
您所在位置：