Visual Basic - divisores de un numero

Life is soft - evento anual de software empresarial
   
Vista:

divisores de un numero

Publicado por jesi (1 intervención) el 02/03/2009 05:13:30
hola recien empiezo a programar en visual basic y el tema es que no me sale cono sacar los divisores de un num: quizas parezca facil pero no se me ocurre nada...... encima no tengo ayuda de nadie .porfis!!! me pueden ayudar:
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Consultas SQL sobre ODBC
- Horas
- Imprimir

RE:divisores de un numero

Publicado por P3L30N2009 (701 intervenciones) el 02/03/2009 12:29:44
aquí tienes una forma:

Dim j As Long, r As Long, i As Integer, EsPrimo As Boolean
For j = ElNumero To 1 Step -1
r = ElNumero Mod j
If r = 0 Then i = i + 1
Next j
esPrimo = IIf(i = 2, True, False)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:divisores de un numero

Publicado por Argenmatica (14 intervenciones) el 07/03/2009 17:19:43
Curiosamente, ningún número es múltiplo de otro número que sea mayor que su mitad.
Eso permite reducir a la mitad las comparaciones.
Además, una vez determinado un divisor entero, no tiene sentido seguir buscando otros, (en este caso)
Todos los números son divisibles por uno.
for n=2 to Número
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:divisores de un numero

Publicado por Argenmatica (14 intervenciones) el 07/03/2009 17:22:38
Curiosamente, ningún número es múltiplo de otro número que sea mayor que su mitad.
Eso permite reducir a la mitad las comparaciones.
Además, una vez determinado un divisor entero, no tiene sentido seguir buscando otros, (en este caso)
Todos los números son divisibles por uno.
for n=2 to (Número/2+1)
if (numero mod n)=0 then
msgbox "No es primo"
exit sub
end if
next
msgbox "Es primo"

Disculpen, se me escapa el tab :)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:divisores de un numero

Publicado por pene (1 intervención) el 23/05/2009 19:23:54
weona
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:divisores de un numero

Publicado por edy (1 intervención) el 18/06/2009 20:08:45
aqui de lo dejo el funcion para resolver tu problema
Function Divisores(ByVal ElNumero As Integer) As Integer()
Dim Contador As Integer, Resto As Integer, i As Integer
Dim ElVector() As Integer, x As Integer
Contador = 2
' dimensionamos el vector
ReDim ElVector(1)
' cargamos el primer elemento, que siempre será 1 (cualquier número es divisible por 1)
ElVector(0) = 1
For i = Contador To ElNumero / 2
Resto = ElNumero Mod Contador
' si el resto de la división es cero, el número es divisible
If ElNumero Mod Contador = 0 Then
' redimensionamos el vector y le añadimos el divisible
ReDim Preserve ElVector(UBound(ElVector) + 1)
x = x + 1
ElVector(x) = Contador
End If
Contador = Contador + 1
Next i
' eliminamos el último elemento del vector porque está en blanco
ReDim Preserve ElVector(UBound(ElVector) - 1)
' retornamos el vector con los divisibles
Divisores = ElVector
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:numeros enteros

Publicado por Elvin  (1 intervención) el 28/08/2009 10:07:31
Escriba un procedimiento para calcular e imprimir todos los números enteros comprendidos entre 100 y 999 tales que sean iguales a ala suma de los cubos de sus digitos, es decir, los números de la forma abc, con:
abc = a3 + b3 + c3
si pudieran hacerlo los agradeceria bastante

ELVIN: =)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:divisores de un numero

Publicado por LADY (1 intervención) el 28/01/2010 22:49:39
EN EL PROGRAMA VISUAL BASIC .NET
X FA ES MUY IMPORTANTE SABER COMO SE HALLA LOS DIVISORES DE UN NUMERO .GRACIA S QUIEN ME RESPONDA PLEASE.EN MENOR TIEMPO POSOBLE OK.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar