Los números primos al igual que otras clasificaciones de los números naturales fueron clasificados por Pitágoras y su secta, cuyos miembros se llamaban -los pitagóricos-.
Este programa dará como resultado los números primos desde un valor hasta otro que especifiquemos.
Para el formulario necesitaremos 2 textbox (txtdesde y txthasta). Dos labels, 1 Listbox (list1), y 1 commandbutton (cmdcalcular). Como aparece en la imagen de la derecha.
En el botón calcular insertar el siguiente código:
Option Explicit
Dim d, h, v, a, b, c As Integer
Private Sub cmdcalcular_Click()
If Val(txtdesde.Text) < Val(txthasta.Text) Then
List1.Clear
d = Val(txtdesde.Text)
h = Val(txthasta.Text)
v = d - 1
Do While v < h
v = v + 1
'Identificar si el numero es primo
a = 0
b = 1
Do While b <= v
c = v Mod b
If c = 0 Then
a = a + 1
b = b + 1
Else
b = b + 1
End If
Loop
If a = 2 Or v = 1 Then
List1.AddItem (v)
End If
Loop
Else
MsgBox ("El valor de Desde debe ser menor que el de Hasta")
End If
txtdesde.Text = ""
txthasta.Text = ""
txtdesde.SetFocus
End Sub
Este programa dará como resultado los números primos desde un valor hasta otro que especifiquemos.
En el botón calcular insertar el siguiente código:
Option Explicit
Dim d, h, v, a, b, c As Integer
Private Sub cmdcalcular_Click()
If Val(txtdesde.Text) < Val(txthasta.Text) Then
List1.Clear
d = Val(txtdesde.Text)
h = Val(txthasta.Text)
v = d - 1
Do While v < h
v = v + 1
'Identificar si el numero es primo
a = 0
b = 1
Do While b <= v
c = v Mod b
If c = 0 Then
a = a + 1
b = b + 1
Else
b = b + 1
End If
Loop
If a = 2 Or v = 1 Then
List1.AddItem (v)
End If
Loop
Else
MsgBox ("El valor de Desde debe ser menor que el de Hasta")
End If
txtdesde.Text = ""
txthasta.Text = ""
txtdesde.SetFocus
End Sub
