Hallo Leute
Habe folgende aufgabe zu erledigen:
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
'Ausgabe 1: a hat den wert:
’ b hat den wert:
Do
a = b - 40
If a > 15 Then
a = a - 4
b = b + 10
Else
a = a - 5
End If
Loop While b