Hallo liebe Community,
Könnte mir jemand bitte bei folgender aufgabe helfen wie ich diese lösen muss. Habe leider Schwierigkeiten mit Programmieren. Bitte um ausführliche Lösung.
Sub aufgabe5()
Dim n As Long
Dim z As Long
Dim i As Long
n = Inputbox("Zahl eingeben")
z = 1
i = 1
Do
If i = 4 Then
z = z-i
ElseIf i = 6 Then
z = 2 * z
Else
z = 2 * z
Else
z = z + i
End If
i = i + 1
Loop While i<= n
MsgBox ("Ergebnis: " & z)
End Sub
Frage:
a) Welche Ausgabe liefert das Programm, wenn der Benutzer 5 eingibt ?
b) Welche Ausgabe liefert das Programm, wenn der Benutzer 8 eingibt ?
