Wirtschaftsinformatik 1
Prof. Dr. Thomas Off
Q
(Bitte wenden)
Seite 1 von 2 beuth_wi1_test1_q_v1-2.docx
Test Nr. 1
Anrede 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 deutlich. Lassen Sie die Angabe leer, wenn Sie keine Mail von Prof. Off wollen.)
Summe: / 55 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 – Fachsemester in Credits umrechnen ___ / 25 Punkte Schreiben Sie ein Programm zur Berechnung Gesamt-Credits, die nach Ende eines
bestimmten Fachsemesters erreicht werden müssen. Deklarieren Sie eine Konstante für die zu erreichenden Credits je Fachsemester und initialisieren Sie sie mit dem Wert 30. Deklarieren Sie zwei Variablen, eine für das Fachsemester und eine für die Gesamt-Credits. Wählen Sie selbst geeignete Bezeichner und Datentypen. (Auch Studierende, die das Studium nicht in der Regelstudienzeit, z.B. erst nach 9 Semestern abschließen, können maximal 210 Credits bekommen.) Initialisieren Sie die Variable für das Fachsemester, indem der Benutzer in einem Dialog den entsprechenden Wert eingibt. Berechnen Sie die Gesamt-Credits, die in diesem Fachsemester erreicht sein müssen. Weisen Sie das Ergebnis der Berechnung der Variable zu, die Sie für die Gesamt-Credits deklariert hatten. Geben Sie anschließend in einem Meldungsfenster den Wert dieser Variable aus.
Option Compare Database Option Explicit
' Q
' Sub 0.5P, Bezeichner 1P, Klammern 0.5P Sub umrechnenFachsemesterInCredits()
' Für alle Deklarationen Bezeichner (sprechend, Konvention eingehalten) 1P, ' As 0.5P, ' Datentyp (passend) Ja: 6P, teilweise passend: 2P
' Zusätzlich für Deklaration der Konstante Const 1P, Initialisierung/Zuweisung 2P, Wert 1P Const CREDITS_JE_SEMESTER As Byte = 30
' Zusätzlich für Deklaration aller Variablen ' Dim 0.5P
Dim bytFachesemester As Byte
' Hinweis: an Studierende mit mehr als 7 Fachsemestern denken, ' Byte nur für Regelstudienzeit richtig!
Dim intGesamtCredits As Integer
' Initialisierung aller Variablen Let 0.5P, Bezeichner 0.5P, ' Zuweisungsoperator 0.5P, Werte 0.5
' Zusätzlich Val 1P, InputBox 2P, Text in Klammern und Anführungszeichen 0.5P Let bytFachesemester = Val(InputBox("In welchem FS studieren Sie?"))
Let intGesamtCredits = CREDITS_JE_SEMESTER * bytFachesemester ' Ausdruck 0.5 P
' MsgBox 1P, Variable 1,5P (wenn in Anführungszeichen 0.5P) MsgBox intGesamtCredits
End Sub '0,5
' Ist der Algorithmus erkennbar? Ja,weitgehend: 2P; Teilweise: 0.5P;
' Nein (z.B. unzusammenhängende Sammlung von Anweisungen: 0P)
Wirtschaftsinformatik 1
Prof. Dr. Thomas Off
Q
Seite 2 von 2 beuth_wi1_test1_q_v1-2.docx
Aufgabe 2 – Wertpapierkurs ermitteln ___ / 30 Punkte Schreiben Sie ein Programm, das den Kurs verschiedener Wertpapiere/Aktien ausgibt.
Deklarieren Sie zuerst zwei Variablen. Einer Variablen soll das Wertpapierkennzeichen zugewiesen werden (z.B. "ALLIANZ24", "BASF11", "CONT54"). Der anderen Variablen soll man den Kurs der Aktie zuweisen können. Wählen Sie selbst geeignete Bezeichner und Datentypen. Initialisieren Sie die Variable für den Kurs mit 0. Initialisieren Sie die Variable für das Wertpapierkennzeichen, indem der Benutzer in einem Dialog den Text eingibt. Prüfen Sie anschließend, welches Wertpapierkennzeichen der Benutzer eingegeben hatte. Für den Fall, dass er ALLIANZ24 eingegeben hatte, weisen Sie der Variable für den Kurs den Wert 173,30 zu. Für den Fall, dass er BASF11 eingegeben hatte, weisen Sie der Variable für den Kurs den Wert 90,11 zu. Für den Fall, dass er CONT54 eingegeben hatte, weisen Sie der Variable für den Kurs den Wert 260,10 zu. Geben Sie nach der Fallunterscheidung den Wert der Variable für den Kurs im Direktbereich aus. Nutzen Sie nicht If-Then-Else-ElseIf, sondern die andere Ihnen bekannte Form der Verzweigung!
Option Compare Database Option Explicit
' Q
' Sub 0.5P, Bezeichner 1P, Klammern 0.5P Sub Aktienportfolio()
' Für Deklaration aller Variablen
' Dim 0.5P, Bezeichner (sprechend, Konvention eingehalten) 1P ' As 0.5P, Datentyp (passend) 6P, teilweise passend: 2P Dim strWertpapierKennzeichen As String
Dim curWertKurs As Currency
' Initialisierung aller Variablen
' Let 0.5P, Bezeichner 0.5P, Zuweisungsoperator 0.5P Let curWertKurs = 0 ' Wert 0.5P
' InputBox ohne Val 3P/Inputbox mit Val 1P, Text in Klammern und Anführungszeichen 0.5P
Let strWertpapierKennzeichen = InputBox("WKZ:")
' Select Case 2P, Variable 1P ' Case 2P, Wert 1P (alle)
' Let 0.5P, Bezeichner 0.5P, Zuw.operator 0.5P, Wert 1P (alle) Select Case strWertpapierKennzeichen
Case "ALLIANZ24"
Let curWertKurs = 173.3 Case "BASF11"
Let curWertKurs = 90.11 Case "CONT54"
Let curWertKurs = 260.1 End Select '1P
' Debug.Print 1P, Variable 1,5P (wenn in Anführungszeichen 0.5P) Debug.Print curWertKurs
End Sub '0.5P
' Ist der Algorithmus erkennbar?
' Ja,weitgehend: 2P;
' Teilweise: 0.5P;
' Nein (z.B. unzusammenhängende Sammlung von Anweisungen: 0P)
