[quote]CLS
FOR I = 1 TO 5
PRINT TAB(6 - I);
K = 1
FOR J = 1 TO I * 2 - 1
PRINT CHR$(64 + K);
IF J >= I THEN K = K - 1 ELSE K = K + 1
NEXT J: PRINT
NEXT I
END[/quote]

CLS
A$ = "ABCDEDCBA"
FOR I = 1 TO LEN(A$) \ 2 + 1
  PRINT TAB(30 - I); LEFT$(A$, I); RIGHT$(A$, I - 1)
NEXT I
END
合肥一小学四年级男孩已做出，请楼主加分。