VB gegevens op een rijtje (derde en goede proging)

Article View: nl.comp.programmeren

Article #95

Back to nl.comp.programmeren Previous Next

#95

From: Ward
Date: Wed, 18 Apr 2007 17:30

34 lines
2286 bytes

Ik ben een beetje aan het leren programmeren in Visual Basic en ik heb
een programmaatje gemaakt om de delers van een getal te zoeken. Dit is
het programma:

          'declaratie variablen + invoer

          Dim SNGgetal As Single
          SNGgetal = InputBox("geef een getal om de delers van te zoeken")
          If SNGgetal = 0 Then End
          Dim SNGtest As Single
          SNGtest = 2
          Dim SNGdeler As Single
          SNGdeler = 0
          Dim SNGdeling As Single

          'verwerking

          'verwerking (lus) + uitvoer

          Do While SNGtest > 1
              SNGdeler = SNGdeler + 1
              SNGdeling = SNGgetal / SNGdeler
              SNGtest = SNGgetal / SNGdeler

              If SNGdeling = Int(SNGdeling) Then MsgBox(SNGdeler)

          Loop

Als ik dit nu ga uitvoeren wordt er iedere keer als een deler is
gevonden een bericht gegeven met die deler. Nu zou ik graag hebben dat
al die delers op het einde in een rijtje worden weer gegeven. Is dit
mogelijk? en hoe?

W.

Technical Details

Message-ID: <2BsVh.127215$ZW7.859206@phobos.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!feeder3.cambrium.nl!feed.tweaknews.nl!213.132.189.1.MISMATCH!multikabel.net!feed10.multikabel.net!hwmnpeer01.ams!news.highwinds-media.com!kramikske.telenet-ops.be!nntp.telenet.be!kwabbernoot.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: 107324,4eefbb53c7e96621,start
X-Google-Thread: fcea4,4eefbb53c7e96621,start
X-Google-Attributes: gid107324,gidfcea4,public
X-Google-Language: DUTCH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!feeder3.cambrium.nl!feed.tweaknews.nl!213.132.189.1.MISMATCH!multikabel.net!feed10.multikabel.net!hwmnpeer01.ams!news.highwinds-media.com!kramikske.telenet-ops.be!nntp.telenet.be!kwabbernoot.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail
From: Ward <mmoopp@gmail.com>
User-Agent: Thunderbird 1.5.0.10 (Windows/20070221)
MIME-Version: 1.0
Newsgroups: nl.comp.programmeren,be.comp.programming
Subject: VB gegevens op een rijtje (derde en goede proging)
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
X-Antivirus: avast! (VPS 000734-2, 18/04/2007), Outbound message
X-Antivirus-Status: Clean
Lines: 34
Message-ID: <2BsVh.127215$ZW7.859206@phobos.telenet-ops.be>
Date: Wed, 18 Apr 2007 17:30:38 GMT
NNTP-Posting-Host: 84.194.232.196
X-Complaints-To: abuse@telenet.be
X-Trace: phobos.telenet-ops.be 1176917438 84.194.232.196 (Wed, 18 Apr 2007 19:30:38 MEST)
NNTP-Posting-Date: Wed, 18 Apr 2007 19:30:38 MEST
Organization: Telenet Internet