Aplicacion que nos dice si un numero es primo, agregamos un Textbox y CommandButton y agregamos el siguiente codigo en el boton.
'Estos SON numeros PRIMOS:
'2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41 etc.
Dim primo As Boolean
primo = True
numero = Val(Text1.Text)
b = 0
i = 2
Do While (i < numero And b = 0){
if (numero Mod i = 0) Then
b = 1
primo = False
Else
i = i + 1
End If
Loop
If (primo = False) Or (numero = 1) Then
MsgBox "No es primo"
Else
MsgBox "Es primo"
End If
Hay otro ejemplo de numeros primos pero con "for" en el comentario de esta entrada
3 comentarios:
el codigo siguiente esta hecho con un for y el anterior con Do while bueno vayamos al grano este codigo va en el CommandButton y agregamos un textbox y una label
Dim r As Double
Dim c, i As Integer
For i = 1 To Val(Text1.Text)
r = Val(Text1.Text) Mod i
If r = 0 Then
c = c + 1
End If
Next
If (c <= 2) And (c <> 1) Then
Label1.Caption = "el número introducido es primo"
Else
Label1.Caption = "el número introducido no es primo"
End If
Muchas gracias! la verdad no entendia esto, gracias por el codigo
Amigo, ¿cómo puedo yo programar un llenado automático de los primeros 10 números primos?
Publicar un comentario