VB resultaten op een rijtje

Article View: be.comp.programming

Article #506

Back to be.comp.programming Previous Next

#506

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

34 lines
2200 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: <9usVh.127137$cX7.869407@phobos.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!news.glorb.com!tudelft.nl!txtfeed1.tudelft.nl!feeder4.cambrium.nl!feeder5.cambrium.nl!feed.tweaknews.nl!68.142.88.75.MISMATCH!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: fcea4,5fc6d75fcf60a403,start
X-Google-Attributes: gidfcea4,public
X-Google-Language: DUTCH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!news.glorb.com!tudelft.nl!txtfeed1.tudelft.nl!feeder4.cambrium.nl!feeder5.cambrium.nl!feed.tweaknews.nl!68.142.88.75.MISMATCH!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: be.comp.programming
Subject: VB resultaten op een rijtje
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: <9usVh.127137$cX7.869407@phobos.telenet-ops.be>
Date: Wed, 18 Apr 2007 17:23:17 GMT
NNTP-Posting-Host: 84.194.232.196
X-Complaints-To: abuse@telenet.be
X-Trace: phobos.telenet-ops.be 1176916997 84.194.232.196 (Wed, 18 Apr 2007 19:23:17 MEST)
NNTP-Posting-Date: Wed, 18 Apr 2007 19:23:17 MEST
Organization: Telenet Internet