vb5: divisori di un numero

[Kylnas]

Originariamente inviato da fisica
che procedimento posso usare (in vb5) per trovare i divisori di un numero inserito?

grazie

ciao

x è il tuo numero.

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.