¡Tarea sencilla de programación en VB para el primer año! Ingrese las puntuaciones de tres materias principales desde el teclado y encuentre el promedio

Opción Base 1

Subcomando privado1_Click()

Atenuar a(3) como doble, a1 como doble

Atenuar promedio como Sencillo

Suma = 0

Para i = 1 a 3

a(i) = InputBox("Ingrese resultados", "No." & i & " Branch")

Suma = Suma + a(i)

Siguiente i

promedio = Suma / 3

promedio = Ronda ( aver, 2) 'round(m,n) toma n decimales para m

Imprimir aver 'Emite el promedio

End Sub