[abulayth]

السلام عليكم

اعتقد ان علينا اعادة ترتيب الشرط لكي يعمل المثال بشكل جيد

كود :

Dim Mark As Double

If IsNumeric(TextBox1.Text) Then
    Mark = CDbl(TextBox1.Text)
    If (Mark < 0) Or (Mark > 100) Then
        MsgBox("القيم المقبولة بين صفر و مائة")
    Else
        Select Case Mark
            Case Is < 85
                TextBox2.Text = "جيد جداً"  
            Case Is < 75
                TextBox2.Text = "جيد"
           Case Is < 65
                TextBox2.Text = "مقبول"
           Case Is < 50
                TextBox2.Text = "راسب"
            Case Else
                TextBox2.Text = "ممتاز"
        End Select
    End If
Else
    MsgBox("الرجاء إدخال قيمة عددية")
End If

لان حسب الترتيب السابق العلامة 1 تحصل على تقدير جيد جدا

هذا والله اعلم