小菜菜自学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



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