VB. Пояснения к коду.

[Roll_Ru]

Здравствуйте. Поясните пожалуйста каждую строчку в коде. Что она делает. Очень нужно.

Dim A(1 To 10) As String
Dim B(1 To 10) As Byte
Private Sub Command1_Click()
For i = 1 To 10
A(i) = InputBox("Введите фамилию")
B(i) = InputBox("Введите оценку")
s = s + B(i)
Next i
sr = s / 3
Print s, sr
For i = 1 To 3
If B(i) > sr Then Print
Next i
End Sub

Спасибо