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