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

60 comentarios:

bryan kennex flores braco dijo...

good me funko gracias :)

Unknown dijo...

Excelente aporte, gracias

Anónimo dijo...

alguien sabe como hacerlo en excel visual basic

Skuldfn 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

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

Unknown dijo...

Alguien sabe como hacerlo en visualfoxpro

Anónimo dijo...

Y tu mamá es una perra?
-Blue Bullet

Katy Castillo dijo...

excelente programa, gracias :3

Anónimo dijo...

Son putos todos a la verga me vale verga

Unknown dijo...

Te digo que si pa que no te enojes

Unknown dijo...

Esta chido todo pero me vale verga eso vallanse ala verga putos puñetas. Att. El 33

Anónimo dijo...

Chinga tu culo puto hijoeputa mierda.

Unknown dijo...

Pues quien sabe si ese programa tenga pito

Unknown dijo...

Puto mierda dejate venir a colombia para partirnos la madre a balazos o que pedo wey hijoeputa bitch

Unknown dijo...

Y si mejor me chupas el pito

Unknown dijo...

Y si mejor te vas ala verga a meterte el dedo el ano hijoeputa👿👿👿

Unknown dijo...

Mejor echame una carnala puto firu de mierda🖕

Unknown dijo...

Quien putas es firu acaso es tu puto dildo que te metes en el anus oq pedo wey👿👿😒

Unknown dijo...

Firu es tu macho we el que te metio el clavo la otra vez

Unknown dijo...

Esa puta pendejada que wey mejor ya vete a masturbar con videos de mia kalifa

Unknown dijo...

Hay puto chamaco pendejo deja de meterte con el pelon

Unknown dijo...

O te voy a meter un susto

Unknown dijo...

El que te gusta y te encanta verdad😈😈

Unknown dijo...

El chiquito damian

Unknown dijo...

No digas putas pendejadas que se me baja el azucar😅😅😅

Unknown dijo...

Lo que te voy a bajar es la tanga

Unknown dijo...

Como cres

Unknown dijo...

El pajaro

Anónimo dijo...

Malditos jotos��

Unknown dijo...

Jaja no mames wey ya mejor vete a ver gansitos al parque

Unknown dijo...

Metropieso

Unknown dijo...

Ya agarraste arta confianza verdad

Unknown dijo...

Mordidas al pelon

Unknown dijo...

Alejano te habla el pelon 😂que le vengas a dar un beso

Unknown dijo...

No mames

Unknown dijo...

Julian dice que si wey

Unknown dijo...

Hay le hablan al puñetas

Unknown dijo...

Como crees

Unknown dijo...

Ora puto cabeza de bolo att el verga larga

Unknown dijo...

Este si wey

Unknown dijo...

El chiquitin

Unknown dijo...

Que quieres

Unknown dijo...

Sientate

Unknown dijo...

El curi es joto

Unknown dijo...

A chaca que es joto

Unknown dijo...

En tu lomo

Unknown dijo...

Si ya se ya se lo cogieron todos los de la 55

Unknown dijo...

Kukailo anda con firu

Unknown dijo...

Te domo

Unknown dijo...

Pinche cabeza de globo anda con su mujer la negra tomasa

Unknown dijo...

Te dio harta felicidad esa negra verdad

Unknown dijo...

No xq se te metio en el aunus y te saque el chorrillo

Unknown dijo...

Chorro es el que me avientas en la punta

Unknown dijo...

De tu ano

Unknown dijo...

Me das miedo

Unknown dijo...

Padentro si quieres

Unknown dijo...

Tus nalgas

Unknown dijo...

Me emprestas

Publicar un comentario