Rubrik: Variablen/Strings · Algorithmen/Mathematik | VB-Versionen: VB2005, VB2008 | 26.08.09 |
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.126 |
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