Unser Lehrer hat uns die Aufgabe gegeben, in SharpDevelop einen Zufallsgenerator zu erstellen und die Zahlen von der kleinsten aufsteigend zur größten zu sortieren. Ich weiß aber nicht, wie ich die Zahlen sortiere.
Was ich bisher programmiert habe:
Dim Feld1() As Integer 'globale Variable
Sub Cmd_zzClick(ByVal sender As Object, ByVal e As EventArgs)
Dim anz, i, zz, z1 As Integer
Randomize 'Zufallszahlengenerator
anz = TXT_zz.Text
ReDim Feld1(anz - 1)
For i = 0 To anz - 1
zz = int(rnd() * anz) 'auf ganze Zahlen runden
Feld1(i) = zz
Next i
LST_zz.Items.Clear
WriteToLST()
End Sub
Sub WriteToLST()
Dim i, anz As Integer
anz = Feld1.GetUpperBound(0)
For i = 0 To anz
Lst_zz.Items.Add(Feld1(i))
Next i
End Sub
End Class