Visual

Sub MostrarDivAsc(n As Integer)
        Dim i As Integer = 1
        While i <= n
            If n Mod i = 0 Then
                Console.WriteLine(i)
            End If
            i = i + 1
        End While
    End Sub

    Sub MostrarDivPar(n As Integer)
        Dim i As Integer = 2
        While i <= n
            If n Mod i = 0 Then
                Console.WriteLine(i)
            End If
            i = i + 2
        End While
    End Sub

    Sub MostrarDivComunes(n As Integer, ByVal m As Integer)
        Dim i As Integer = 1
        While i <= n And i <= m
            If n Mod i = 0 And m Mod i = 0 Then
                Console.WriteLine(i)
            End If
            i = i + 1
        End While
    End Sub

    Sub MostrarDiv(n As Integer, a As Integer, b As Integer)
        Dim i As Integer = a
        While i <= b
            If n Mod i = 0 Then
                Console.WriteLine(i)
            End If
            i = i + 1
        End While
    End Sub

    Public Function Primo(n As Integer) As Boolean
        Dim i As Integer = 2, lim As Integer = n \ 2
        While i <= lim
            If n Mod i = 0 Then
                Return False
            End If
            i = i + 1
        End While
        Return True
    End Function

    Sub MostrarPrimos(a As Integer, b As Integer)
        Dim i As Integer = a
        While i <= b
            If Primo(i) Then
                Console.WriteLine(i)
            End If
            i = i + 1
        End While
    End Sub