🚀 go-pugleaf

Ward schreef:
> 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


	lstDelers.Clear


> 
>          Do While SNGtest > 1
>              SNGdeler = SNGdeler + 1
>              SNGdeling = SNGgetal / SNGdeler
>              SNGtest = SNGgetal / SNGdeler
> 
>              If SNGdeling = Int(SNGdeling) Then 
	
		lstDelers.AddItem SNGdeling

		doevents


		endif


> 
>          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.

	Maak een list aan:	lstDelers



	Bert RvB.



-- 
Bert RvB.
www.rjrsnvbrn.nl