Home

Add

Edit

With Linenumbers

Code in Textfield

Download

Open "primzahlen.txt" For Append As #1
Dim As Uinteger a, b, c, d
Print "Dies ist der Primzahlenfinder. Geben Sie den Zahlenbereich an, den Sie auf Primzahlen ueberpruefen moechten."
Input "Bei welcher Zahl moechten sie beginnen?  " ,c
Input "Bei welcher Zahl moechten sie aufhoeren? " ,d
For a = c To d
    For b = 2 To a
        If b=a Then
            Write #1, a
            Sleep 1
        End If
        If Frac(a/b)=0 Then
            Exit For
        End If
    Next b
    Sleep 1
Next a
Close #1
End