Debug.Print Programmieren mit For, If und While-Schleife

Question

Hallo liebe Community, könnte mir jemand bitte bei folgender VBA-Aufgabe helfen?

Sub aufgabe5()

Dim z,  n, j  As  Long

          n  =  10

          z  =  0

          For  k  =  2  To  n  Step  2

                      If  k <  6  Then

                              z  =  (z+2)    *  k

                      Else

                              j = k

                              While j > 0

                                        z  =  z  +  j

                                        j  =  j    -  k


                              Wend

                      End if

    Next  k

    Debug.Print    "Das Ergebnis  lautet:  "  &  z


End Sub

a) Welche Ausgabe liefert das Programm (Debug.print) ?

b) Zeigen Sie die Variablenbelegungen in jedem Schritt.

Answer 1

a)

Das Ergebnis lautet: 48

b)

Schritt: 1
k = 2
z = 0

Schritt: 2
k = 4
z = 4

Schritt: 3
k = 6
z = 24
j = 6
z = 30
j = 0

Schritt: 4
k = 8
z = 30
j = 8
z = 38
j = 0

Schritt: 5
k = 10
z = 38
j = 10
z = 48
j = 0