Originariamente inviato da Kylnas
x è il tuo numero.
codice:
Dim divisori() As Integer, i As Integer
Dim x As Integer

ReDim divisori(0) As Integer
divisori(0) = 1

For i = 2 To x
  If x Mod i = 0 Then
    ReDim Preserve divisori(UBound(divisori) + 1) As Integer
    divisori(UBound(divisori)) = i
  End If
Next i
L'array "divisori" contiene gli elementi cercati.
:master: Però credo che gli interessino solo i numeri primi (scomposizione). O no?