Private Sub Button1_Click (ByVal sender As System.Object),_
ByVal e As System.EventArgs) Handles Button1.Click
 
Dim a As Integer
Dim b As Integer
 
b = 100
a = 20
 
Do While a > 15
 
b = 100 -a
a = a -2
 
Loop
 
' Wie lautet bei obenstehendem Code der Wert von a und Wert b?
 
' So wie ich es verstehe müsste Wert a 16 sein und Wert b 60?
 
Do 
a = b -40
If a > 15 Then
a = a - 4
b = b + 10
Else
 a= a -5
End If
Loop While b < 40
 
' Wie lautet bei obenstehendem Code der Wert von a und Wert b?
' So wie ich es verstehe müsste Wert a 16 und Wert b 70 sein?

---------------------------------------
Ich darf das fragen, ich lerne noch ;)
---------------------------------------