Zufallszahlengenerator + Sortierung = Hilfe

[Sony2000]

Hallo liebe Community,

Ich bin auf der Suche nach Hilfe wegen ein kleinen Fehler in meinem Programm, den ich leider Gottes nicht finde.

Und zwar soll mein Programm über ein eindimensionalen Array 10 Zufallszahlen zwischen 1-100 ausgeben,dann sortieren und wieder ausgeben.

Bei meinem Programm gibt er 10 Zahlen aus und danach wiederholt er einfach nur noch die letzte Ziffer 10 mal...

Ich habe schon viel probiert teilweise hat das Programm mir nur 10mal "System.Int32" ausgeben oder nur "0"en > Stecke gerade wirklich fest und bitte euch um Hilfe!

Module Program
Sub Main()
Dim zufall As Random = New Random()
Dim i As Integer = 10
Dim j As Integer = 10
Dim zahlen(10) As Integer
Console.WriteLine("Zufallszahlen unsortiert:")
While i>0
zahlen(10) = zufall.Next(1,100)
Console.WriteLine("{0}", zahlen(10))
i = i - 1
End While
Console.WriteLine("Zufallszahlen sortiert:")
Array.Sort(zahlen)
While j>0
Console.WriteLine("{0}",zahlen(10))
j = j - 1
End While
Console.ReadLine
End Sub
End Module

j und i sollen als while schleife fungieren...Ich weiß das man evtl. eine For-Next Schleife benutzen könnte,ich wollte es dennoch bei einer While-Schleife belassen..

Danke im Vorraus!

MFG Sony2000

 

[Philipp9494]

glaube, dass du im falschem Forum bist (siehe .Net)

mfg

Philipp9494