Test Nr. 3 H

Wirtschaftsinformatik 1

Prof. Dr. Thomas Off H

(Bitte wenden)

Seite 1 von 2 beuth_wi1_test3_h_v1-2.docx

Test Nr. 3

Anrede  Frau  Herr  _______ Datum:

Name, Vorname

MatrikelNr:

Ich möchte das Ergebnis meines Tests per E-Mail an nachfolgende Adresse erhalten:

E-Mailadresse:

(Schreiben Sie deutlich. Lassen Sie die Angabe leer, wenn Sie keine Mail von Prof. Off wollen.)

Summe: / 45 Punkte

Halten Sie Ihren Studierendenausweis bereit. Es sind keine Hilfsmittel zulässig. Abschreiben oder Abgucken sind nicht gestattet - auch der Versuch führt zum Ausschluss vom Test.

Aufgabe 1 ___ / 17 Punkte

Deklarieren und initialisieren Sie auf Ebene des folgenden Moduls mdlBenzin eine private Konstante für den durchschnittlichen Benzinverbrauch eines Fahrzeugs auf 100 Kilometer in Liter (z.B. 6,8 oder 5,2). Wählen Sie selbst einen geeigneten Datentyp und Wert. Scheiben Sie im gleichen Modul eine öffentliche Funktion berechneBenzinkosten , die als Parameter die gefahrenen Kilometer und den aktuellen Benzinpreis pro Liter übergeben bekommt. Die Funktion soll die Gesamtkosten für die gefahrenen Kilometer berechnen und diese als Ergebnis der Funktion zurückliefern. Das Modul mdlBenzin beginnt hier:

Option Compare Database Option Explicit

'1P Private, 2P im Modul, 0.5P Const+Bezeichner+Datentyp+Initialisierung Private Const VERBJE100KM As Single = 10 ' Liter je 100km

'1P Public, 1P Function, 0.5 Bezeichner

'2P alle Parameterbezeichner, 2P alle As+Datentyp, 2P Rückgabewert

Public Function berechneBezinkosten(psglGefahreneKm As Single, pcurPreisJeLiter As Currency) As Currency

Dim curKosten As Currency ' 0.5P

' 0.5P Zuweisung, 0.5P Ausdruck, 2P Parameterverwendung im Ausdruck Let curKosten = (psglGefahreneKm / 100) * VERBJE100KM * pcurPreisJeLiter

'1P Rückgabe des Ergebnisses

Let berechneBezinkosten = curKosten End Function '0.5P

Wirtschaftsinformatik 1

Prof. Dr. Thomas Off H

Seite 2 von 2 beuth_wi1_test3_h_v1-2.docx

Aufgabe 2 ___ / 28 Punkte

Gegeben ist das folgende Formular. Die Namen der Oberflächenelemente sind angegeben.

Schreiben Sie die Ereignisprozedur, die aufgerufen wird, wenn der Benutzer auf die Schaltfläche "Ermitteln" klickt. Ermitteln Sie dann die in den Textfeldern "Gefahrene Kilometer" und "Benzinpreis" eingegebenen Zahlen. (Gehen Sie davon aus, dass dort immer ein Text eingegeben wurde.) Rufen Sie die Funktion im Modul mdlBenzin (aus Aufgabe 1) auf und übergeben Sie diese Zahlenwerte als Parameter. Stellen Sie anschließend den

Rückgabewert Ihrer Funktion im Textfeld "Benzinkosten" dar.

Option Compare Database Option Explicit

'2P Private, 1P Sub, 2P Bezeichner, 2P Ereignis Private Sub btnRechne_Click()

'0.5P alle Deklarationen inkl. passender Datentypen Dim sglGefahreneKm As Single

Dim curBenzinpreis As Currency Dim curKosten As Currency

' 0.5P Let+Bezeichner+Zuweisung, 0.5P Val/Typumwandlung ' 1P Me, 2x2P Bezeichner, 1P Value

Let sglGefahreneKm = Val(Me.txtKm.Value)

Let curBenzinpreis = Val(Me.txtPreisJeLiter.Value)

'2P Let+Bezeichner+Zuweisung, 1P Modul, 2P Bezeichner, '3P Parameterüberabe für alle Parameter

Let curKosten = mdlBenzin.berechneBezinkosten(sglGefahreneKm, curBenzinpreis)

' 0.5P Let+Bezeichner+Zuweisung

' 1P Me, 2P Bezeichner, 1P Value, 0.5P Punkt Let Me.txtKosten.Value = curKosten

End Sub '0.5P