Mega Code Archive

 

Categories / VB.Net / Language Basics

 

Recursive Function Demo

Imports System Imports System.Diagnostics Public Class MainClass     Shared Sub Main()         Dim N As Long = 10         Dim result As Long = Fibo(N)         Console.WriteLine(result)     End Sub     Private Shared Function Fibo(ByVal n As Long) As Long         If n <= 2 Then Return n         Return Fibo(n - 1) + Fibo(n - 2)     End Function End Class