جمع الاعداد الاوليه مع الاعداد الزوجيه

أخي الكريم بلوتوث

إليك حل المسألة وأتمنى أن تعمل معك لأني اشتغل خارج البيت والجهاز مافيه (net.) ..

اعذرني على الازعاج

اخوك متعلم جديد

        Dim sumPrime = 3, i, j As Integer 'قمنا هنا بوضع قيمة ابتدائية لجمع الاعداد الاولية 
' وهي حاصل جمع العددين الأولين واحد واثنين
        For i = 3 To 100 'قمنا باختبار الاعداد الاولية من 3 إلى مائة

            Dim chkprime As Boolean = True

            For j = 2 To (i - 1)
                If i Mod j = 0 Then
                    chkprime = False
                End If
            Next
            If chkprime = True Then
                sumPrime += i
            End If
        Next
' الان نقوم بجمع حاصل جمع الاعداد الاولية مع الأعداد الزوجية
        For i = 0 To 100 Step 2
            sumPrime += i
        Next
        MsgBox(sumPrime)

أتمنى أنه يكون صحيح اخي مع تحياتي

يعطيك العافيه اخوي

أخي العزيز بلوثوث المنتدى منتدى تعليمي و من قوانينه (التي أشك أنك قرأتها) عدم طرح الواجبات لحلها و احمد الله أني رأيت الموضوع بعد ان اجابك الأخ و ارجو منك القادمة الالتزام بقواعد المنتدى

و شكرا

الله يخليك اخوي وأتمنى أن الكود أفادك تماماً