Invoeging rangschikking op alfabet.

Status
Niet open voor verdere reacties.

Lagnioo

Nieuwe gebruiker
Lid geworden
26 okt 2014
Berichten
1
Hallo ik zou graag mijn "groentjes" op alfabet hebben tijdens mn uitvoer maar weet niet goed waar te plaatsen heb al zo met een array.sort geprobeert maar lukt niet echt...
Hopelijk kunnen jullie mij helpen!

Module Module1

Sub Main()
Dim groenten As String() = {"prei", "sla"}
Dim aantal As Integer = 2
Do
Console.WriteLine("Groenten (" & aantal & "/" & groenten.Length & ") : ")
For index As Integer = 0 To aantal - 1
Console.WriteLine("- " & groenten(index))
Next
Console.WriteLine()
Console.Write("Volgende groente? : ")
aantal += 1

Dim nieuweGroente As String = Console.ReadLine()
Console.WriteLine()

If aantal > groenten.Length Then
ReDim Preserve groenten(groenten.Length * 2 - 1)
End If
groenten(aantal - 1) = nieuweGroente
Loop
End Sub
End Module


Alvast bedankt!
 
[cpp]Dim groentjes As String() = {"prei", "sla","bloemkool", "broccoli"}
Array.Sort(groentjes)
For Each g As String In groentjes
Console.WriteLine(g)
Next[/cpp]

Niet getest verder, maar dit werkt als het goed is.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan