Pages

lunes, 28 de enero de 2013

Determinar si un número es primo Codigo Fuente en Visual Basic

Problema
Diseñar un algoritmo que me permita ingresar cualquier número y determinar si el número ingresado es primo.

Solución
  • Entrada: 19
  • Salida:   Si es número primo
Codigo Fuente en Visual Basic
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer = 0
        Dim n As Integer
        n = TextBox1.Text
        For i As Integer = 1 To n + 1
            If (n Mod i = 0) Then
                a = a + 1
            End If
        Next i
        If (a <> 2) Then
            TextBox2.Text = "No es Primo"
        Else
            TextBox2.Text = "Si es Primo"
        End If
    End Sub
End Class

7 comentarios:

bryan kennex flores braco dijo...

good me funko gracias :)

Carlos Zuñiga dijo...

Excelente aporte, gracias

Anónimo dijo...

alguien sabe como hacerlo en excel visual basic

Darck Craft dijo...

yo busco lo mismo que el de arriba respondan porfa

vazcar20 dijo...

Sub primo()

Dim a As Double
a = 0
Dim i As Double
Dim n As Double
n = [A2]
For i = 1 To n + 1
If (n Mod i = 0) Then
a = a + 1
End If
Next i
If (a <> 2) Then
[A3] = "No es Primo"
Else
[A3] = "Si es Primo"
End If
End Sub

Unknown dijo...

Public Function EsPrimo(n)
If n < 4 Then GoTo Verdadero
If n Mod 2 = 0 Then GoTo Falso
k = Int(Sqr(n))
For i = 3 To k Step 2
If n Mod i = 0 Then GoTo Falso
Next
Verdadero:
EsPrimo = True
Exit Function
Falso:
EsPrimo = False
End Function

Carlos Carrasco dijo...

Public Function EsPrimo(n)
If n < 4 Then GoTo Verdadero
If n Mod 2 = 0 Then GoTo Falso
k = Int(Sqr(n))
For i = 3 To k Step 2
If n Mod i = 0 Then GoTo Falso
Next
Verdadero:
EsPrimo = True
Exit Function
Falso:
EsPrimo = False
End Function

Publicar un comentario en la entrada