Примеры рекурсивных функций в VB.Net

Question

Я видел other posts, но они в основном в C#. Для тех, кто хочет изучить рекурсию, увидеть реальные примеры работы в VB.Net может оказаться полезным. Еще сложнее попытаться расшифровать и convert C#, если кто-то просто проталкивает их программирование в VB.Net. Я нашел this post, который я понимаю сейчас, но если бы было сообщение о примерах VB.Net, возможно, я смог быстрее его забрать. Это отчасти потому, что я задаю этот вопрос:

Может кто-нибудь могут показать некоторые простые примеры функций рекурсии в VB.Net?

Answer 1

Это один из вики статьи велик

Sub walkTree(ByVal directory As IO.DirectoryInfo, ByVal pattern As String) 
For Each file In directory.GetFiles(pattern) 
    Console.WriteLine(file.FullName) 
Next 
For Each subDir In directory.GetDirectories 
    walkTree(subDir, pattern) 
Next 
End Sub 

Answer 2

Взгляните на статью MSDN - Recursive Procedures (Visual Basic). Эта статья поможет вам понять основы рекурсии.

Пожалуйста, обратитесь следующие ссылки:

1. Recursive function to read a directory structure
2. Recursion, why it's cool.

Answer 3

Один из классиков

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 
    Try 
     Label1.Text = Factorial(20).ToString("n0") 
    Catch ex As Exception 
     Debug.WriteLine("error") 
    End Try 
End Sub 

Function Factorial(ByVal number As Long) As Long 
    If number <= 1 Then 
     Return (1) 
    Else 
     Return number * Factorial(number - 1) 
    End If 
End Function 'Factorial 

В .Net 4.0 вы можете использовать BigInteger вместо Лонга ...

Answer 4

Это пример рекурсии прямо из MSDN для VB.NET 2012:

Function factorial(ByVal n As Integer) As Integer 
    If n <= 1 Then 
     Return 1 
    Else 
     Return factorial(n - 1) * n 
    End If 
End Function 

Reference