יש לי בעיה בקוד הזה:

קוד:

Public Class Form1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim a As String
		Dim b As Integer
		Dim i As Integer
		Dim g As String
		b = 100
		For i = 1 To 99
			a = InputBox("כמה כוסות אתם רוצים?")
			b = b - a
			text1.Text = b
			If (b <= 1) Then
				g = MsgBox("תזמין בקבוק חדש")
				text1.Text = "נגמר המלאי"
			End If
		Next i
	End Sub

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		Dim a As String
		Dim b As Integer
		Dim i As Integer
		Dim g As String
		b = 100
		For i = 1 To 99
			a = InputBox("כמה כוסות אתם רוצים?")
			b = b - a
			text2.Text = b
			If (b <= 1) Then
				g = MsgBox("תזמין בקבוק חדש")
				text2.Text = "נגמר המלאי"
			End If
		Next i
	End Sub

	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
		Dim a As String
		Dim b As Integer
		Dim i As Integer
		Dim g As String
		b = 100
		For i = 1 To 99
			a = InputBox("כמה כוסות אתם רוצים?")
			b = b - a
			text3.Text = b
			If (b <= 1) Then
				g = MsgBox("תזמין בקבוק חדש")
				text3.Text = "נגמר המלאי"
			End If
		Next i
	End Sub
End Class

מה שאני רוצה לעשות בעצם שאם אני רושם שאני רוצה 100 כוסות זה ירשום תזמין בקבוק חדש שרשום נגמר המלאי ושיחזור לתפריט מה שזה עושה שזה רושם את שני הדברים ואז שזה רושם נגמר המלאי זה שואל אותי עוד פעם כמה כוסות אתם רוצים איך עושים לזה שזה יפסיק אחרי פקודה.. בבקשה תעזרו לי

חתימתכם הוסרה כיוון שלא עמדה בחוקי האתר. לפרטים נוספים לחצו כאן.

תוסיף בתוך הIf (לפני ה-End If) את הקוד Exit For, או Exit Sub.

הראשון יפסיק את פעולת הלולאה ויעבור לבצע את הפקודה שאחרי הלולאה.
השני יצא מהפרוצדורה.

אני אנסה תודה

חתימתכם הוסרה כיוון שלא עמדה בחוקי האתר. לפרטים נוספים לחצו כאן.