السلام عليكم ورحمه الله وبركاته
أتمني مساعدتي في حل هذا السؤال في الفيجول بيسك :
س1 أكتب برنامج لجمع الاعداد من 1 إلي 200 باستخدام do while ؟؟؟
***********************************************
س2 أكتب برنامج لجمع الاعداد من 1 إلي 200 والتي تقبل القسمة علي 3 باستخدام do while ؟؟؟
*************************************************
مع تحيات أختكم في الله
(((( شجون ))))
Private Sub Command1_Click()
' con الاعداد من 1 الى 200
' con1 المجموع
Dim con, con1 As Integer
con = 1
Do While con <= 200
If con Mod 3 = 0 Then
con1 = con1 + con
Else
End If
con = con + 1
Loop
MsgBox (con1)
End Sub
سؤال: هل استخدام Do While اجباري ؟ ام فقط لخدمة غرض البرنامج ؟
سؤال: هل الارقام التي سيتم جمعها ثنائية يعني رقمين فقط ام عدد غير محدد طالما ان الارقام لا تتجاوز ال 200 ؟
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
السلام عليكم
تنسيق برنامج الأخ /writeprogram
Private Sub Command1_Click() ' con الاعداد من 1 الى 200 ' con1 المجموع Dim con, con1 As Integer con = 1 Do While con <= 200 If con Mod 3 = 0 Then con1 = con1 + con Else End If con = con + 1 Loop MsgBox (con1) End Sub
اقتباسهل استخدام Do While اجباري ؟ ام فقط لخدمة غرض البرنامج ؟
لا ... فيمكنك استخدام IF أو غيرها ..
اقتباسهل الارقام التي سيتم جمعها ثنائية يعني رقمين فقط ام عدد غير محدد طالما ان الارقام لا تتجاوز ال 200 ؟
إلى أن يتجاوز الرقم 200
" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------
اخي الفاروق يبدو اني لم اوضح .. كانت اسئلتي عبارة عن استفسار كي اساعد الاخت فبواسطة do while يمكن ذلك لكن بدونها ايضا ويكون اسهل باعتقادي
شكرا (f)
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
هذا الموضوع مغلق.