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

[فتو]

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

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

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

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

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

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

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

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

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

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

[متميزه]

(بواسطة أوامر 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