Calcular números primos con Visual Basic (Código)


a1

Se utiliza la subrutina ComprobarPrimo, que toma el valor de i y calcula si i es o no un número primo

Module UntitledModule

Dim i, esPrimo, j As Primitive

Sub Main()

For i = 2 To 100

esPrimo = “Cierto”

ComprobarPrimo()

If esPrimo = CType(“Cierto”, Primitive) Then

TextWindow.WriteLine(i)

End If

Next

End Sub

Sub ComprobarPrimo()

For j = 2 To Microsoft.SmallBasic.Library.Math.SquareRoot(i)

If Microsoft.SmallBasic.Library.Math.Remainder(i, j) = 0 Then

esPrimo = “Falso”

Goto FinLoop

End If

Next

FinLoop:

End Sub

End Module

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s