Array en vb

Thread View: be.comp.programming

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by Christian Sat, 21 Dec 2002 00:43

#6396

Author: Christian
Date: Sat, 21 Dec 2002 00:43

30 lines
1832 bytes

Dag iedereen,

Ik probeer hier in Visual Basic d.m.v. de Selection Sort het kleinste
element te bepalen van een niet gesorteerde deelrij.
Dim iTabel() As Integer = {7, 5, 6, 1, 0, 3, 4, 8, 2}
Als ik de onderstaande code uitvoer bekom ik een 5.
Mijn vraag is, wat is hier mis en op welk vlak snap ik de werking niet ?
Alvast bedankt,
Christian.


Sub main()
'Selection Sort

Dim iTabel() As Integer = {7, 5, 6, 1, 0, 3, 4, 8, 2}
Dim iBovenGrens As Integer = UBound(iTabel)
Dim iPLMin, I As Integer

iPLMin = 0
For I = 1 To iBovenGrens
If iTabel(I) < iTabel(iPLMin) Then
iPLMin = 1
End If
Next

Console.WriteLine("Het kleinste element van de array was " & iTabel(iPLMin))

Console.ReadLine()

End Sub

Re: Array en vb

#6397

Author: SLE
Date: Sat, 21 Dec 2002 07:47

41 lines
2039 bytes

"Christian" <Christian.Rosseel@pandora.be> wrote in message
news:ZOOM9.62719$Ti2.9378@afrodite.telenet-ops.be...
> Dag iedereen,
>
> Ik probeer hier in Visual Basic d.m.v. de Selection Sort het kleinste
> element te bepalen van een niet gesorteerde deelrij.
> Dim iTabel() As Integer = {7, 5, 6, 1, 0, 3, 4, 8, 2}
> Als ik de onderstaande code uitvoer bekom ik een 5.
> Mijn vraag is, wat is hier mis en op welk vlak snap ik de werking niet ?
> Alvast bedankt,
> Christian.
>
>
> Sub main()
> 'Selection Sort
>
> Dim iTabel() As Integer = {7, 5, 6, 1, 0, 3, 4, 8, 2}
> Dim iBovenGrens As Integer = UBound(iTabel)
> Dim iPLMin, I As Integer
>
> iPLMin = 0
> For I = 1 To iBovenGrens
> If iTabel(I) < iTabel(iPLMin) Then
> iPLMin = 1

iPLMin = I

--
SLE


> End If
> Next
>
> Console.WriteLine("Het kleinste element van de array was " &
iTabel(iPLMin))
>
> Console.ReadLine()
>
> End Sub
>

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads