Visual Basic.NET - Generador de números primos

   
Vista:

Generador de números primos

Publicado por Marc (4 intervenciones) el 30/11/2007 20:27:40
Tengo que hacer un programa para fin de trimestre que genere números primos.
Es programación básica y es el visual basic 2005,esto es lo que tengo echo de momento:

Public Class Form1
Dim x As Integer
Dim i As Integer
Dim a As Integer
Dim n As Integer
Dim b As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

i = Val(TextBox1.Text)
a = Val(TextBox2.Text)
Label1.Text = ""

For x = i To a
n = x + 1
b = x - 1
If (n / n) = Int(n / n) And (n / b) <> Int(n / b) Then Label1.Text = Label1.Text & n & " "
Next
End Sub

End Class

Sé que lo de b=x-1 está mal pero no sé como hacer para que sea un numero entre "x" i "i" diferente de n.
Necesito soluciones urgentes, por favor.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Generador de números primos

Publicado por kryptic (40 intervenciones) el 30/11/2007 22:20:45
creo que te servirá

Module Module1

Dim intFinal As Integer

Sub Main()
Dim i As Integer = 0
Dim cont As Integer

Console.Write("Ingresa hasta que numero quieres buscar si son primos: ")
intFinal = CType(Console.ReadLine(), Integer)
Console.WriteLine("")
Console.WriteLine("Los siguientes numeros son primos:")
Console.WriteLine("")
Console.WriteLine("1")
For num As Integer = 1 To intFinal
i = 1
cont = 0
While cont <= 2 AndAlso i <= num
If num Mod i = 0 Then
cont += 1
End If

i += 1
End While

If cont = 2 Then
Console.WriteLine(num)
End If
Next

Console.ReadLine()
End Sub

End Module

suerte!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Generador de números primos

Publicado por Marc (4 intervenciones) el 01/12/2007 09:52:27
Este codigo que me has puesto esta lleno de cosas que aún no hemos hecho, a mi me gustaria que me dijerais como hacer que aparazecan en una label, los números primos de un intervalo, lo que quiero es que me corrigais mi codigo.

Por favor, la ayuda es urgente.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar