Prof. Dr. Thomas Off Wirtschaftsinformatik 1
Bitte wenden.
Seite 1 von 2 beuth_wi1_test-2_h_v1-0.docx
Test 2
Frau Herr ______ Datum: 01.01.2001
Name, Vorname Mustermann,Michael MatrikelNr: 12345 Ich möchte das Ergebnis meines Tests per E-Mail an nachfolgende Adresse erhalten:
E-Mailadresse: m.mustermann@gmx.de
(Schreiben Sie besonders deutlich. Lassen Sie die Angabe leer, wenn Sie keine Mail wollen.)
Gesamt: / 50 Punkte
Aufgabe 1 ___ / 20 Punkte
Frage
Schreiben Sie ein Programm (eine Prozedur). Deklarieren Sie eine Variable als Map.
Initialisieren Sie die Variable mit einer leeren Map. Fügen Sie dann zwei selbst gewählte Elemente mit selbst gewählten Schlüsseln zur Map hinzu. Entfernen Sie anschließend das als erstes hinzugefügte Element wieder aus der Map.
Antwort
Sub h() '0.5P
'0.5P Dim 1P Bez 2P Collection Dim colProdukte As Collection
'2P Set und Zuweisung 1P Bez '2P New 1P Collection
Set colProdukte = New Collection
'3x 0,5P Bez, 3x 1P Add/Remove '2x 2P Wert und Key, 1x 1P Key colProdukte.Add "Schuhe", "123"
colProdukte.Add "Hemd", "234"
colProdukte.Remove "123"
End Sub '0.5
Prof. Dr. Thomas Off Wirtschaftsinformatik 1
Seite 2 von 2 beuth_wi1_test-2_h_v1-0.docx
Aufgabe 2 ___ / 30 Punkte
Frage
Schreiben Sie ein Programm (eine Prozedur). Deklarieren Sie darin eine erste Variable für einen Startwert und eine zweite Variable für einen Endwert. Entscheiden Sie selbst, welchen Datentyp für ganze Zahlen sie für diese Variablen verwenden wollen. Lassen Sie den Benutzer zwei ganze Zahlen eingeben und speichern Sie diese in den Variablen.
Schreiben Sie eine nachprüfende Schleife, die solange läuft bis der Wert der ersten Variable größer als der Wert der zweiten Variable ist. Achten Sie dabei auf eine genaue Umsetzung der Formulierung "solange bis".
Reduzieren Sie innerhalb der Schleife den Wert der zweiten Variable um eins. Bilden Sie die Summe aller Werte der zweiten Variable. Geben Sie das Gesamtergebnis der Summenbildung im Direktbereich aus.
Antwort
Sub f() '0.5P
Dim intStart As Integer '1P Dim intEnde As Integer '1P Dim lngSumme As Long ' 2P
Let intStart = Val(InputBox("Start:")) '1P Let intEnde = Val(InputBox("Ende:")) '1P
Let lngSumme = 0 ' 2P '2P Do
Do
Let intEnde = intEnde - 1 '2P
Let lngSumme = lngSumme + intEnde '4P '1P Loop 3P Until 3P Bedinung 1P Reihenfolge Loop Until intStart > intEnde
Debug.Print lngSumme '1P '4P Erkennbarkeit des Algorithmus End Sub '0.5P