Red de conocimiento informático - Material del sitio web - Ingrese los puntajes de 30 estudiantes en el cuadro de texto. ¿Cómo usar la programación VB para contar el número de personas en cada rango de puntaje?

Ingrese los puntajes de 30 estudiantes en el cuadro de texto. ¿Cómo usar la programación VB para contar el número de personas en cada rango de puntaje?

Subcomando privado 1_Click()

Dim intCj (1 a 30) es un número entero

' Dim intE As Integer ' & lt60

Dim intD es un número entero' 60 -69

Dim intC es un número entero' 70-79

Dim intB es un número entero' 80-89

Dim intA es un número entero' 90- 100

Dim intTemp es un número entero

Marcar I como un número entero

i = 1

Cuando I<= 30

intTemp = InputBox("¡Ingrese el número" &i&"código!")

Si es intemp<0 o temp>tentonces100

MsgBox("¡Error de entrada!" ¡Inténtelo de nuevo! ”)

Otro

intCj(i) = intTemp

i = i + 1

Si... terminará

Anillo

Para j = 1 a 30

Seleccione Caso intCj(j) \ 10

El caso es & lt seis

intE = intE + 1

Caso 6

intD = intD + 1

Caso 7

intC = intC + 1

Caso 8

intB = intB + 1

Caso 9

intA = intA + 1

Finalizar selección

Siguiente j

Imprimir " 90-100:" &intA

Imprimir "80-89:" &intB

Imprimir " 70-79:" & intC

Imprimir " 60-69: " & intD

Imprimir " & lt60: " & amp;Inter

Conector final