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

Avatar von

1 Antwort

0 Daumen

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

Avatar von

Ein anderes Problem?

Stell deine Frage

Ähnliche Fragen

0 Daumen
2 Antworten
+1 Daumen
1 Antwort
0 Daumen
1 Antwort
0 Daumen
1 Antwort

Willkommen bei der Stacklounge! Stell deine Frage einfach und kostenlos

x
Made by a lovely community