VBA Bir Sayının Faktöriyelini Bulma Örneği

"VBA" Programlama dilinde "Bir Sayının Faktöriyelini Bulma Örneği" ile ilgili örnek kod aşağıda belirtilmiştir.

Public Function Faktoriyel(ByVal n As Integer) As Integer
    If n = 1 Then
        Faktoriyel = 1
    Else
        Faktoriyel = n * Faktoriyel(n - 1)
    End If
End Function

Sub Main()
    Dim a As Integer
    a = InputBox("Bir tamsayı giriniz: ")
    Dim sonuc As Integer
    sonuc = Faktoriyel(a)
    MsgBox (a & " sayısının faktöriyeli: " & sonuc)
End Sub



İlginizi Çekebilir

VBA Fibonacci Serisinde N'inci Terimi Bulma Örneği

VBA Dictionary Key Value Değerlerini Ters Çevirmek

VBA Dizideki Bir Elemanı Döngü İle Arama Örneği

VBA Dosyanın Güncelleme Tarihini Değiştirme

VBA Bir Dictionary'i Filtreleyip Yeni Bir Dictionary Yaratma Örne ...