Hallo Community,
Es geht um folgendes Programm, es zählt halt alle Werte über Hundert.
Es geht jetzt darum, dass das Programm einen Minimalwert, Maximalwert und einen Durchschnitt der eingegebenen Werte wiedergibt.
Allerdings, habe ich keine Ahnung wie.
Danke im Voraus für eure Hilfe.
Rem Artikelprogramm
Sub Artikelprogramm()
Rem Vorlauf
Dim apreis As Double
Dim zteuer As Integer
zteuer = 0
apreis = InputBox("Geben Sie bitte einen Preis ein")
Rem Hauptlauf
While apreis <> -1
If apreis > 100 Then zteuer = zteuer + 1
apreis = InputBox("Geben Sie bitte einen Preis ein")
Wend
Rem Nachlauf
MsgBox "Anzahl Artikel teurer als €100=" & zteuer
End Sub
|