Sub Main()
'declaratie variabelen
Dim decResultaat, decKlasGemiddelde As Decimal
Dim intAantalStudenten, intTeller As Integer
'aantal studenten opvragen
Console.Write("Hoeveel studenten zitten er in de klas? ")
intAantalStudenten = Console.ReadLine
Console.WriteLine()
'resultaten opvragen
For intTeller = 1 To intAantalStudenten
Console.Write("Geef resultaat " & intTeller & " in: ")
decResultaat += Console.ReadLine
Next
'formule klasgemiddelde
decKlasGemiddelde = decResultaat / intAantalStudenten