求Qbasic用编程编两道图形题！

来源：百度知道 编辑：UC知道 时间：2024/06/04 20:17:37
第一题：
1
121
12321
1234321
123454321
第二题：
5
444
33333
2222222
111111111

都要用Qbasic做出来，并且是编程出来，谢谢了！我实在是不会！谢谢了！
是这样的，左右对称那种，刚才发错了，对不起！

左右对称

第一题：
DIM n AS INTEGER
DIM i AS INTEGER
DIM j AS INTEGER
CLS
n = 5
FOR i = 1 TO n
PRINT SPACE$(n - i);
FOR j = -(i - 1) TO i - 1
PRINT USING "#"; i - ABS(j);
NEXT j
PRINT
NEXT i

第二题：

Dim n As Integer
Dim i As Integer
Dim j As Integer
Cls
n = 5
FOR i = 1 TO n
PRINT SPACE$(n - i);
FOR j = -(i - 1) TO i - 1
PRINT USING "#"; n - i + 1;
NEXT j
PRINT
NEXT i

1.
cls
a$="123454321"
for i=1 to 5
print tab(6-i);
for j=1 to 2*i-1
print mid$(a$,j,1),
next j
print
next i
end
2.
cls
for i =5 to 1 step -1
print tab(i);
for j= 1 to 2*i-1
pring i;
next j
print
next i
end