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 p>
Atenuar dAbg como doble
Para i = 0 a UBound(puntuaciones) - 1
iSum = iSum + Val(puntuaciones(i))
Siguiente
dAbg = iSum / 5
Texto1.Text = iSum
Texto2.Text = dAbg
End Sub p>