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 Leer más »

Acabo de terminar este pequeño algoritmo para saber si un número es primo utilizado Visual Basic. Lo comparto con ustedes por si les es de utilidad.

Module Module1

Sub Main()
Dim N As Integer
Dim M As Integer
M = 2
Console.WriteLine(“Ingrese un número”)
N = Console.ReadLine()
While (N Mod M > 0)
M = M + 1
End While
If (N = M) Then
Console.WriteLine(“El número es primo”)
Else
Console.WriteLine(“El número es no primo”)
End If
Console.ReadKey
End Sub

End Module

Saludos, Renzo Leer más »