Search This Blog

Wednesday 17 April 2013

Cálculo de números primos con Visual Basic





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

No comments:

Post a Comment