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