Recursie en VB

Article View: be.comp.programming

Article #5839

Back to be.comp.programming Previous Next

#5839

From: Christian
Date: Wed, 05 Feb 2003 20:53

28 lines
1685 bytes

Dag iedereen,

Ik bestudeer de Recursie in Visual Basic.
Kan er mij aub iemand uitleggen wat het stuk "Terug(intbedrag - 500)" in de
code doet.
Zijn er personen die goede websites kennen in verband met dit onderwerp,
liefst in het Nederlands?
Alvast bedankt,

Christian.

    Function Terug(ByVal intbedrag As Integer) As String

        Dim strTerug As String

        If intbedrag >= 500 Then

            strTerug = "500 " & Terug(intbedrag - 500)

        ElseIf intbedrag >= 200 Then

            strTerug = "200 " & Terug(intbedrag - 200)

        End If

        Return strTerug

    End Function

Technical Details

Message-ID: <vRe0a.32695$Jd.4400@afrodite.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!newsfeed.news2me.com!newsfeed.icl.net!newsfeed.fjserv.net!newsfeed.icl.net!newsfeed.fjserv.net!skynet.be!skynet.be!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,1e4116ed96ae8d16,start
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2003-02-05 12:55:12 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!newsfeed.news2me.com!newsfeed.icl.net!newsfeed.fjserv.net!newsfeed.icl.net!newsfeed.fjserv.net!skynet.be!skynet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail
From: "Christian" <Christian.Rosseel@pandora.be>
Newsgroups: be.comp.programming
Subject: Recursie en VB
Lines: 30
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: <vRe0a.32695$Jd.4400@afrodite.telenet-ops.be>
Date: Wed, 05 Feb 2003 20:53:47 GMT
NNTP-Posting-Host: 213.224.153.2
X-Complaints-To: abuse@telenet.be
X-Trace: afrodite.telenet-ops.be 1044478427 213.224.153.2 (Wed, 05 Feb 2003 21:53:47 MET)
NNTP-Posting-Date: Wed, 05 Feb 2003 21:53:47 MET
Organization: Telenet Internet