[سعود]

جرب الكلاس التالي بفورم جديد

PHP كود :

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        dg.AutoGenerateColumns = False
        dg.Rows.Add("محمد", "رياضيات", "ممتاز")
        dg.Rows.Add("سعود", "رياضيات", "ضعيف")
        dg.Rows.Add("علي", "رياضيات", "جيد")
        dg.Rows.Add("ماضي", "رياضيات", "جيد جدا")
        dg.Rows.Add("ابراهيم", "رياضيات", "ممتاز")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i As Integer = 0
        For a = 0 To dg.Rows.Count - (IIf(dg.AllowUserToAddRows, 2, 1))
            If dg.Rows(a).Cells(2).Value = "ممتاز" Then
                i += 1
            End If
        Next
        MsgBox("عدد الممتاز: " & i)
    End Sub
End Class