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.
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


0