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
