小菜菜自学vb之三,该怎么解决

小菜菜自学vb之三
在屏幕上显示杨辉三角形

                                                        1
                                                  1             1
                                            1           2             1
                                      1           3           3             1
                              1             4           6             4           1
                        1           5           10           10           5           1
                    ......................................

首先感谢zzyong00(阿勇)这位朋友的帮助

我自己设计的代码
Function   c(x   As   Integer,   y   As   Integer)
If   y   =   1   Or   y   =   x   Then
c   =   1
Else
c   =   c(x   -   1,   y   -   1)   +   c(x   -   1,   y)
End   If
End   Function
Private   Sub   Command1_Click()
Dim   i   As   Integer
Dim   n   As   Integer
        j   =   12
      For   i   =   1   To   12
            Print   Spc(j);
            For   n   =   1   To   i
                z   =   c(i,   n)
                Print   z;
              Next   n
        Print   vbctrl
        j   =   j   -   1
        Next   i
 
End   Sub
 


[解决办法]
楼主什么意思？