ما رأيكم بهذه المشكلة في جمل Select Case

للرفع

ما هو x اولا ؟؟

select_case.rar

السلام عليكم

من الطبيعي أنه سيظل يمر على الكيس لان اللوب لا يزال يعمل .....

أخي بعد كل رسالة msgbox بامكانك استخدام تفرع غير مشوط باستخدام جملة goto إلى ما بعد Next

Private Sub Form_Load()
	Dim x As Integer
	For x = 4 To 8
		Select Case (x)
			Case Is < 5
				MsgBox " X = " & x & " 'u in case is < 5' "
				goto 10
			Case Is >= 5 And x < 6
				MsgBox " X = " & x & " 'u in case is >= 5 and x < 6' "
			  goto 10
			Case Is = 6
				MsgBox " X = " & x & " 'u in case is = 6' "
			   goto 10
			Case Is = 8
				MsgBox " X = " & x & " 'u in case is = 8' "
			   goto 10
		End Select

	Next

10:

End Sub

وإذا كانت هذه السطور البرمجية هي الوحيدة داخل السب ، بإمكانك استخدام Exit sub للخروج منه

أتمنى أن تكون حلت المشكلة

لم أجرب شئ ﻷنى على Linux

If تحقق شرط ما Then Exit For

و عليكم السلام و رحمة الله و بركاته

تفضل

			Select Case x
				Case Is < 5
					MsgBox(" X = " & x & " 'u in case is < 5' ")
				Case Is < 6
					MsgBox(" X = " & x & " 'u in case is >4 and x < 6' ")
				Case Is = 6
					MsgBox(" X = " & x & " 'u in case is = 6' ")
				Case Is = 8
					MsgBox(" X = " & x & " 'u in case is = 8' ")
			End Select

أو

			Select Case x
				Case 0 To 4
					.........
				Case 5
					.........
				Case 6
					.........
				Case 8
					.........
			End Select

يظهر المشكلة في

Case Is >= 5 And x < 6

حيث يتجاهل الشرط الثاني x<6 ( وانت استخدمت x يعني خارج عن ال case )

والحل هو كما ذكره الاخ الفريد حيث يمكنك استخدام

to او الفاصلة او is

case 0 to 4

case 5,6,7

case 10,11,12 to 50

case is <8

case 9

,وهكذا

السلام عليكم ورحمه الله وبركاته

مشكورين على الردود اخي مبتدأ برمجة كما يظهر من السؤال x هي متغير عدد من نوع integer

اخواني ان استطيع حل المشكلة باستبدال جملة الـ Select باكملها بي if

او كما ذكر الاخوة مشكورين باستخدام الفاصلة او is

لكني اظن ان هذه المشكلة غير منطقية بنسبة للفيجوال بيسك لا اردي ما راي الاخوة ممن يستعملون لغات اخرى