AYUDA CON ALGORITMO PARA HALLAR DIVISORES

camiar
18 de Marzo del 2010
Hola necesito ayuda con este algoritmos porfavorrr

Cuente y muestre el número de divisores de cada número entero entre 1 y 1000 (incluyendo 1 y el propio número)
Diga cuántos números entre 1 y 1000 tienen dos divisores exactamente.

Graciiaass

sapales
18 de Marzo del 2010
Dim intDivisores As Integer

' Cuente y muestre el número de divisores de cada número entero entre
' 1 y 1000 (incluyendo 1 y el propio número)
' Diga cuántos números entre 1 y 1000 tienen dos divisores exactamente.

For intNumero = 1 To 1000

intDivisores = 0

For intDivisor = 1 To 1000

If intNumero / intDivisor = CInt(intNumero / intDivisor) Then

intDivisores = intDivisores + 1

End If

Next

Debug.Print(Trim(CStr(intNumero)) & " - " & Trim(CStr(intDivisores)) & " - " & IIf(intDivisores = 2, "Dos divisores", ""))

Next