|
اكمل
................ هى اوامر تتحكم فى اعادة تنفيذ عمل معين او مجموعه من الاوامر حتى يتحقق شرط معين اعد ترتيب الخطوات الاتيه 1- Total =Total +1 2-MsgBox(Total) 3- next 4-for I =1 to 20 step 2 5-Dim I,Total As integer |
Dim R as integer
Dim Total as integer For R=1 to 8 step 2 Total =total +R Next Msg box (total) اكتب القيمه النهائيه للمتغير total |
أوامر التكرار هى اوامر تتحكم فى اعادة تنفيذ عمل معين او مجموعه من الاوامر حتى يتحقق شرط معين
اعد ترتيب الخطوات الاتيه 1- Dim I,Total As integer[/quote] for I =1 to 20 step 2 3- Total =Total +1 4-next 5-MsgBox(Total) |
اقتباس:
Toal =Total + R بالتعويض عن قيمة Total = 0 وقيمة R = 1 فتكون قيمة Total = 1 - قيمة R = 3 لان العداد يزيد بمقدار 2 اقل من القيمة النهائية يتم التكرار Toal =Total + R بالتعويض عن قيمة السابقة Total = 1 وقيمة R = 3 فتكون قيمة Total =4 - قيمة R = 5 لان العداد يزيد بمقدار 2 اقل من القيمة النهائية يتم التكرار Toal =Total + R بالتعويض عن قيمة السابقة Total = 4 وقيمة R = 5 فتكون قيمة Total =9 - قيمة R = 7 لان العداد يزيد بمقدار 2 اقل من القيمة النهائية يتم التكرار Toal =Total + R بالتعويض عن قيمة السابقة Total = 9 وقيمة R = 7 فتكون قيمة Total =16 - قيمة R = 9 أكبر من القيمة النهائية يتوقف التكرار من السابق تكون القيمة النهائية R = 9 والقيمة النهائية Total = 16 |
اقتباس:
|
Dim n, k, c As Integer c = 6 For n = 1 To 6 Step 3 k = k + n Next If n > c Then c = c + 1 End If قيمة المتغير c = ناتج N>c هو قيمة المتغير k = |
لا اله الا الله محمد رسول الله
|
اقتباس:
وقيم المتغير n اذن قيمة المتغير c = 7( 1 ، 4 ، 7 ) وقيم k ( 1 ، 4 ) = ( 1+4 ) = 5 - ناتج N>c هو true لتحقق الشرط وبالتالي c = c + 1 6+1 = 7 |
هل char متغير حرفي ؟؟؟
|
ما نتيجة تنفيذ العملية الاتية:مع الشرح
999mod 1000 |
اقتباس:
حيث إذا كان الرقم الذي قبل mod أصغر من القيمة بعد Mod يكون هو نفس الرقم أما مثلا 14mod 5 يكون الناتج 4 حيث نقسم 14 على 5 يكون فيها 2 ثم نضرب 2 * 5 يكون 10 وقوم بطرح 14-10 يكون الباقي 4 ومثال 20mod5 يكون صفر حيث لا يوجد باقي من عملية القسمة |
السؤال الاول
for A = 2 to 6 step 2 احسب عدد مرات التكرار موضحا قيمة A النهائية السؤال الثانى Dim R As integer Dim total As integer For R =1 to 8 step 2 Total=Total+R NEXT MSG BOX TOTAL احسب قيمة TOTAL النهائية مع توضيح الخطوات |
اقتباس:
قيم الـ Total هى 1و4 و9 و 16 اى ان الفيمة النهائبة لـ total هى 16 |
اذكر قيمة x بعد مرور ثلاث ثوانى بفرض أن قيمة الخاصية interval للمؤقت timer1 هي 1000
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick [IMG]file:///C:/DOCUME%7E1/Owner/LOCALS%7E1/Temp/msohtml1/01/clip_image001.gif[/IMG] Static x As Integer x = x + 1 MsgBox(x) End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick [IMG]file:///C:/DOCUME%7E1/Owner/LOCALS%7E1/Temp/msohtml1/01/clip_image002.gif[/IMG] Dim x As Integer x = x + 1 MsgBox(x) End Sub هي الاجابه ح تكون الاوله : X=3 , الثانيه : X=1 والسبب * تستخدم الكلمه Static للاعلان عن متغير خاص , حيث ان المتغير سيحتفظ بقيمته طول فتره تشغيل البرنامج ولن يتم إعطاؤه قيمه ابتدائيه عند كل مره يتم فيها استدعاء البرنامج الفرعي . بس مش فااااااااااااااااااااهم حاجه مين يوضح ليه ؟؟؟؟؟؟؟؟ |
السلسلة الحرفية الفارغة توجد فى كتاب المدرسة بأكثر من طريقة
فى المثال ص 18 ،،,, فى الأسئلة ص 39 "" الرجاء من سيادتكم توضيح ايهما اصح لو جاءت فى الأمتحان وشكرا على المجهود الرائع |
| جميع الأوقات بتوقيت GMT +2. الساعة الآن 05:36 AM. |
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.