Public Sub Oefening1()
Dim intTeller as integer
Dim intLoper as integer
intTeller = 5
Do while intTeller >=1
intLoper=5
Do While intLoper >=intTeller
Debug.Print intLoper
intLoper = intLoper -1
Loop
Debug.Print '' "
intTeller = intTeller -1
End Sub
Ik moest dit programma proberen vereenvoudigen maar ik vind nog altijd niks ik hoop dat jullie mij kunnen helpen.
Dim intTeller as integer
Dim intLoper as integer
intTeller = 5
Do while intTeller >=1
intLoper=5
Do While intLoper >=intTeller
Debug.Print intLoper
intLoper = intLoper -1
Loop
Debug.Print '' "
intTeller = intTeller -1
End Sub
Ik moest dit programma proberen vereenvoudigen maar ik vind nog altijd niks ik hoop dat jullie mij kunnen helpen.
