0 Daumen
48 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.

Gefragt von

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

Ein anderes Problem?

Stell deine Frage

Ähnliche Fragen

+1 Punkt
0 Antworten
Gefragt 23 Aug von Gast
0 Daumen
1 Antwort

Willkommen bei der Stacklounge! Stell deine Frage sofort und kostenfrei

x
Made by a lovely community
...