[scluay]

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Select Case TextBox1.Text
Case Is < 0
TextBox2.Text = "الدرجه في السالب"
Case 0 To 49
TextBox2.Text = "الطالب راسب"
Case 50 To 59
TextBox2.Text = "الطالب ناجح"
Case 60 To 69
TextBox2.Text = "الطالب مقبول"
Case 70 To 79
TextBox2.Text = "الطالب جيد"
Case 80 To 89
TextBox2.Text = "الطالب جيد جدا"
Case 90 To 100
TextBox2.Text = "الطالب ممتاز"
Case Is > 100
TextBox2.Text = "الدرجة خارج المدى"
Case Else
TextBox2.Text = "رجاءا ادخل القيمه"
End Select
End Sub
End Class

السلام عليكم شباب البرنامج يتنفذ صحيح ولكن فيه مشكله هل يستطيح احد يساعدني لماذا الشرط الاخير لا يتنفذ وهو شر case else
اي عندما لايدخل الشخص قيمه تخرج رساله اخل القيمه
انا استطيع اعالجها في if ولكن انا اريد اعالجها في select
المشكله الثانيه
هي عندما اخل نص يتنفذ شرط الثاني ويقول الطالب راسب