La programación VB ingresa las puntuaciones de siete jueces y calcula la puntuación promedio de los siete jueces.

El primero, más problemático

Dim a1,a2,a3,a4,a5,a6,a7,sum

a1=Inputbox(" Introduzca el primera puntuación")

a2=Inputbox("Ingrese la segunda puntuación")

a3=Inputbox("Ingrese la tercera puntuación")

a4=Inputbox ("Ingrese la cuarta puntuación")

a5=Inputbox("Ingrese la quinta puntuación")

a6=Inputbox("Ingrese la sexta puntuación" ")

a7=Inputbox("Ingrese la séptima partitura")

a1=int(a1)

a2=int(a2)

a3=int( a3)

a4=int(a4)

a5=int(a5)

a6=int(a6)

a7= int(a7)

suma = (a1+a2+a3+a4+a5+a6+a7)/7

Suma del cuadro de mensajes