المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : ممكن حل سؤال في do while و for next


فتو
12-01-2011, 02:23 PM
السلام عليكم ورحمة الله وبركاته

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

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

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

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

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

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

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

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

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

متميزه
12-05-2011, 10:10 PM
(بواسطة أوامر 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