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

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

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Mark As Double

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

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