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!
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!