جمع مجموعة اعداد كل مجموعة غلي حدة مع مجموع الاعداد

أرفق مثال أخي الكريم

ليتم مساعدتك بشكل أفضل ضمنه

فيما يلي حل بدائي:

        Dim x1, x2, x3, x4 As Integer


        Dim rrr() As String = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17}
        For i As Integer = 0 To rrr(3)
            x1 = x1 + rrr(i)
            
        Next
        MsgBox(x1)


        For ii As Integer = rrr(4) To rrr(8)
            x2 = x2 + rrr(ii)
        Next
        MsgBox(x2)

        For iii As Integer = rrr(9) To rrr(13)
            x3 = x3 + rrr(iii)
        Next
        MsgBox(x3)

        For iiii As Integer = rrr(14) To rrr(15)
            x4 = x4 + rrr(iiii)
        Next
        MsgBox(x4)

        MsgBox(x1 + x2 + x3 + x4)

شكرا

كيف يتم عمل مصفوفة  

خاصة عدد العناصر يمكن ان يتعير