es simple

[jesicabarboza]

hola!!!!soy nueva en esto y queria saber si este codigo esta bien
la consigna es ingresar un numero e indicar si es primo o no:
el tema es que tengo dudas , y no me marca si esta mal!!!
Dim a, num, cont, I As Integer
Private Sub Command1_Click()
num = Text1
For I = num To 1
a = num Mod I
If a = 0 Then
cont = cont + 1
End If
Next

If cont = 2 Then
Label2 = "primo"
Else
Label3 = "no primo"
End If

les agradesco su ayuda
ah!!!! y como hago para sacar el divisor de dicho numero?

[Newbie001]

el "private sub" no me gusta... anda al diseño del Form, dale doble click al Command1 y visualbasic te escribe un sub automaticamente

el For esta mal? que pasa si ingreso 3? iguala la I a 3 y despues hace un for de 3 to 1 ? tampoco entiendo para que haces el For... cual es su funcion?

Dim a, num, cont, I as integer
num = TextBox1.Text
a = num Mod I
If a = 0 Then
cont += 1 (es lo mismo q escribir cont = cont +1)
End If

If cont = 2 Then
Label2.Text = "primo"
Else
Label3.Text = "no primo"
End if

se escribe .Text para referirse al valor del textbox o label

[Avellaneda]

Para Newbie001:

Tu te estás refiriendo a VB.Net y ella a VB6.

Para jesicabarboza:

Probé tu código y no funciona (siempre da "no primo"). Te pongo una función que devuelve verdadero o falso según el número sea primo o no:

Código:

Function esPrimo(ElNumero) As Boolean
Dim lRaiz As Long, i As Long
esPrimo = True
If ElNumero = 1 Or ElNumero Mod 2 = 0 And ElNumero <> 2 Then
    esPrimo = False
    Exit Function
End If
lRaiz = Sqr(ElNumero)
For i = 3 To lRaiz Step 2
    If ElNumero Mod i = 0 Then
        esPrimo = False
        Exit For
    End If
Next i
End Function

Para mostrar el resultado en un control Label, podrías hacer algo como esto:

Código:

Private Sub Command1_Click()
Label1.Caption = IIf(esPrimo(Text1) = True, "primo", "no primo")
End Sub

Saludos

[Newbie001]

uuuh :S perdon! conosco solo .net pense que eran casi iguales

[jesicabarboza]

ambas respuestas me sirvieron gracias!!!!! pero como hago para sacar el divisor de un numero chicos no me saleeeeeeeeeeeee!!!!! y no me da nuncaaaaaaaaa!!!

[jesicabarboza]

ambas respuestas me sirvieron gracias!!!!! pero como hago para sacar el divisor de un numero chicos no me saleeeeeeeeeeeee!!!!! y no me da nuncaaaaaaaaa!!! y es verdad avellaneda siempre daba no primo jejejeje

[Avellaneda]

Iniciado por jesicabarboza

ambas respuestas me sirvieron gracias!!!!! pero como hago para sacar el divisor de un numero chicos no me saleeeeeeeeeeeee!!!!! y no me da nuncaaaaaaaaa!!! y es verdad avellaneda siempre daba no primo jejejeje

¿A qué te refieres con sacar el divisor de un número?

¿Al factor propio, es decir, que el resto de la división sea cero?

If dividendo Mod divisor = 0 Then
MsgBox "Es factor propio"
Else
MsgBox "No es factor propio"
End If

[jesicabarboza]

gracias por ayudar

[seba123neo]

deberia haber un cartel en el logo de foros del web que diga NO SE HACEN TAREAS...la funcion Len() no retorna la longitud de un numero...proba hacer esto y te vas a dar cuenta de que no te retorna la longirtud sino otra cosa ¿que sera ?

Código vb:

Private Sub Form_Load()
    Dim i As Long
    i = 100000000
    MsgBox Len(i)
End Sub
 

[jesicabarboza]

no pido q me hagan la tareaa seba 123neo!!!! pedi ayuda arriba y me respondieron porq hay gente BUENA... estoy tratando de que me entiendan lo q pregunto! aparte sino me dedico yo en esto la q pierde aca soy yo ...... no juzgues si?

[seba123neo]

a veces... ayuda = pedir tarea...ya estoy un poquito acostumbrado a los foros y se quien viene con por lo menos algo enterado y el que viene directamente a pedir la tarea por mas que directamente no paresca asi(pero en el fondo es asi) ...no voy a perder el tiempo hablando con alguien que no sabe ni declarar una variable como vi arriba...lo que voy a decir no me lo puede discutir nadie...y el que lo discute es porque no sabe nada..."esto con un manual de visual basic bien leido, lo haces en 20 minutos"...los que tienen rato en esto de los foros me van a entender mi actitud...que puede parecer de tirano..pero es como la de un pollito...

saludos.

[jesicabarboza]

sabes que? tenes razon.....no puedo discutir con alguien que sabe, sinceramente, yo soy nueva en esto y como que estoy perdida todo el tiempo pero bue...agradezco tu sinceridad tu opinion.....a pesar de todo ...... me ayudan a estudiar y a hacer la tarea... cuando alguien tiene razon es porque tiene razon

suerte