Leren programmeren: klasgemiddelde

In deze superklassieke programmeeroefening vragen we de behaalde punten voor een bepaald vak op, en vragen om af te sluiten met een negatief getal.

Private Sub cmdStart_Click()
Dim resultaat As Single
Dim totaal As Single
Dim aantal As Single
Dim gemiddelde As Single
Do
  resultaat = InputBox("Geef de resultaten achter elkaar in en sluit af met -1")
  If Not resultaat = -1 Then
    totaal = totaal + resultaat
    aantal = aantal + 1
  End If
Loop While Not resultaat = -1
If aantal = 0 Then Exit Sub 'niets ingevoerd
MsgBox "Er waren " & aantal & " resultaten. Het gemiddelde is " & totaal / aantal
End Sub

[VB Web] - [Leren programmeren] - [hlrnet] - [copyright]