[مصمم هاوي]

وصلت إلى 90% من الحل
وبقى احتساب عدد مواد الرســوب
الرجــاء من كان عنده كود أفضل من هذا فليتكرم بإرفاقه هنا

كود :

For i As Integer = 0 To dgv1.Rows.Count - 1
            '  المجمـوع الكلي
            dgv1.Rows(i).Cells(5).Value = (dgv1.Rows(i).Cells(2).Value + dgv1.Rows(i).Cells(3).Value) + dgv1.Rows(i).Cells(4).Value
            '  ايجاد المعدل
            dgv1.Rows(i).Cells(6).Value = (dgv1.Rows(i).Cells(5).Value / 150) * 100

            'استخراج التقدير
            Dim a As Double
            a = dgv1.Rows(i).Cells(6).Value

            If a <= 150 And a >= 130 Then
                dgv1.Rows(i).Cells(7).Value = "ممتاز"

            ElseIf a < 130 And a >= 120 Then
                dgv1.Rows(i).Cells(7).Value = "جيد جداً"

            ElseIf a < 110 And a >= 100 Then
                dgv1.Rows(i).Cells(7).Value = "جيد"

            ElseIf a < 100 And a >= 75 Then
                dgv1.Rows(i).Cells(7).Value = "مقبول"

            ElseIf a < 75 And a >= 0 Then
                dgv1.Rows(i).Cells(7).Value = "/"

            Else
            End If

            ' احتساب النتيجـــة  
            If (dgv1.Rows(i).Cells(3).Value >= 50 And (dgv1.Rows(i).Cells(4).Value >= 50 And (dgv1.Rows(i).Cells(5).Value >= 50))) Then
                dgv1.Rows(i).Cells(9).Value = "ناجح"

            Else
                dgv1.Rows(i).Cells(9).Value = "راسب"

            End If

        Next