0 Daumen
57 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

Bitte logge dich ein oder registriere dich, um die Frage zu beantworten.

Ein anderes Problem?

Stell deine Frage

Ähnliche Fragen

Willkommen bei der Stacklounge! Stell deine Frage sofort und kostenfrei

x
Made by a lovely community
...