0 Daumen
172 Aufrufe

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.

von

Ein anderes Problem?

Stell deine Frage

Willkommen bei der Stacklounge! Stell deine Frage sofort und kostenfrei

x
Made by a lovely community