Lid |
|
Inderdaad, dat had ik inderdaad terug door.
preserve helpt hierbij. Maar de keurige output zoals gevraagd kan ik niet direct bekomen.
Volgende dat ik heb is:
Dim tabel(1, 2) As Integer
Dim count As Integer
Dim capacity As Integer = 2
Dim value As Integer
Console.WriteLine("value?")
value = Console.ReadLine
Console.WriteLine(value)
Do While value = value + 1
Console.WriteLine("Fill in a value: ")
count += 1
Loop
Console.ReadLine()
==============
Ondertussen mijn bouw omgegooid naar:
'Dim capacity As Integer = 2
'Dim count As Integer
'Dim numbers(capacity - 1) As Integer
''
'Do
' Dim index As Integer
' Console.Write("Numbers ( capacity " & capacity & _
' ", count " & count & " ) : ")
' For index = 0 To count - 1
' Console.Write(numbers(index) & " ")
' Next
' Console.WriteLine()
' Console.Write("Number ? : ")
' Dim number As Integer = Console.ReadLine()
' count += 1
' If count < capacity Then
' capacity *= 2
' ReDim Preserve numbers(capacity - 1)
' End If
' numbers(count - 1) = number
'Loop
Dit werkt, maar niet zoals hoort te zijn.
De output krijg ik ook niet exact hetzelfde
|