Visual Basic Bir Sayının Faktöriyelini Bulma Örneği
"Visual Basic" Programlama dilinde "Bir Sayının Faktöriyelini Bulma Örneği" ile ilgili örnek kod aşağıda gösterilmiştir.
Imports System
Module MainModule
Sub Main(args As String())
Console.WriteLine("Bir tamsayı giriniz: ")
Dim a As Integer = Integer.Parse(Console.ReadLine())
Dim sonuc As Integer = Faktoriyel(a)
Console.WriteLine(a & " sayısının faktöriyeli: " & sonuc)
End Sub
Function Faktoriyel(n As Integer) As Integer
Dim f As Integer
If n = 1 Then
f = 1
Else
f = n * Faktoriyel(n-1)
End If
Return f
End Function
End Module