• 0
atefkhalf2004

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

سؤال

هناك مجموعة عناصر  عددها 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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

3 إجابة على هذا السؤال .

  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

        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)
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .