[ناجي إبراهيم]

السلام عليكم...

المعذرة أخي أبو ليث، و لكننا نعلم أنه في جملة Select Case يتم تقييم الحالات من أعلى إلى أسفل، و عندما يجد أول تطابق يتم تنفيذ ما يتبعه من كود، مع تجاهل بقية الحالات. و بالتالي فإنه حتى الصفر - مع الكود الذي قمت أنت بتعديله - يحقق أول حالة Case Is < 85 أي سيتحصل على "جيد جداً".

للتنويه، و السلام عليكم.

---

السلام عليكم...

بالطبع لا أدري ما مشكلة If و لكن يمكن ذلك دون استعمالها كالتالي:

كود :

Select Case True
    Case IsNumeric(TextBox1.Text)
        Select Case CDbl(TextBox1.Text)
            Case Is < 0
                MsgBox("القيم السالبة غير مقبولة")
                TextBox1.Focus()
                TextBox1.SelectAll()
            Case Is < 50
                TextBox2.Text = "راسب"
            Case Is < 65
                TextBox2.Text = "مقبول"
            Case Is < 75
                TextBox2.Text = "جيد"
            Case Is < 85
                TextBox2.Text = "جيد جداً"
            Case Is <= 100
                TextBox2.Text = "ممتاز"
            Case Else
                MsgBox("أكبر درجة مقبولة هي 100")
                TextBox1.Focus()
                TextBox1.SelectAll()
        End Select
    Case Else
        MsgBox("أدخل الدرجة بشكل صحيح")
        TextBox1.Focus()
        TextBox1.SelectAll()
End Select

نرجو الاستفادة و السلام.

[scluay]

السلام عليكم بصراحه جوابك افرحني كثيرا ولم يخطر على بالي هذه الفكره مشكور جدا جدا

---

ولكن اخ ناجي عندي سؤال خارج الموضوع اذا اردت ان اكتب كود كما انت تكتب من ناحية الشكل كيف استطيع