Red de conocimiento informático - Problemas con los teléfonos móviles - Preguntas de programación de VB (hoja de calificación de cantantes)

Preguntas de programación de VB (hoja de calificación de cantantes)

Dim s(0 a 9) As Single ' Define una matriz para guardar 10 puntuaciones

Dim i As Integer

Dim max, min, total, Average As Single ' Definición Puntuación máxima, puntuación mínima, puntuación total y puntuación media

For i = 0 To 9 ' For i = 0 To 9 ' Puntuaciones del bucle 10

s(i) = Val (Text(i) .Text) 'Asigna el valor del cuadro de texto al array S

Siguiente i

max = s(0):min = s(0):total = s(0 ) 'Hacer máximo, mínimo, total igual al valor en el primer cuadro de texto para una comparación posterior

Para i = 1 a 9 'Comience desde el segundo cuadro de texto y compare el valor en el primer cuadro de texto

Si s(i) gt; max Then max = s(i) 'Si es menor que MAX que S, reemplace max con S

If s(i) min Then; min = s(i) 'Igual que arriba

total = total s(i) 'Suma los demás valores como puntuación total

Siguiente a i

total = total - max - min 'Elimina los valores máximo y mínimo de la puntuación total

promedio = total / 8

promedio = Int( promedio * 100 0,5) / 100'Puntuación promedio

Text2.Text = Str$(max)'Salida al cuadro de texto

Text3.Text = Str$(min)

Texto4 .Texto = Str$(promedio)