Hey Leute,
ich bin nicht so das Visual Basic Genie und hab wahrscheinlich einen super offentsichtlichen Fehler in meinem Code aber ich finde den Fehler einfach nicht bzw. weiß nicht was ich falsch gemacht habe. Das Programm lässt sich abspielen, aber es wird halt kein Ergebnis angezeigt
Also ich denke mal dass das Loop am total falschen Ort ist, aber ich hab andauernd "rumgeschoben" und dann hat visual basic immer gesagt dass das ein Fehler ist...
ich bin nicht so das Visual Basic Genie und hab wahrscheinlich einen super offentsichtlichen Fehler in meinem Code aber ich finde den Fehler einfach nicht bzw. weiß nicht was ich falsch gemacht habe. Das Programm lässt sich abspielen, aber es wird halt kein Ergebnis angezeigt
Quellcode
- Public Class frm
- Public zahl As Integer
- Public anzahlTeiler As Integer
- Public n As Integer
- Public anzahlPrimzahl As Integer
- Private Sub cmdZahlPrüfen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdZahlPrüfen.Click
- n = txtEingabe.Text
- anzahlTeiler = 0
- zahl = 0
- Do Until anzahlPrimzahl = n
- For i = 1 To zahl
- If zahl Mod i = 0 Then
- anzahlTeiler = anzahlTeiler + 1
- i = i + 1
- End If
- Next
- If anzahlTeiler = 2 Then
- anzahlPrimzahl = anzahlPrimzahl + 1
- txtAusgabe.Text = "Primzahl :-)"
- Else
- txtAusgabe.Text = "keine Primzahl :-("
- End If
- Loop
- End Sub
- End Class
Also ich denke mal dass das Loop am total falschen Ort ist, aber ich hab andauernd "rumgeschoben" und dann hat visual basic immer gesagt dass das ein Fehler ist...
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Charlie..“ ()