¿Usar programación VB para generar 32 puntuaciones aleatorias para estadísticas de puntuación?

Atenuar a(32) como entero

Subcomando privado1_Click() Aleatorizar para i = 1 a 32

a(i) = Int(Rnd * 101 )

Imprimir Tab(6 * ((i - 1 ) Mod 8)); a(i);

Si i Mod 8 = 0 Entonces imprime el siguiente i

Fin Sub

Subcomando privado2_Click() Max = a(1)：i1 = 1 Min = a(1): i2 = 1 > a1 = 0: i2 = 1 a1 = 0: a2 = 0: a3 = 0: a4 = 0: a5 = 0 Para i = 1 a 32

Si a(i) > Max Entonces Max = a(i)：i1 = i

Si a(i) > Max Entonces Max = a(i): i1 = i

Si a(i) > Min Entonces Min = a(i): i2 = i

Si a(i) >.89 Entonces

? a1 = a1 + 1

Si no

? Si a(i) > 79 Entonces p>

a2 = a2 + 1

?De lo contrario

Si a(i) > 69 Entonces

? /p >

Más

?Si a(i) > 59 Entonces

a4 = a4 + 1

?Más

a5 = a5 + 1

?End If

End If

?End If

End If Siguiente i Imprimir i1 & " El No. 1 tiene el puntaje más alto, el puntaje es "; Max Print i2 & "El No.1 tiene el puntaje más bajo, el puntaje es"; Min Print Print Print "Hay de 0 a 59 puntajes."; a5; "a" Imprimir "Hay 60 a 69 puntos."; a4; "a" Imprimir "90 a 100 puntos"; a1; "a"

Fin Sub

Subcomando privado3_Click() Fin

Fin Sub