[ابو انس]

كود :

    TextBox1.Text.Clone()
       Dim sum As Double = 0
       Dim H As Integer = DGV.Rows.Count - 1
       Dim A(H) As Integer
       For I As Integer = 0 To H
           A(H) = Val(DGV.Rows(I).Cells("Col1").Value)
           sum = Val(sum) + Val(A(H))
           ListBox1.Items.Add(A(H))
       Next
       TextBox1.Text = sum

جواب السؤال الثالث حيث لدينا داتا جريد فيو سنأخذ منها معلومات الطلاب ونخزنها في مصفوفة احادية ونوجد مجموع المصفوفة ونظهر علامة الطلاب من المصفوفة الى ليست بوكس

---

بخصوص السؤال الثاني

كود :

     Dim a(2, 2) As Integer
       a(0, 0) = 1
       a(0, 1) = 2
       a(0, 2) = 3

       a(1, 0) = 4
       a(1, 1) = 5
       a(1, 2) = 6

       a(2, 0) = 7
       a(2, 1) = 8
       a(2, 2) = 9
       Dim x As Integer = 0
       Dim y As Integer = 0
       Dim z As Integer = 0

       For i As Integer = 0 To 2
           x = x + a(i, 0)
       Next
       For i As Integer = 0 To 2
           y = y + a(i, 1)
       Next
       For i As Integer = 0 To 2
           z = z + a(i, 2)
       Next
       dgvv.Columns.Add("", "مجموع صفوف 0")
       dgvv.Columns.Add("", "مجموع صفوف 1")
       dgvv.Columns.Add("", "مجموع صفوف 2")
       dgvv.Rows.Add()
       dgvv.Rows(0).Cells(0).Value = x
       dgvv.Rows(0).Cells(1).Value = y
       dgvv.Rows(0).Cells(2).Value = z