[متميزه]

Private Sub Command1_Click()
Dim I As Integer, M As Single, D As Single
For I = 1 To 15
D = InputBox("ادخل درجات الطالب")
M = M + D
Next I
Text2.Text = M
End Sub