dim input
dim aantal
aantal = 0
dim som
som = 0
 
do
	input = inputbox("voer getal in")
	som = som + input
	aantal = aantal + 1
	wscript.echo som
loop while input <> "0"
 
dim gemiddelde
gemiddelde = som / aantal
wscript.echo gemiddelde