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 Bir Stringi Ters Çevirmek

VBA Dosya Silme

VBA Bir Stringteki Küçük Harfleri Öne Alma Örneği

VBA 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği

VBA Tüm Worksheet'lerin Gizliliğini Kaldırmak