"Visual Basic" Programlama dilinde "1'den N'e Kadar Asal Sayıları Üretme Örneği" ile ilgili kod örneği aşağıda belirtilmiştir.

Imports System

Module MainModule
    Sub Main()
        Console.WriteLine("Aralık Değeri Girin: ")
        Dim number As Integer = Convert.ToInt32(Console.ReadLine())

        For num As Integer = 2 To number
            Dim isPrime As Boolean = True
            For i As Integer = 2 To num / 2
                If num Mod i = 0 Then
                    isPrime = False
                    Exit For
                End If
            Next

            If isPrime Then
                Console.WriteLine(num)
            End If
        Next
    End Sub
End Module