Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 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
Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)
Benzer konular
