Ermitteln aller echten Teiler einer natürlichen Zahl Eine Funktion zur Ermittlung aller echten Teiler zu einer natürlichen Zahl (Integer).
Autor:   Dietrich Herrmann	Bewertung:     [ Jetzt bewerten ]	Views:  15.641
ohne Homepage	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 6 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.7 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Die folgende kleine Funktion bestimmt alle Teiler einer natürlichen Zahl und stellt sie in einer Integer-Liste bereit (außer 1 und der Zahl selbst).

Function allDividers(ByVal z As Integer) As List(Of Integer)
  Dim liste As New List(Of Integer)
 
  For i As Integer = 2 To z - 1
    If z Mod i = 0 Then
      liste.Add(i)
      Debug.Print(i)
    End If
  Next 
 
  Return liste
End Function

Aufrufbeispiel:

Dim teiler As List(Of Integer)=allDividers(50)
ListBox1.Items.Clear()
For Each zahl As Integer In teiler
  ListBox1.Items.Add(zahl)
Next