Tam Sayı Faktöriyelini Hesaplama

Bu dersimizde tb nesnesine girilen sayının (tam sayı) faktoriyelini hesapayıp tb2 nesnesinde gösteren programı yazdıran bir çalışma yapalım.

Bu dersimizde tb nesnesine girilen sayının (tam sayı) faktoriyelini hesapayıp tb2 nesnesinde gösteren programı yazdıran bir çalışma yapalım.

Private Sub Button1_Click()
        Dim a, b As Integer
        b = 1
        For b = 1 To 1000
            If a Mod 5 = 0 Then
                a = a + b
            End If
        Next b
        TextBox2.Text = b.ToString
    End Sub
End Class

 

Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

• 10 yıl önce
bu kodlar ne yapacak şimdi faktöriyel mi hesaplayacak... Faktöriyel dediğimiz 4!=1*2*3*4 olacak yani 1'den n'e kadar olan sayıların çarpımı sen ise burda b'ye 1'den 1000'e kadar değer vermişsin eğer a çift sayı ise a ile b yi topla demişsin bunun faktöriyel ile alakası yok

Yukarı Git