[متميزه]

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