Hallo ich habe dieses Primzahlenprogramm erstellt nur irgewndwie zeigt es mir bei jeder zahl an, dass es keine Primzahl ist. Ich finde den Fehler einfach nicht, könnt ihr mir vielleicht helfen ?
Visual Basic:
Dim rest As Long
Dim teiler As Long
Dim zahl As Long
Private Sub BSFLRechnen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BSFLRechnen.Click
teiler = 2
Do
rest = zahl Mod teiler
If rest = 0 Then
TFJanein.Text = "keine Primzahl"
teiler = zahl
End If
If rest >= 1 Then
TFJanein.Text = "primzahl"
teiler = zahl
End If
teiler = teiler + 1
Loop Until teiler > zahl / 2
If zahl = 1 Then
TFJanein.Text = "keine primzahl"
End If
end sub