preguntas de programación del examen vb

Agregar texto1 texto2 comando1 a la pantalla

Puntuaciones privadas(5) como cadena

Sub Form_Load privado()

puntuaciones(0 ) = 60

puntuaciones(1) = 70

puntuaciones(2) = 80

puntuaciones(3) = 90

puntuaciones (4 ) = 100

End Sub

Sub comando privado1_Click()

Atenuar i como entero

Atenuar iSum como entero

Atenuar dAbg como doble

Para i = 0 a UBound(puntuaciones) - 1

iSum = iSum + Val(puntuaciones(i))

dAbg = iSum / 5

Texto1.Text = iSum

Texto2.Text = dAbg

End Sub