最近看到好多朋友.发关于打印图形的问题,想想自己看过不少,就冒失的发了个帖吧!

    *               A              1
   ***             A A            2 2
  *****           A A A          3 3 3
如这种类型的应该有QB书籍的,都看到过.
是双重循环的产物!
for i=1 to 4
    print tab(25-i) '这个是对行的要求.
    for g=1 to 2*i-1
        print "*";
    next g
next i

二.最近比较流行这种(可能).


         A       2
        ABA     212
       ABCBA   21012

实际上这种数字的图形都可以直接打印的.
  效果是一样的.
print     space(7); "A"
print     space(6);"ABA"
print    space(5);"ABCBA"
方法二. (利用函数)
a$="12321"
for i=1 to 3
    print tab (25-i)  '定位
    print left(a$,i); right (a$,i-1)  '打印
next i
这个方法后来看到论坛兄弟们发的才会.真的好用.
方法三.
FOR i = 1 TO 3    
PRINT TAB(25 - i);
IF i = 1 THEN
PRINT CHR$(48 + i);
ELSE
FOR j = 1 TO i
PRINT CHR$(48 + j);
NEXT j
FOR j = i - 1 TO 1 step -1
PRINT CHR$(48 + j);
NEXT j
END IF
PRINT
NEXT i
这一段不好说.我正在学习!还有好几种方法.论坛上有的.建议多到论坛看看.
三.
第三种类型比较特别,有螺形,蛇形.如:
1 12 11 10       
2 13 16 9
3 12 15 8
4  5  6 7  

这种类型的图形算法我在学....一个星期后我来补吧!