منتديات حاسبكو المتخصصة بمادة الحاسب الآلي

- الصف الثالث ثانوي (http://www.7asabco.org/forumdisplay.php?f=81)

- - ممكن حل سؤال في do while و for next (http://www.7asabco.org/showthread.php?t=13851)

ممكن حل سؤال في do while و for next

السلام عليكم ورحمة الله وبركاته

شخباركم ..؟ إن شاء الله بخير

ابكم في مساعده هذا السؤالين وأتمنى اجد عندكم الحل

السؤال الأول :

قومي بكتابة أوامر البرمجة لحساب متوسط حسابي لدرجات 15 طالبة في مادة الحاسب الآلي ؟

(بواسطة أوامر For _ Next)

السؤال الثاني :

قومي بكتابة أوامر البرمجة لحساب متوسط حسابي لدرجات 15 طالبة في مادة الحاسب الآلي ؟

(بواسطة أوامر Do _ While )

أنتظر الأجابه منكم

رد: ممكن حل سؤال في do while و for next

(بواسطة أوامر For _ Next)

Dim a, m, d As Single
For a = 1 To 15
("ادخل درجة الطالب")d = InputBox
m = m + d
Next
Text1.Text = m / 15

(بواسطة أوامر Do _ While )

Dim a, m, d As Single
a = 1
Do While a <= 15
("ادخل درجة الطالب")d = InputBox
m = m + d
a = a + 1
Loop
Text1.Text = m / 15