Hallo Leute kann mir jemand helfen bei der lösung von Einsendeaufgaben Fachinformatik VBDN03A Aufgabe 5 und 6
Kriege im VB Programm nur error
Hallo Leute kann mir jemand helfen bei der lösung von
Einsendeaufgaben Fachinformatik VBDN03A Aufgabe 5 und 6Kriege im VB Programm nur error
Hallo Waldemar,
wenn du den Code zeigst und den Fehler genauer erläuterst überschreitet die Chance daß dir überhaupt jemand helfen kann die Null Prozent Grenze in den Positivbereich hinein.
Gruß
Reinhard
Hallo Leute kann mir jemand helfen bei der lösung von
Einsendeaufgaben Fachinformatik VBDN03A Aufgabe 5 und 6Kriege im VB Programm nur error
Hallo Reinhard, hier ist der code
Public Class frmErgebnis
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
'Ausgabe1: a Wert:
b wert:
Do
a = b - 40
If a > 15 Then
a = a - 4
b = b + 10
Else
a = a - 5
End If
Loop while b > 40
'Ausgabe2: a Wert:
b wert:
End Sub
End Class
Hallo,
ich hab’s mal nach VB6 umgestrickt, damit es hier ins Brett passt.
Option Explicit
Private Sub Command1\_Click()
Dim a As Integer
Dim b As Integer
b = 100
a = 20
Do While a \> 15
b = 100 - a
a = a - 2
Loop
MsgBox a
Do
a = b - 40
If a \> 15 Then
a = a - 4
b = b + 10
Else
a = a - 5
End If
Loop While b \> 40
MsgBox b
End Sub
Wenn a ausgegeben wird, ist b = 84
Damit läuft es in die zweite Schleife und wird dort immer größer.
Die Abbruchbedingung lautet: Höre auf wenn b nicht mehr > 40 ist … Also nie. 
Das Programm läuft bis b überlauft.
Gruß Rainer