Problem mit VBA in Access

Computer: Software & Programmierung Visual Basic
#1

Sehr geehrte Damen und Herren,

ich habe eine Frage bezüglich einer Hausarbeit, die ich gerade mache.

Die Aufgabe lautet:

„Deklarieren Sie eine Schleife i As Integer und die Summe mit Integer. Initialisieren Sie Summe gleich 0 und nehmen sie diese mal 2. Schreiben Sie zudem eine Zählerschleife im Feld mit 10 Elementen. Geben Sie in der Schleife die intSumme aus.“

Mein Ansatz ist so:

Dim i As Integer
Dim intSumme as Integer

intsumme = 0
i= ? (keine Ahnung)

For i= 1 To 10 * 2
Debug.print intSumme = intSumme +i
Next

Debug.print intSumme +i: „8“

Die Zählerschleife kriefe ich noch gar nicht hin…
Kann mir bitte einer helfen?

Mit freundlichen Grüßen

Ugi

#2

Hallo Ugi,
deine Lösung finde ich garnicht so falsch, ich denke die Zählerschleife ist die FOR-Next-Schleife.
Meine Lösung sieht so aus:

Dim intI as integer
Dim intSumme as integer

intSumme=0

For intI = 1 to 10
intSumme= intSumme + intI *2
Debug.Print intSumme
Next

Ich bin mir nicht sicher, ob ich die Aufgabenstellung richtig verstanden habe, denn die ist… sagen wir mal… nicht klar formuliert…(gelinde gesagt)… und ich programmiere hauptberuflich…

Hoffe es hilft und dein Lehrer oder wer auch immer die Aufgabe gestellt hat, soll mal klare Aufgaben stellen, denn wenn die Anforderung nicht eindeutig und klar ist, kann der Programmierer auch nicht klar programmieren (das nur so nebenbei aus meiner Berufserfahrung…).
Viel Glück,
Laurent

#3

Hallo Ugi,
die Deklarationen sind ja schon mal schön, wenn du ein bisschen mehr Übung hast, kannst du auch die verkürzte Version für den Datentyp mit Suffix % (für Integer) verwenden

Dim i%
Dim intSumme%

intsumme = 0

Die Zählervariable brauchst du nicht manuell zu initialisieren, das passiert ja dann beim Aufruf der Schleife. i ist hier die sog. Laufvariable, in dieser Zeile gibst du nur an, von wo nach wo die Schleife (also wieviel mal) durchlaufen werden soll

For i= 0 To 9 'entspricht zehn Mal!

Und was soll jetzt genau mit intSumme passieren?
Steht da nicht was von „nimm mal 2“?

intSumme = intSumme * 2

Und dann noch die Zählervariable dazuzählen?

Debug.print intSumme = intSumme +i
Next i 'um alle Zweifel zu beseitigen pflege ich jedenfalls die Zählervariable bei der Next-Anweisung mit hinzuzufügen.

Debug.print intSumme +i: „8“

#4

Hallo Ugi,
ich glaube eher dass die Aufgab so gemeint ist, dass man die Summe innerhalb der Schleife mit 2 mal nimmt.
Also:

Dim i As Integer
Dim intSumme as Integer

intsumme = 0

For i= 1 To 10

intSumme = intSumme + i
intSumme = intSumme * 2

Debug.print intSumme
Next i

Die Zählerschleife könnte dann so aussehen:
for i = 1 to 10
Debug.print i
Next i

Oder einfach „Debug.print i“ innerhalb der ersten Schleife einsetzen, sodass neben der Summe auch der Zähler ausgegeben wird.
Gruß

#5

„Deklarieren Sie eine Schleife i As Integer und die Summe mit
Integer. Initialisieren Sie Summe gleich 0 und nehmen sie
diese mal 2. Schreiben Sie zudem eine Zählerschleife im Feld
mit 10 Elementen. Geben Sie in der Schleife die intSumme aus.“

Die Aufgabenstellung ist derart unverständlich, dass ich keine Lösung weiß.
Abgesehen davon sind wir Experten nicht dazu da, Deine Hausaufgaben zu machen.
Die Zählerschleife könnte so aussehen:

Do Until Zaehler = 10
 Zaehler = Zaehler + 1
 ' Weitere Verarbeitung
Loop
#6

Hallo Ugi257,

von VBA in Access habe ich fast keine Ahnung und kann dir daher leider nicht helfen. Trotzdem wünsche ich dir viel Erfolg bei der Lösung.

Mit freundlichem Gruss
Juergen

#7

Hallo,

I=? Benötigst du an der stelle nicht.
Aber eigentlich verstehe ich die Aufgabenstellung nicht 100%.
Initialisieren Sie die Summe mit 0 und nehmen Sie diese mal 2.
Für mich ergibt das kein Sinn.
DIN intSumme as integer = 0
intSumme = intSumme * 2???
Multiplikationen mit 0 bleiben 0.
Aber es kann sein das ich hier gerade auf den Schlacht stehe.

#8

Hallo,
die Angabe ist ausgesprochen unklar … und Hausarbeiten-Machen ist auch nicht so ganz Expertinnen-Aufgabe.
Konkrete und exakte Fragestellungen aber schon - da helfe ich dann gerne.