回 帖 发 新 帖 刷新版面

主题:QB编程如图所示的九九表

请哪位大侠帮忙用QB写出下列图形的程序,非常感谢!
由于着急,在线等您的答案。

1   2   3   4   5   6   7   8   9
    4   6   8   10  12  14  16  18 
        9   12  15  18  21  24  27
            16  20  24  28  32  36
                25  30  35  40  45
                    36  42  48  54
                        49  56  63
                            64  72
                                81

回复列表 (共2个回复)

沙发

CLS
FOR i = 1 TO 9
PRINT TAB((i - 1) * 4 + 1);
FOR j = i TO 9
PRINT USING "####"; i * j;
NEXT j: PRINT : NEXT i
END

板凳

CLS
FOR i = 1 TO 9
PRINT TAB((i - 1) * 4 + 1);
FOR j = i TO 9
PRINT USING "##"; i * j;
NEXT j 
PRINT 
NEXT i
END

我来回复

您尚未登录,请登录后再回复。点此登录或注册