Test 2

(1)

Prof. Dr. Thomas Off Wirtschaftsinformatik 1

Bitte wenden.

Seite 1 von 2 beuth_wi1_test-2_g_v1-0.docx

Test 2

 Frau  Herr  ______ Datum: 01.01.2001

Name, Vorname Mustermann,Michael MatrikelNr: ¹²³⁴⁵ 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 ___ / 22 Punkte

Frage

Definieren Sie einen zusammengesetzten Typen für eine Lehrveranstaltung. Die Lehrveran- staltung soll folgende Eigenschaften haben: ein Beginndatum, einen Titel, eine

Teilnehmeranzahl und eine Raumnummer. Wählen Sie selbst geeignete Datentypen für diese Eigenschaften. Schreiben Sie ein Programm (eine Prozedur), in dem Sie eine Variable dieses Typs deklarieren und alle Eigenschaften mit selbst gewählten Werten initialisieren.

Antwort

Option Compare Database Option Explicit

'1P Type, 0.5P Bezeichner Type TLehrveranstaltung '4x 0.5Bezeichner 4x0.5 Datentyp Beginn As Date

Titel As String

AnzahlTeilnehmer As Byte Raum As String

End Type '1P Sub g() ' 0.5P

'0.5P Dim 1P Bezeich '3P Datentyp Dim lvInfo1 As TLehrveranstaltung

' 4x 0.5P Let + Wertzuweisung

' 4x 0.5P Bezeichner 4x0.5P Punkt 4x1P Eigenschaft Let lvInfo1.Titel = "Wirtschaftsinformatik 1"

Let lvInfo1.Beginn = #4/1/2014#

Let lvInfo1.Raum = "B 124"

Let lvInfo1.AnzahlTeilnehmer = 42 End Sub ' 0.5P

(2)

Prof. Dr. Thomas Off Wirtschaftsinformatik 1

Seite 2 von 2 beuth_wi1_test-2_g_v1-0.docx

Aufgabe 2 ___ / 28 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 Zählerschleife, die vom Wert der ersten Variable bis zum Wert der zweiten Variable läuft.

Bilden Sie die Summe aller Werte der Schleifenvariable. Geben Sie das Gesamtergebnis der Summenbildung im Direktbereich aus.

Antwort

Sub aufgabe2()

End Sub

Dim i As Integer ' 2P Dim lngSumme As Long ' 2P Dim intStart As Integer '1P Dim intEnde As Integer '1P

Let intStart = Val(InputBox("Start:")) '1P Let intEnde = Val(InputBox("Ende:")) '1P

Let lngSumme = 0 ' 2P

'1P For 2P Start 1P To 2P Ende 1P Reihenfolge For i = intStart To intEnde

Let lngSumme = lngSumme + i ' 4P Next '2P

Debug.Print lngSumme '1P '4P Erkennbarkeit des Algorithmus