Programación VB En una determinada competencia de cantantes, 10 jueces calificaron a un determinado concursante. La puntuación fue un número entero de 0 a 100. Encuentre la puntuación promedio del concursante.

Para agregar un botón, copie el siguiente código en él: Option?Explicit

Private?Sub?Command1_Click()

Dim?i?As?Long ,? puntuación (9)? ?9 ?'10 jueces

puntuación(i)?=?Int(Rnd?*?99)?+?1?'Una puntuación entera aleatoria dentro de 100

puntuaciones?= ? puntuaciones?+?score(i)?'Puntuación total acumulada,?utilizada para calcular la puntuación promedio

s?=?s?&?CStr(score(i))?&?",?" ? 'Transcripción

Siguiente

MsgBox?"Situación de puntuación:?"?&?s?&?vbCrLf?&?"Después de la puntuación aleatoria, la puntuación media calculada es:? " ?&?puntuaciones?/?10?&?"."?'Puntuaciones

End?Sub