Programación VB: genere aleatoriamente 20 puntajes de cursos de estudiantes y muéstrelos, cuente la cantidad de personas en cada rango de puntaje y muestre los resultados estadísticos
Subcomando privado1_Click()
Atenuar a(0 a 4) como entero, i como entero, iScore como entero
Aleatorizar
Para i = 1 a 20
iScore = Rnd * 100
Si i Mod 4 = 0 Entonces imprima 'Cada 4 seguidos
Imprima "Estudiante " amp; i amp; " Puntuación: " amp; iScore,
Si iScore = 90 Entonces
a(4) = a(4) 1
ElseIf iScore gt; = 80 Entonces
a(3) = a(3) 1
ElseIf iScore gt = 70 Entonces
a(2) = a(2) 1
Si no es iScore gt; = 60 Entonces
a(1) = a(1) 1
Si no
a(0) = a(0) 1
Finalizar si
Siguiente i
Imprimir 'Nueva línea
Imprimir "0 - 59*** tiene: " amp; a(0) amp; " 人"
Imprimir "60-69*** tiene: " amp; a(1) amp; " 人"
Imprimir "60-69*** tiene: " amp; a(1) amp " 人"
p>Imprimir "70-79*** tiene: " amp; 2) amp; " 人"
Imprimir "80-89*** tiene: " amp; a(3 ) amp; * son: " amp; a(4) amp; "人"
End Sub