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

[atefkhalf2004 2]

هناك مجموعة عناصر  عددها 17  مثلا

عايز 

اجمع  كل 5  لوحدهم    والمجموعة الاخيرة  هي ناقصة يتم جمعها لوحدها 

وفي  النهاية مجموع   الاعداد   
اي مجموع   المجموعات

 Dim mmm, kkk As Integer

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

                MsgBox(kkk)
                mmm = 0
            End If

        Next

[m.aljoul 7]

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

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

[m.aljoul 7]

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

        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)

[atefkhalf2004 2]

شكرا

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

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