Re: Array en vb

Article View: be.comp.programming

Article #6397

Back to be.comp.programming Previous Next

#6397

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

Technical Details

Message-ID: <s0VM9.62882$Ti2.9549@afrodite.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-09!supernews.com!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!kibo.news.demon.net!demon!newshub1.home.nl!home.nl!skynet.be!skynet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail

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

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,76c78d19e9eefd4a
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2002-12-20 23:47:37 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-09!supernews.com!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!kibo.news.demon.net!demon!newshub1.home.nl!home.nl!skynet.be!skynet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail
From: "SLE" <info@NOSPAMproit.be>
Newsgroups: be.comp.programming
References: <ZOOM9.62719$Ti2.9378@afrodite.telenet-ops.be>
Subject: Re: Array en vb
Lines: 43
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Message-ID: <s0VM9.62882$Ti2.9549@afrodite.telenet-ops.be>
Date: Sat, 21 Dec 2002 07:47:36 GMT
NNTP-Posting-Host: 195.130.159.54
X-Complaints-To: abuse@telenet.be
X-Trace: afrodite.telenet-ops.be 1040456856 195.130.159.54 (Sat, 21 Dec 2002 08:47:36 MET)
NNTP-Posting-Date: Sat, 21 Dec 2002 08:47:36 MET
Organization: Telenet Internet

Reply to Parent Message