**********
print****  ****
print***    ***
……**      **
*        *
*        *
**      **
***    ***
****  ****
**********

楼主：
2.
CLS
 a$ = "**********"
 la = LEN(a$)
 FOR i = la \ 2 TO 1 STEP -1
 b$ = LEFT$(a$, i)
 c$ = RIGHT$(a$, i)
 PRINT b$; SPC(la - i * 2); c$
 NEXT i
 FOR i = 1 TO la \ 2
 b$ = LEFT$(a$, i)
 c$ = RIGHT$(a$, i)
 PRINT b$; SPC(la - i * 2); c$
 NEXT i
END
加分啊加分啊

楼主：
3.
[color=0000FF]CLS
DO
 INPUT "N,I,J="; N, I, J
LOOP UNTIL 1 <= I AND 1 <= J AND I <= N AND J <= N
I$ = LTRIM$(STR$(I))
J$ = LTRIM$(STR$(J))
FOR K = 1 TO N
 PRINT "("; I$; ","; LTRIM$(STR$(K)); ")";
NEXT K
PRINT
FOR K = 1 TO N
 PRINT "("; LTRIM$(STR$(K)); ","; J$; ")";
NEXT K
PRINT
I1 = I: J1 = J
DO WHILE I1 > 1 AND J1 > 1
 I1 = I1 - 1
 J1 = J1 - 1
LOOP
PRINT "("; LTRIM$(STR$(I1)); ","; LTRIM$(STR$(J1)); ")";
FOR K = 1 TO N - J1
 PRINT "("; LTRIM$(STR$(I1 + K)); ",";
 PRINT LTRIM$(STR$(J1 + K)); ")";
NEXT K
PRINT
DO WHILE I1 < N
 I1 = I1 + 1
 J1 = J1 - 1
 IF J1 < 1 THEN J1 = 1
LOOP
PRINT "("; LTRIM$(STR$(I1)); ","; LTRIM$(STR$(J1)); ")";
FOR K = 1 TO N - J1
 PRINT "("; LTRIM$(STR$(I1 - K)); ","; LTRIM$(STR$(J1 + K)); ")";
NEXT K
END[/color]