Faktöriyel Hesabı-V.Basic-(Kaynak1)

Private Sub Command1_Click()

         Deger = 1

         For i = 1 To Text1.Text                         ‘ Döngü içerisinde sayı 1’den

                           Deger = i * Deger              ‘ başlayarak bir birer artırılarak

         Next i                                                  ‘ çarpma işlemi yapılıyor

         Label1.Caption = Deger

End Sub