Prof. Dr. Thomas Off Wirtschaftsinformatik 1
Bitte wenden.
Seite 1 von 2 beuth_wi1_test-2_d_v1-1.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 ___ / 21 Punkte
Frage
Schreiben Sie ein Programm (eine Prozedur). Deklarieren Sie darin ein dynamisches Feld in dem sie Zeichenketten speichern können. Wählen Sie die Größe des Feldes zunächst so, dass 6
Elemente enthalten sein können. Initialisieren Sie das letzte Element des Feldes mit einem selbst gewählten Wert. Vergrößern Sie das Feld um zwei Elemente, wobei die bereits enthaltenen Elemente erhalten bleiben sollen.
Antwort
Sub d() '0.5P
'0.5P Dim 1P Bez 1P Klammern ohne Größe '0.5P As Datentyp
Dim strFeld() As String
' 1P Redim 1P Bezeichner 1P Klammern 2P Größe ReDim strFeld(5)
'0.5P Let und Wertzuweisung 1P Bez 2P Klammern '2P Index 1P Reihenfolge
Let strFeld(5) = "Test"
' 1.5P Redim Preserve 1P Bezeichner 1P Klammern 2P Größe ReDim Preserve strFeld(7)
End Sub '0.5P
Prof. Dr. Thomas Off Wirtschaftsinformatik 1
Seite 2 von 2 beuth_wi1_test-2_d_v1-1.docx
Aufgabe 2 ___ / 29 Punkte
Frage
Schreiben Sie ein Programm (eine Prozedur). Deklarieren Sie darin eine Variable für einen Endwert. Entscheiden Sie selbst, welchen Datentyp für ganze Zahlen sie für diese Variable verwenden wollen. Lassen Sie den Benutzer eine ganze Zahl eingeben und speichern Sie diese in der Variablen.
Schreiben Sie eine Zählerschleife, die vom Wert der Variable bis 0 rückwärts läuft.
Bilden Sie das Produkt aller Werte der Schleifenvariable, indem Sie die Werte miteinander multiplizieren. Geben Sie das Gesamtergebnis der Produktbildung in einem einfachen Meldungsfenster aus.
Antwort
Sub d() '0.5P Dim i As Integer ' 2P
Dim lngProdukt As Long ' 2P Dim intEnde As Integer '1P
Let intEnde = Val(InputBox("Ende:")) '1P
Let lngProdukt = 1 ' 2P
'1P For 2P Start 1P To 2P Ende '2P Step -1 1P Reihenfolge For i = intEnde To 0 Step -1 Let lngProdukt = lngProdukt * i ' 4P Next '2P
MsgBox lngProdukt '1P
'4P Erkennbarkeit des Algorithmus End Sub '0.5P