Programación fraccionada

Añade un botón y copia el siguiente código:

¿Opciones? Explícito

¿Privado? ¿Sub? Command1_Click()

¿Atenuar? ¿I? ¿Como? dragón,? ¿Puntuación(9)? ¿Como? Entero,? ¿Fracción? ¿Como? dragón,? ¿s? ¿Como? Línea

¿Aleatorizada? Tiempo

¿Para qué? ¿I? =?0?¿Adónde ir? 9?10 jueces

¿Puntuación (I)? =?Int(Rnd?*?99)?+?1?Parte entera aleatoria en el rango de 100

¿Fracción? =?Puntuación? +?Puntuación(I)? Puntuación total acumulada,? ¿Para calcular la puntuación media? =?s? y amplificador? ¿CStr(puntuación(I))? y amplificador? ",?"? Transcripción

Entonces

¿MsgBox? "Situación de puntuación:?" y amplificador? ¿s? y amplificador? vbCrLf? y amplificador? "¿Qué tal después de una puntuación aleatoria? Calcular la puntuación media:?" y amplificador? ¿Fracción? /?10?& amperios? "."? Puntuación

¿Fin? Submarino