Kod:
Private Function faktoriyel() faktoriyel = 1 For i = 1 To Text1 faktoriyel = faktoriyel * i Next End Function Private Sub Command1_Click() Text2 = faktoriyel End Sub Private Sub Form_Load() End Sub

__________________