Ventana interactiva de ejemplo de programación VB, ingrese manualmente 100 datos, encuentre el promedio, el cuadrado y luego la raíz cuadrada y la clasificación automática

Ventana interactiva de ejemplo de programación VB, ingrese manualmente 100 datos, encuentre el promedio, el cuadrado y luego la raíz cuadrada y el código de clasificación automática es el siguiente (con imágenes):

Dim intArray( 100 ) Como único, sglAverage como único

Subcomando privado1_Click() Aleatorizar (temporizador) Atenuar i como entero, intSum como entero Me.Picture1.Cls para i = 1 a 100

intArray (i) = Int(Rnd(i) * 5 + 95)

Me.Picture1.Print intArray(i);

Si i Mod 10 = 0 Entonces Me.Picture1 Imprimir

intSum = intSum + intArray(i) Siguiente i sglAverage = intSum / 100 Label1.Caption = "Sum=" & intSum Label2.Caption = "Average=" & sglAverage

End Sub

Private Sub Command2_Click() Atenuar i como entero, k0 como entero, k(4) como entero para i = 0 a 4

Me.Picture2(i). Cls Next i Para i = 1 a 100

Si Sqr((intArray(i) - sglAverage) ^ 2) >= 1,67 Entonces

? ) + 1

? Me.Picture2(0).Print intArray(i);

? Si k(0) Mod 10 = 0 Entonces Me.Picture2(0).Print

ElseIf Sqr((intArray(i) - sglAverage) ^ 2) >= 1.33 Y Sqr((intArray(i) - sglAverage) ^ 2) < 1.67 Entonces

k? ( 1) = k(1) + 1

? Yo.Picture2(1).Print intArray(i);

Si k(1) Mod 10 = 0 Entonces yo Imagen2(1).Imprimir

ElseIf Sqr((intArray(i) - sglAverage) ^ 2) >= 1 And Sqr((intArray(i) - sglAverage) ^ 2) < 1,33 Entonces

? k(2) = k(2) + 1

? Me.Picture2(2).Print intArray(i);

? ) Mod 10 = 0 Entonces Me.Picture2(2).Print

ElseIf Sqr((intArray(i) - sglAverage) ^ 2) >= 0,67 An

d Sqr((intArray(i) - sglAverage) ^ 2) < 1 Entonces

? k(3) = k(3) + 1

? .Print intArray(i);

? Si k(3) Mod 10 = 0 Entonces Yo.Picture2(3).Print

Else

k( 4) = k(4) + 1

? Me.Picture2(4).Print intArray(i);

? Si k(4) Mod 10 = 0 Entonces Yo. Imagen2(4).Imprimir

Fin si el siguiente i Para i = 0 a 4

Me.Label8(i).Caption = "*** metro" & k(i) Siguiente i

Fin Sub