Visual Basic - Primzahlenprogramm

[coolbininet]

Hallo Leute!

Brauche Eure Hilfe! Suche ein Programm für VB, das mir die Primzahlen ausgibt. Wenn möglich mit der Eingabe Zahl A, dann Zahl B und die Primzahlen dazwischen sollen ausgegeben werden. Bitte helft mir!

mfg Coolbininet

[blauesau]

So zum Beispiel:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim von As Integer = txtVon.Text
        Dim bis As Integer = txtBis.Text
        Dim i As Integer
        Dim j As Integer
        txtOutput.Text = ""
        For i = von To bis
            If isPrime(i) Then
                txtOutput.Text += CType(i, String) + ", "
            End If
        Next

    End Sub

    Function isPrime(ByVal zahl As Integer)
        Dim x As Integer
        Dim p As Boolean = True
        For x = 2 To Math.Sqrt(zahl)
            If zahl Mod x = 0 Then
                p = False
            End If
        Next
        If zahl = 1 Then
            p = False
        End If
        Return p
    End Function

[coolbininet]

Hi danke für die Antwort, und wo muss ich den Code jetzt einsetzen, bin nämlich VB Anfänger!

mfg

Coolbininet

[blauesau]

Das ist VB.Net-Code. Ich weiß nicht, welche Version du verwendest - sollte aber kein großer Unterschied sein.

Wie du siehst, ist das eine ein Click-Ereignis eines Buttons -> da gehört dieser Code auch hin.
Die Function isPrime kannst du unverändert lassen. Dann brauchst du noch zwei Textfelder, wo du den Von- und den Bis-Wert eintragen kannst und ein Multiline-Textfeld, wo die Ausgabe reinkommt.

Aber vielleicht solltest du mal mit einfacheren Dingen anfangen?!

[pong]

Prog ist zwar nett und einfach, aber was machst du mit Zahlen jenseits der 32768?

pong

[blauesau]

Das kann dann ja coolbininet modifizieren, wenn seine Ansprüche steigen...