foruma label ekleyin sonra kodları foruma yapıştırın
Kod:
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
