Ich hab ein paar Sachen: - Warum benutzt du If OF_mitSort.Checked = True? OF_mitSort.Checked gibt bereits den Wert zurück. Ob du danach noch einmal fragst of T=T oder F=T ist, ändert am Ergebnis nichts, du hast aber eine unnötige Operation und der Code wird unübersichtlich
- Warum benutzt du ein Array? Entweder benutzt du eine Liste oder du nimmst ein Array mit einer Konstanten für die obere Grenze, die du auch in deiner Schleife benutzt. So fliegt dir gleich alles um die Ohren, wenn du nur eine Zahl davon veränderst.
Also:
Const BOUND = 7
Dim arrNumbers(BOUND) as integer
und in deiner Schleife "For i = 0 To BOUND"
- Globale variablen machen dir am Ende nur Probleme. Für die Funktion Public Function bestimmteZufallszahlen() hast du außerdem die rückgabe Varaible nicht deklariert.
- Die Sort Algorithmen findest du bei google fertig zum Copy und pasten
__________________
Ein Fehler ist aufgetreten: der Vorgang wurde erfolgreich ausgeführt.
|