Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Priemzahlen Auflisten
Autor: Pascal
Datum: 30.04.02 09:45
Îch brauche hilfe bei einem programm das priemzahlen bis zu einer bestimmten zahl auflistet und diese priemzahlen sollen in Feldern stehen ich hab schon mal einen beispielcoede. Dim Endzahl(0) As Long Dim Zahl As Long Dim Teiler As Long Dim Zeit As Double Private Sub cmdGo_Click() Ausgabe = "2" 'Die Zahl 2 wird zur Ausgabe hinzugefügt weil der Computer die Zahl2 nicht als Primzahl erkennt Endzahl(0) = txtEingabe.Text ' Die Endzahl wird während des Programmablaufs vom User bestimmt Zeit = Timer If Endzahl(0) Mod 2 = 0 Then Endzahl(0) = Endzahl - 1 For Zahl = 3 To Endzahl Step 2 Teiler = 1 Do Teiler = Teiler + 2 Loop Until Zahl Mod Teiler = 0 Or Teiler > Sqr(Zahl) If Teiler > Sqr(Zahl) Then Ausgabe = Ausgabe & " " & Zahl Next Zahl If Teiler > Sqr(Zahl) Then Ausgabe = Ausgabe & " " & Zahl 'Ausgabe ist Leerzeichen und die Zahl Next Zahl 'Springe zu nächsten Zahl Zeit = Timer - Zeit lblzeit.Caption = Round(Zeit, 4) & " Sekunden" txtAusgabe.Text = Ausgabe 'Ausgabe der Zahl / Zahlen End Sub das programm ist auch ziehmlich langsam, deshalb soll es in unter einer sekunde das ergebnis anzeigen. ich bitte um schnell hilfe. Danke schon im Voraus! mfg Pascal

Priemzahlen Auflisten	49	Pascal	30.04.02 09:45
Re: Priemzahlen Auflisten	333	Dieter	30.04.02 09:49
Re: Priemzahlen Auflisten	31	Pascal	30.04.02 09:51
Was für Felder?	303	Dieter	30.04.02 09:55
Re: Was für Felder?	39	Pascal	30.04.02 09:57
Re: Was für Felder?	40	Detlef	30.04.02 10:13
Re: Was für Felder?	310	Dieter	30.04.02 10:28

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen