Array en vb

Article View: be.comp.programming

Article #6396

Back to be.comp.programming Previous Next

#6396

From: 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

Technical Details

Message-ID: <ZOOM9.62719$Ti2.9378@afrodite.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-06!sn-xit-08!supernews.com!newsfeed.news2me.com!newsfeed.icl.net!newsfeed.fjserv.net!kibo.news.demon.net!demon!btnet-peer0!btnet-peer!btnet!newsfeed.london1.eu.level3.net!level3eu!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,76c78d19e9eefd4a,start
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2002-12-20 16:43:43 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-06!sn-xit-08!supernews.com!newsfeed.news2me.com!newsfeed.icl.net!newsfeed.fjserv.net!kibo.news.demon.net!demon!btnet-peer0!btnet-peer!btnet!newsfeed.london1.eu.level3.net!level3eu!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail
From: "Christian" <Christian.Rosseel@pandora.be>
Newsgroups: be.comp.programming
Subject: Array en vb
Lines: 32
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
Message-ID: <ZOOM9.62719$Ti2.9378@afrodite.telenet-ops.be>
Date: Sat, 21 Dec 2002 00:43:37 GMT
NNTP-Posting-Host: 213.118.114.110
X-Complaints-To: abuse@telenet.be
X-Trace: afrodite.telenet-ops.be 1040431417 213.118.114.110 (Sat, 21 Dec 2002 01:43:37 MET)
NNTP-Posting-Date: Sat, 21 Dec 2002 01:43:37 MET
Organization: Telenet Internet