kann mir jemand bei dem nachfolgenden Programm helfen? Ich soll rausfinden wieviele Durchläufe die jeweiligen Schleifen haben.

Dim intI As Integer
Dim intSumme As Integer

' Schleife 1
intSumme = 0
For intI = 0 To 10
intSumme = intSumme + intI
Next

' Schleife 2
intSumme = 0
intI = 0
While intSumme < 55
intI = intI + 1
intSumme = intSumme + intI
Wend

' Schleife 3
intSumme = 0
IntI = 1
While intSumme < 55
intSumme = intSumme + intI
intI = intI + 1
Wend

' Schleife 4
intSumme = 0
intI = 1
While intI < 10
intSumme = intSumme + intI
intI = intI + 1
Wend

' Schleife 5
intSumme = 0
intI = 0
Do
intI = intI + 1
intSumme = intSumme + intI
Loop Until intSumme > 54

' Schleife 6
intSumme = 0
intI = 0
Do
intI = intI + 1
intSumme = intSumme + intI
Loop Until intSumme < 55

' Schleife 7
intSumme = 0
intI = 0
Do
intI = intI + 3
intSumme = intSumme + intI
Loop Until intI = 10

Kann mir da jemand weiterhelfen? Ich brauche wie gesagt die Durchläufe der jeweiligen Schleife, den jeweiligen wert von intI und den Wert von intSumme.