Private Sub Form_Load()
On Error Resume Next
Label1.AutoSize = True
Label1.Top = 0
Label1.Left = 0
Dim sayı, j, i, x, y As Integer
sayı = InputBox(”0′dan kaça kadar”, “?”, 3)
For j = 0 To sayı
Label1.Caption = Label1.Caption & Chr(10) & “1″
x = j

y = 1
For i = 1 To x
y = (x * y) / i
Label1.Caption = Label1.Caption & ” ” & y
x = x - 1
Next

Next
End Sub