A Program to Find The Average Score of n Students

Private Sub Command1_Click()
Dim n As Double
Dim s As Double
Dim p As Double
s = InputBox("Type in the total score of the students")
n = InputBox("Type in the number of students")
p = s / n
Print p
End Sub

It's that easy  dude!