'Oefening 4 Public Sub Broodjes() Const intAantalRijen As Integer = 20 'het aantal rijen dat de matrix moet tellen Const intAantalBroodjes As Integer = 4 'het aantal broodjes/kolommen in de matrix Dim sngPrijs(1 To intAantalBroodjes) As Single 'dit moet om de prijs te kunnen berekenen, zo kunt ge later in de sub maal doen tss matrices Dim sngGetal(1 To intAantalRijen, 1 To intAantalBroodjes) As Single 'de eigelijke matrix. ij is hier (20 x 4) zoals da in uw rekenmachien zou staan Dim intI As Integer, intJ As Integer 'ff de 2 tellers, de regel is: voor elke constante 1, ge kunt ok best telkens dezelde int bij const houden For intI = 1 To intAantalBroodjes sngPrijs(intI) = InputBox("Geef prijs broodje " & intI, "Invoer") Next 'in de vorige for geeft ge de prijzen van elke broodje in. er staat for = 1 to intaantalbroodjes(4) 'dus da zal 4 keer hetzelfde doen, maar iedere keer telt intI 1 op en zal er in het inputscherm 12-3-4 verschijnen 'het belangrijkste hierin is dat in de sngprijs(intI) intI ook van 1 tot 4 gaat en zo dus verschillende dingen invoert For intI = 1 To intAantalRijen 'deze for herhaald zich 4 keer For intJ = 1 To intAantalBroodjes 'deze for herhaald zich 20 keer sngGetal(intI, intJ) = intI * sngPrijs(intJ) Next Next 'hier wordt de ingevoerde prijs maal de matric gedaan, ge ziet ook dat er weer geteld wordt, 80 keer in totaal wordt er herhaald. 'net zoveel keer als er zich cijfers in de matrix bevinden. als ge slim zeit herkent ge hier (20 x 4) Debug.Print "Aantal", For intJ = 1 To intAantalBroodjes Debug.Print "Broodje" & intJ, Next 'den tital afprinte, dan krijgt ge in den direct: broodje 1 broodje 2..... Debug.Print For intI = 1 To intAantalRijen Debug.Print intI, 'den intI afdrukke is voor nen teller ervoor te zetten, telkens als ne for zich herhaalt worden die intI en intJ 'ne keer groter daarom kunt ge da gebruiken. de "," is om het op dezelfde lijn te laten zetten For intJ = 1 To intAantalBroodjes Debug.Print sngGetal(intI, intJ), 'hier worden de prijzen van de 4 broodjes lijn per lijn afgedrukt. hier weer de komma om dezelfde lijn te bewaren Next
Debug.Print 'dezen debug.print is om een andere lijn te beginnen, want er staan geen komma achter Next End Sub 'als ge echt debiel zeit: end sub is om de sub af te sluiten ;)