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:	Views:  15.120
ohne Homepage	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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 

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.