Acces vba module

[wackopmij]

Public Function Gemiddelde(dblgetal As Double) As Double
intteller = 1
Do
dblgetal = InputBox("Geef een getal in:")
dblsom = dblsom + dblgetal
intaantal = intaantal + 1
Loop Until dblgetal = 0
dblgemiddelde = dblsom / intaantal
Gemiddelde = dblgemiddelde
End Function

Zou iemand de fout er uit kunnen halen want die vind ik zelf niet, alvast bedankt.

 

[Spiderman]

Ik vermoed dat de fout is, dat je niet het juiste gemiddelde krijgt.
Als dit klopt, kijk dan eens goed naar de code.

Do
dblgetal = InputBox("Geef een getal in:")
dblsom = dblsom + dblgetal
intaantal = intaantal + 1
Loop Until dblgetal = 0

Als ik bijvoorbeeld de volgende getallen ingeeft per loop
Loop1 - 2
Loop2 - 4
Loop3 - 3

Dan wil je als gemiddelde 3 zien, jij krijgt 2.25.

Hoe kan dat????? Simpel De laatste loop = 0 maar wordt wel mee getelt (intaantal = intaantal + 1)