Zoek gehele delers

Status
Niet open voor verdere reacties.

gast0187

Gebruiker
Lid geworden
4 nov 2012
Berichten
266
ik moet alle gehele delers bepalen van een getal dat ik ingegeven heb?

ik denk dit op te lossen met een for-lus maar het lukt me niet?

Wil of kan iemand mij helpen?

huidige code (niet werkend)

Public Class Form1

Private Sub cmdGeheleDelers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGeheleDelers.Click
Dim getal As Integer = (txtgetal.Text)
Dim teller As Integer = 1
For i = getal / 2 To 1
If getal Mod i = 0 Then
Dim geheledeler As Integer
geheledeler = getal / teller
txtgeheleDelers.Text = geheledeler & vbNewLine
teller += 1
End If
Next
End Sub
End Class
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan