Como parte de las clases que estoy tomando de .NET nos pidieron desarrollar el siguiente algoritmo. Seguro para muchos es fácil de construir pero a mi me costo más de la cuenta. Aún así me sentí satisfecho al final y decidí compartirlo:

Module Module1
‘Considerando al 1 como número primo
Sub Main()
Dim N, i, j, C, D As Integer
D = 0
Console.WriteLine(“Ingrese número”)
N = Console.ReadLine
For i = 1 To N Step 1
C = 0
For j = 1 To i Step 1
If i Mod j = 0 Then
C = C + 1
Else
C = C
End If
Next
If C = 2 Then
D = D + 1
Else
D = D
End If
Next
Console.WriteLine(“El número de números primos debajo de ” & N & ” es ” & D)
Console.ReadKey()
End Sub
End Module

Me hizo sufrir este algoritmo, pero no tanto por la lógica si no por un error que no encontraba en el script. Espero que les sea provechoso.

Saludos cordiales, Renzo