Private Sub Command1_Click()
For i = 0 To 15
Print Space((15 - i) * 4);
For j = 0 To i
Print Format(Factorial(i) / (Factorial(j) * Factorial(i - j)), "0000") & Space(4);
Next j
Next i
End Sub
Private Function Factorial(ByVal n As Integer) As Double
Factorial = 1
For i = 1 To n
Factorial = Factorial * i
Next i
End Function
Function fx(x, y)
If x > y Then
xx = x: yy = y
Else
xx = y: yy = x
End If
fx = 1
For i = 1 To yy
fx = fx * (xx + 1 - i) / i
Next i
End Function
Private Sub Form_Click()
n = 6 '设计打印6行
For i = 0 To n - 1
For j = 0 To i
Print Tab(j * 5 + 1); fx(i, j);
Next j
Next i
End Sub