Wie erstellt man ein Notenberechnungsprogramm in Excel mit VBA?
Hallo, wir haben von unserem Informatiklehrer folgende Aufgabe bekommen:
Der Lehrer Herr Müller möchte ein kleines Computerprogramm mit VBA in Excel erstellen, um bei der Korrektur der Arbeiten sofort sehen zu können, welche Note die Schüler mit ihrer erreichten Punktzahl bekommen. Dabei geht er folgendermaßen vor.
Er kann z.B. die erreichte Prozentzahl mit Hilfe der erreichten Punktzahl und der Gesamtpunktzahl berechnen.
Dabei weiß er, dass es die Note „1“ ab 95 % bis 100 %
die Note „2“ ab 80 % bis 94 %
die Note „3“ ab 60 % bis 79 %
die Note „4“ ab 40 % bis 59 %
die Note „5“ ab 20 % bis 39 %
die Note „6“ bis 19 % gibt.
Da Herr Müller sehr streng ist, entscheidet er sich immer dafür, erst ab der tatsächlich erreichten Mindestprozentzahl (die roten Prozentzahlen) die bessere Note zu geben. Die kleinste, zu verge-bende Punktzahl ist 0,5 Punkte.
Beispiel: Gesamtpunktzahl = 82
erreichte Punktzahl = 32,5 à 39,6 % à Note 5
Anders ausgedrückt ist die notwendige Punktzahl für eine Note „4“ bei 82 Gesamtpunkten:
82 * 0,4 = 32,8 à Da 32,8 mehr ist als 32,5 Punkte, gibt es für 32,5 Punkte die Note „5“
(die Note „4“gibt es erst ab 33 Punkten).
Der Algorithmus sollte so gestaltet sein, dass Herr Müller die Gesamtpunktzahl zu Beginn seiner Korrektur der Arbeiten einmal eingibt und anschließend die minimale Punktzahl „Grenzpunktzahl“ für jede Note ausgegeben wird, so dass er sofort einen Überblick hat, welche Note der für jede erreichte Punktzahl geben kann.
Aufgabenstellung:
1. Beschreibe den Algorithmus zur Berechnung und Anzeige der „Grenzpunktzahlen“ zuerst als Wortmodell. Achte darauf, dass es auch für dritte verständlich ist.
2. Setze dein Wortmodell in ein Struktogramm um.
3. Setze das Struktogramm in VBA -Code in der Entwicklerumgebung von Excel um.
Ich würde mich freuen, wenn mir jemande dabei helfen könnte.
2 Antworten
Dafür braucht es kein VBA Programm.
Dies ist mit den Excel Formel machbar.
Stimmt, mit einer "wenn-dann-Formel". Aber leider war die Aufgabe anders.
Sub Notenrechner()
Dim punkteEingabe As Double 'Abfrage als Double, da auch Kommapunktezahlen möglich sein sollen, z.B 32,8 Punkte
'Abfrage wie viele Gesamtpunkte in der Klausur zu erreichen sind
gesamtPunktzahl = InputBox("Wie hoch ist die Gesamtpunktzahl?", "Punkterechner zur Notenvergabe")
grenzPunktzahl_Note1 = 0.95 * gesamtPunktzahl '95 bis 100
grenzPunktzahl_Note2 = 0.8 * gesamtPunktzahl '80 bis 94
grenzPunktzahl_Note3 = 0.6 * gesamtPunktzahl '60 bis 79
grenzPunktzahl_Note4 = 0.4 * gesamtPunktzahl '40 bis 59
grenzPunktzahl_Note5 = 0.2 * gesamtPunktzahl '20 bis 39
grenzPunktzahl_Note6 = 0.5 'Minimale Punktzahl für die Note 6 ist 0,5
MsgBox ( _
"Note 1 ab " & grenzPunktzahl_Note1 & " Punkten" & vbCrLf & _
"Note 2 ab " & grenzPunktzahl_Note2 & " Punkten" & vbCrLf & _
"Note 3 ab " & grenzPunktzahl_Note3 & " Punkten" & vbCrLf & _
"Note 4 ab " & grenzPunktzahl_Note4 & " Punkten" & vbCrLf & _
"Note 5 ab " & grenzPunktzahl_Note5 & " Punkten" & vbCrLf & _
"Note 6 ab " & grenzPunktzahl_Note6 & " Punkten" & vbCrLf)
End Sub