Private Sub Picture1_Click()
Dim s(20,20) As Integer
n = Val(Text1.Text)
Picture1.Cls
For i = 1 To n
s(i,j) = 1 : s(i,i)=1
Next i
For i = 3 To n
For j = 2 To i - 1
s(i,j) = s(i-1,j-1) + s(i-1,1)
Next j
Next i
For i = 1 To n
For j = 1 To i
Picture1.Print Tab(13 - 2 * i + 4 * j);s(i,j);
Next j
Picture1.Print
Next i
End Sub
具体的算法是知道的,但是一些语句不懂,比如后面的大部分
|