dim n , k , c sa integer
c=6
for n = 1 to 6 step 3
k = k + n
next
if n > c then
c = c + 1
end if

حضرتك قيمة n = 7 وهى القيمة التى يتوقف فيها العداد عن التكرار ، وعندما تكون قيمة n = 1 , 4 العداد سوف ينفذ الاوامر التى بين كلمة for وكلمة next ( داخل التكرار ) ولن ينتقل اطلاقاً الى الاوامر التى تلى كلمة Next الا عندما تكون القيمة الابتدائية اكبر من القيمة النهائية للعداد . وهى القيمة التى تكون فيها n = 7 .

وبالتالى يكون الشرط كالتالى if n= 7 > c= 6 قيمته true فيتم الانتقال الى الاوامر التى تلى كلمة then يعنى هينفذ الامر c = c + 1يعنى هتكون c = 7

رسالة الى الاستاذ / احمد قرنى

مشكور استاذ احمد على اجاباتك الممتازة

واحب احييك لانك فاهم مادتك بجد وقادر توصل المعلومة بشكل متميز ودى حاجة مش متوفرة فى مدرسين الكمبيوتر اللى مش فاهمين حاجة وبيفتوا بدون علم لدرجة انى باشتغل مع طلبة والاقى عندهم معلومات غلط من المدرسين

ارجوا التواصل ...... اخوك مدرس / احمد السقا

( ب ) أقرأ التعليمات الاتيه ثم أجب عن الاسئله التاليه
Dim First as integer =20 , Second as integer=40
Dim Third as integer = First + Second
Dim Total as integer
If Third <=50 Then
Total= First + Second+ Third
Else
First=30
Second=50
Total= First + Second+ Third
End If
1- قيمة المتغير First = .........
2- قيمة المتغير Second = .........
3- قيمة المتغير Total = .........
4- قيمة التعبير Third <= 50 هى ........

sry بس ممكن تثبتوا الحصص الصوتية اللى فاتت كلها لأنى مش فاهمة حاجة و محتاجة شرح ؟؟؟؟؟؟؟؟؟ و شكرا مقدما :] :]

الله يكرمك يا أخى
وربنا يعلم ان كل يوم بتزداد معلوماتى من خلال مشاركتى مع الاخوة الافاضل داخل المنتدى ، وتبادل الاراء معهم .

]( ب ) أقرأ التعليمات الاتيه ثم أجب عن الاسئله التاليه
Dim First as integer =20 , Second as integer=40
Dim Third as integer = First + Second
Dim Total as integer
If Third <=50 Then
Total= First + Second+ Third
Else
First=30
Second=50
Total= First + Second+ Third
End If


شرح استخدام الامر If .. Then .. Else :
هو أمر اختيار مزدوج يتم تنفيذه فى حالة وجود بديلين .
إذا كانت قيمة الشرط True يتم تنفيذ الاوامر التى تلى كلمة Then .
إذا كانت قيمة الشرط False يتم تنفيذ الاوامر التى تلى كلمة Else .

وبالعودة للمثال نجد أن قيمة الشرط Third <=50 تكون False وذلك بالنظر الى أن قيمة Third = 60 .
وبالتالى يتم الانتقال لتنفيذ الاوامر التى تلى كلمة Else . فتكون القيم كالتالى

1- قيمة المتغير First = 30
2- قيمة المتغير Second = 50
3- قيمة المتغير Total = 140
وذلك لأن ال Total = First + Second+ Third = 30 + 40 + 60
4- قيمة التعبير Third <= 50 هى False

استاذ احمد الف شكر على مجهودك الرائع
وخاصه الأمتحانات التفاعليه بحد انت استاذ عبقرى
وبجد ابهرتنى ببرنامج الفيجوال بيسك فى عمل هذه الأمتحانات التفاعليه
ربنا يجازيك خيرا على مجهودك الرائع
يا ريت طلب غلس شويه لو تنزل لنا اكواد بسيطه عشان الولاد يطبقوها لأنهم بيفرحوا جدا
لما بيعملوا حاجه بأديهم

اريد التوضيح
 

ما القيمة النهائية للمتغير i

x=2
forI =0to6 step 2
x=x*2
next

جزاك الله خيرا استاذ احمد

أكمل الفراغات فى الكود التالى لجمع الاعداد الفردية من 1 الى 10
Dim x , …… As Integer
For x = 1 To …… Step ---------
Total = total + x
Next
Msgbox ( …….......)

لو سمحتوا ممكن حد يقول خطوات الحل للاتى:

*مساحة الدائرة =ط نق حيث ط=3,14 ، نق=7

ممكن الاجابه عن الاسئله دى
بعد نهاية تنفيذ الكود التالى
k=1
for I=1to5
k=k *2
next
تكون قيمة I ,K
I(6-5-1)
K=(1-16-32)
ارجو شرح الحل لانى مش فاهمه المسائل اللى من النوع ده خالص
افترض مجموعة الاوامر التاليه
Dim I as Integer
Dim X As single =2.5
for I=1 to 10 step 3
X=X*2
next
msg box (x)
1- تكون القيم التى يأخذها العداد I...............
2- تكون قيمة المتغير X التى سيعرضها مربع الرساله ...............زز
يكون عدد مرات تنفيذ الجمله x=x*2 هى ...........ز
س3\
Dim R as integer
Dim Total as integer
for R =1 to 8 step 2
total =total +R
next
msgbox (tota)
اكتب القيمه النهائيه للمتغير total
انا عرفه الاسئله كتير بس ارجوكو اشرحوهالى لانى مش قدره افهم النوع ده خاااااااااااااااااااااالص