[elgokr]

وعليكم السلام ورحمة الله وبركاته

كل عام وانت بخير وعيد سعيد عليك وعلى الجميع

اليك الكود لكلاً من 

الاختبارات من 2 : 7 والامتحانات من 8 : 10

كود :

       Dim count1, count2 As Integer

       REM سيبداء احتساب الاعداد للخلايا التى تحتوى على قيمة
       REM من العمود الاختبار الاول حتى العمود الاختبار السادس
       For ii As Integer = 2 To 7
           REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
           If TypeOf DataGridView1.CurrentRow.Cells(ii).Value Is DBNull = False Then
               count1 += DataGridView1.CurrentRow.Cells(ii).Value
           End If
       Next

           REM سيبداء احتساب الاعداد للخلايا التى تحتوى على قيمة
           REM من العمود الامتحان الأول حتى العمود الأمتحان الثالث
           For ii As Integer = 8 To 10
           REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
           If TypeOf DataGridView1.CurrentRow.Cells(ii).Value Is DBNull = False Then
               count2 += DataGridView1.CurrentRow.Cells(ii).Value
           End If
       Next

       REM ايجاد اجمالى كلاً من مجموع الاختبارات والامتحانات للطالب الواحد
       For ii As Integer = 11 To 12
           If ii = 11 Then
               REM اجمالى مجموع الاختبارات
               DataGridView1.CurrentRow.Cells(ii).Value = count1
           Else
               REM اجمالى مجموع الامتحانات
               DataGridView1.CurrentRow.Cells(ii).Value = count2
           End If
       Next

تحياتى لك

وتمنياتى لك التوفيق