Türkiye'nin ilk Cross-Platform OldSchool MOBİL & PC 1-99 Sunucusu Lamira2 6 Kasım'da Açılıyor! Büyük Açılışı Kaçırma HEMEN TIKLA!
Bu vermiş oldupum kodlarla Visual Basic ile girilen herhangi bir sayının faktöriyelini alabilirsiniz. Burada yaptığımız tek işlem döngü kurmak. İsterseniz bu sayı girişini Inputbox'larla da yapabilirsiniz.
Private Sub Command1_Click()
sayi = Text1.Text
sonuc = 1
For i = sayi To 1 Step -1
sonuc = sonuc * i
Next
Text2.Text = sonuc
End Sub
Private Sub Command1_Click()
sayi = Text1.Text
sonuc = 1
For i = sayi To 1 Step -1
sonuc = sonuc * i
Next
Text2.Text = sonuc
End Sub